oODBCConnection = New Odbc.OdbcConnection(sConnString)
oODBCConnection.Open()

For Oracle ODBC Driver:

Dim oODBCConnection As Odbc.OdbcConnection
Dim sConnString As String

'''' Create and open a new ODBC Connection
sConnString = "Driver={Microsoft ODBC for Oracle};" & _
　　　　　　　　　 "Server=OracleServer.world;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"

oODBCConnection = New Odbc.OdbcConnection(sConnString)
oODBCConnection.Open()

For Access (JET) ODBC Driver:

Dim oODBCConnection As Odbc.OdbcConnection
Dim sConnString As String

'''' Create and open a new ODBC Connection
sConnString = "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　 "Dbq=c:\somepath\mydb.mdb;" & _
　　　　　　　　　 "Uid=Admin;" & _
　　　　　　　　　 "Pwd=;"

oODBCConnection = New Odbc.OdbcConnection(sConnString)
oODBCConnection.Open()

For all other ODBC Drivers:

Dim oODBCConnection As Odbc.OdbcConnection
Dim sConnString As String

'''' Create and open a new ODBC Connection
sConnString = "Dsn=myDsn;" & _
　　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　　 "Pwd=myPassword;"

oODBCConnection = New Odbc.OdbcConnection(sConnString)
oODBCConnection.Open()

上一页  [1] [2] [3] [4]