数据库新手的问题

Question

    Dim sConnect As String
    Dim sSQL As String
    Dim dfwConn As ADODB.Connection
    Dim RS As Recordset
    
ADO的例子
    sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\YourDB.mdb;"
    sSQL = "* FROM YourTable where ……"
    Set dfwConn = New Connection
    dfwConn.Open sConnect
    
    Set RS = New Recordset
    RS.CursorLocation = adUseServer
    RS.Open sSQL, dfwConn, adOpenDynamic, adLockReadOnly, 1

Answer 1

DAO的例子（引用DAO3.6）：
Dim WS As Workspace
Dim DB As Database
Dim RS As Recordset
Dim SQL As String
SQL = "SELECT * FROM YourTable where ……"
Set WS = CreateWorkspace("", "admin", "", dbUseJet)
Set DB = WS.OpenDatabase("f:\WORK\zls\ZLS.MDB", True, True, ";pwd=")
Set RS = DB.OpenRecordset(SQL, dbOpenDynaset)