用ado建立连接,并用记录集打开一个表 private cn as adodb.connection private rs as adodb.recordsetprivate function OpenDatabase() set cn=new adodb.connection set rs=new adodb.recordset cn.open "DSN=your dsn name" rs.open "Select * from 表名",cn,3,3end function
Set DsnCon = New ADODB.Connection Set dsnRec = New ADODB.Recordset
private cn as adodb.connection
private rs as adodb.recordsetprivate function OpenDatabase() set cn=new adodb.connection
set rs=new adodb.recordset
cn.open "DSN=your dsn name"
rs.open "Select * from 表名",cn,3,3end function
Set dsnRec = New ADODB.Recordset
DsnCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & 数据库文件名 & ";User ID=;Password=;"
DsnCon.Open
DsnCon.CursorLocation = adUseClient
dsnRec.Open sqlStr, DsnCon, adOpenDynamic, adLockOptimistic
DsnCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
& App.Path & 数据库文件名 & ";User ID=;Password=;"