关于OpenRecordset

Question

Set rs2 = db.OpenRecordset(sql1, dbOpenDynaset)提示‘参数不足，期待是1’相同的 语句在别的地方就没有 问题

Answer 1

Set db = OpenDatabase(App.Path & "\db1.mdb", False, False)
Dim rs1 As RecordsetDim sql As String
    sql = "select 表信息.* from 表信息 where 表信息.表类型=字典 "
    
    Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
    If rs1.RecordCount > 0 Then
        rs1.MoveFirst
        Do Until rs1.EOF
            Combo1.AddItem (rs1.Fields("表内容"))
            rs1.MoveNext
        Loop
        
    End If

Answer 2

Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)问题出在这句话上~如果想用RecordCount 就必须要  rs.Open , conn,adOpenStatic 用静态的~ 要不就
If rs1.eof as rs1.bof  Then
        rs1.MoveFirst
        Do Until rs1.EOF
            Combo1.AddItem (rs1.Fields("表内容"))
            rs1.MoveNext
        Loop
        
End Ifconn是 连接字符串，这个你可能没有写~~~说实话我对，RDO不是很了解~

Answer 3

rs.Open , conn,adOpenStatic 
改为
rs.Open SQL, conn,adOpenStatic 

Answer 4

Set rs2 = conn.execut sql