谁能给我ADO连ORACLE的代码，谢谢

Question

For the current Oracle ODBC Driver from Microsoft:oConn.Open "Driver={Microsoft ODBC for Oracle};" & _
　　　　　　　　　 "Server=OracleServer.world;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"
OLE DB Provider for Oracle (from Microsoft) 
　 
oConn.Open "Provider=msdaora;" & _
　　　　　　　　　 "Data Source=MyOracleDB;" & _ 
　　　　　　　　　 "User Id=myUsername;" & _
　　　　　　　　　 "Password=myPassword;"OLE DB Provider for Oracle (from Oracle) 
　 
For Standard Security:oConn.Open "Provider=OraOLEDB.Oracle;" & _
　　　　　　　　　 "Data Source=MyOracleDB;" & _ 
　　　　　　　　　 "User Id=myUsername;" & _
　　　　　　　　　 "Password=myPassword;"For a Trusted Connection:oConn.Open "Provider=OraOLEDB.Oracle;" & _
　　　　　　　　　 "Data Source=MyOracleDB;" & _ 
　　　　　　　　　 "User Id=/;" & _
　　　　　　　　　 "Password=;"
' OroConn.Open "Provider=OraOLEDB.Oracle;" & _
　　　　　　　　　 "Data Source=MyOracleDB;" & _ 
　　　　　　　　　 "OSAuthent=1;"

Answer 1

再问一下，VB中的ADODB对象怎么引用，另外使用上述连接是否应先建立ODBC数据源

Answer 2

vb菜单-----project-----reference------选择microsoft active .....具体记不清楚了,很容易找到的.For the current Oracle ODBC Driver from Microsoft
应该是需要先建立odbc的，
其他应该不需要，但可能需要安装oracle客户端。没有一一测试过。

Answer 3

有Oracle客户端，可以不用建ODBC数据源
因为ADO可以不通过ODBC访问数据啊

Answer 4

现在用ADO连不通
Public cndbase As New ADODB.Connection
Public Function ConnectDbase(StrConnect As String) As Boolean
On Error GoTo ErrHandle
cndbase.ConnectionString = StrConnect
cndbase.Open
cndbase.CursorLocation = adUseClient
ConnectDbase = True
Exit Function
ErrHandle:
ConnectDbase = False
End FunctionPrivate Sub Form_Load()
VarServer = Text1.Text '服务名称
VarDbase = Text2.Text '数据库名称
VarUser = Text3.Text '用户名称
VarPassword = Text4.Text '用户口令
ConnectionString = "User ID='" & UserID & "';" & _
"Password='" & UserPwd & "';" & _
"Data Source='" & ServerName & "'"Dim StrConnect As String
StrConnect = "Provider='MSDAORA';" + "User ID='hw';" + "Password='www';" + "Data Source='oradb'"
If ConnectDbase(StrConnect) Then
Exit Sub
Else
myexit = MsgBox("数据库连接失败！请检查连接设置信息。", vbOKOnly, "错误提示:")
Unload Me
End If
ErrHand:
myexit = MsgBox("错误程序:" & Err.Source & Chr(10) & "错误代码:" & Err.Number & Chr(10) & "错误信息:" & Err.Description, vbAbortRetryIgnore, "错误提示:")
If myexit = 3 Then
Err.Clear
Unload Me
Else
If myexit = 4 Then
Err.Clear
Resume
Else
Err.Clear
Resume Next
End If
End If
哪里错

Answer 5

StrConnect = "Provider='MSDAORA';" + "User ID='hw';" + "Password='www';" + "Data Source='oradb'"改成StrConnect = "Provider=MSDAORA;User ID=hw;Password=www;Data Source=oradb"不要加单引号，另外都是字符串没有变量，还要那么多加号干吗？！

Answer 6

搞定了，原来是ORACLE客户端装完没重启，不过还是要谢谢各位