|
The following codes using odbc��u can try it.
connect server
Public Function ConnectServer(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String) As Boolean
Dim ConnectString As String
On Error GoTo Error_ConnectServer
rdoEngine(0).CursorDriver = rdUseClientBatch
ConnectString = "Driver={Microsoft ODBC For Oracle};Server=" & DBName & "_" & ServerName & ";UID=" & UserName & ";PWD=" & PWD & ";"
Set grdoCN = rdoEngine(0).OpenConnection("", rdDriverNoPrompt, False, ConnectString) ', rdAsyncEnable)
ConnectServer = True
Exit Function
Error_ConnectServer:
ConnectServer = False
End Function
connect oracleserver
Public Function ConnectOracleServer(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String) As Boolean
Dim strConnect As String
On Error GoTo Error_ConnectOracleServer
strConnect = "Driver={Microsoft ODBC For Oracle};Server=" & DBName & "_" & ServerName & ";UID=" & UserName & ";PWD=" & PWD & ";"
adoORACLEConnect.Open strConnect
ConnectOracleServer = True
Exit Function
Error_ConnectOracleServer:
ConnectOracleServer = False
End Function
|