VB.Net/Database ADO.net/Oracle — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 15:44, 26 мая 2010

Oracle Connection String

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.OracleClient Module OracleConnect

  Sub Main()
     Dim connString As String = "server = o92; uid = vbex;password = password;"
     "Create connection
     Dim conn As New OracleConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
     Catch ex As OracleException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        " Close Connection
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Module

      </source>


Oracle SqlConnect

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.OracleClient Module OracleConnect

  Sub Main()
     Dim connString As String = "server = o92; uid = vbex;password = password;"
     "Create connection
     Dim conn As New OracleConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
     Catch ex As OracleException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        " Close Connection
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Module

      </source>