用VB自带的控件(DATA控件)生成一个连接串是最简单的。 如 Dim Cn As ADODB.Connection Dim Conn As String Conn = "UID=*****;PWD=*****;driver= " _ & "{Microsoft ODBC for Oracle};SERVER=dseOracle; " '这里Conn的写法有很多种 Set Cn = New ADODB.Connection With Cn .ConnectionString = Conn .CursorLocation = adUseClient .Open End With
Dim gsql As String Dim db As Database Dim ret As Recordset Set db = OpenDatabase("", False, False, "odbc;DSN=casing;uid=atest;pwd=atest") gsql = "select count(csn22) qty from sn_pre22 " Set ret = db.OpenRecordset(gsql, dbOpenSnapshot, dbSQLPassThrough) <这是我的,用ADO,和楼上差不多了.>
如
Dim Cn As ADODB.Connection
Dim Conn As String
Conn = "UID=*****;PWD=*****;driver= " _
& "{Microsoft ODBC for Oracle};SERVER=dseOracle; "
'这里Conn的写法有很多种
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With
Conn ="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=localname;Persist Security Info=True"
http://www.codeproject.com/useritems/ConnectionStrings.asp
Dim db As Database
Dim ret As Recordset
Set db = OpenDatabase("", False, False, "odbc;DSN=casing;uid=atest;pwd=atest")
gsql = "select count(csn22) qty from sn_pre22 "
Set ret = db.OpenRecordset(gsql, dbOpenSnapshot, dbSQLPassThrough)
<这是我的,用ADO,和楼上差不多了.>