Connect from VB6 or .NET to Oracle SQL 8

[fqjp]

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