用vb如何连接oracle数据库

Question

Dim gObj_Connection As New ADODB.Connection
Dim gObj_Command As New ADODB.Command
Dim gObj_Dataset As New ADODB.Recordset
Const strConnection = "Provider=OraOLEDB.Oracle.1;Password=manager;Persist Security Info=True;User ID=system;Data Source=faxsrv"Private Sub CommandButton1_Click()
    gObj_Connection.Open strConnection, "system", "manager", adConnectUnspecified
    gObj_Dataset.Open "select * from dual", gObj_Connection, adOpenUnspecified, adLockOptimistic, -1
End SubMailto:[email protected]

Answer 1

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 2

Dim Re As New ADODB.Recordset
Dim Conn As New ADODB.Connection
conn.open strconn
strconn = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=wangqiang;password=123;Data Source=szic"
Re.Open "select * from ictype where name='" & combName.Text & "'", Conn, adOpenStatic, adLockOptimistic
re!name=....
....

Answer 3

dim cn As New ADODB.Connection   cn.CursorLocation = adUseClient    StrSql = "Provider=MSDAORA.1;Password=passwd;User ID=user;Data Source=data;Persist Security Info=True"
    cn.Open StrSql