高校问答北京17.5影城今日电影:VB连接数据库的问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 02:48:00
Private Sub Form_Load()
Me.Caption = Me.Caption & " " & frmmain.StatusBar1.Panels(2).Text
rs1.Open "lbtb", cnn, adOpenStatic, adLockOptimistic, adCmdTable
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do While rs1.EOF = False
Combo1.AddItem rs1.Fields("书籍类别")
rs1.MoveNext
If rs1.EOF Then Exit Do
Loop
End If
rs1.Close
clear
DT1.Value = Date
End Sub
第四行和第五行它总是显示实时错误3001参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突
Me.Caption = Me.Caption & " " & frmmain.StatusBar1.Panels(2).Text
rs1.Open "lbtb", cnn, adOpenStatic, adLockOptimistic, adCmdTable
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do While rs1.EOF = False
Combo1.AddItem rs1.Fields("书籍类别")
rs1.MoveNext
If rs1.EOF Then Exit Do
Loop
End If
rs1.Close
clear
DT1.Value = Date
End Sub
第四行和第五行它总是显示实时错误3001参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突
语法没有问题！
是你连接的问题，你在连接时加上下面这句代码！
con.CursorLocation=adUseClient
你用的记录集用的是乐观锁，有时rs.RecordCount取不出值来的！
我们学的时候记得老师就说最好不要用RecordCount这个属性！