VB+Access,紧急求教!!!!!!!!!!!!!!!!1

Question

cnn.Open "Driver=Microsoft Access Driver (*.mdb);dbq=" & sTmp, , sTmp1
sqlstr = "select * from Dbsj"
recc.Open sqlstr, cnn
With recc
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .AddNew
     .Fields("Dbsjh").Value = .RecordCount + 1
     .Fields("Dbsjzs").Value = Now
     .Fields("Dbsjnr").Value = Trim$(Text2.Text)
     .Fields("Dbsjtx").Value = recN
     .Fields("Dbsjjhwc").Value = str1
     .Update
     .UpdateBatch adAffectAllChapters
End With
你的连接字符串好怪cnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\user.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstr

Answer 1

cnn.Open "Driver=Microsoft Access Driver (*.mdb);dbq=" & sTmp, , sTmp1
sqlstr = "select * from Dbsj"
recc.Open sqlstr, cnn
With recc
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .AddNew
     .Fields("Dbsjh").Value = .RecordCount + 1
     .Fields("Dbsjzs").Value = Now
     .Fields("Dbsjnr").Value = Trim$(Text2.Text)
     .Fields("Dbsjtx").Value = recN
     .Fields("Dbsjjhwc").Value = str1
     .Update
     .UpdateBatch adAffectAllChapters
End With
你的连接字符串好怪cnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\user.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstr

Answer 2

cnn.Open "Driver=Microsoft Access Driver (*.mdb);dbq=" & sTmp, , sTmp1
sqlstr = "select * from Dbsj"
recc.Open sqlstr, cnn
With recc
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .AddNew
     .Fields("Dbsjh").Value = .RecordCount + 1
     .Fields("Dbsjzs").Value = Now
     .Fields("Dbsjnr").Value = Trim$(Text2.Text)
     .Fields("Dbsjtx").Value = recN
     .Fields("Dbsjjhwc").Value = str1
     .Update
     .UpdateBatch adAffectAllChapters
End With
你的连接字符串好怪cnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\user.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstr

Answer 3

你在程序中 .Fields("Dbsjh").Value = .RecordCount + 1
这样的写法是不正确的，刚打开的时候RecordCount取出来的数值是不正确的，不是你希望的数值

Answer 4

你的代码中.Fields("Dbsjh").Value = .RecordCount + 1
这条语句有问题，.RecordCount得到的不是你需要的结果。

Answer 5

cnn.Open "Driver=Microsoft Access Driver (*.mdb);dbq=" & sTmp, , sTmp1这个是不受限制的,你的那个限制了PROVIDER,可能别的没有你这个4.0的哟谢谢帮忙,不过好像没有用

Answer 6

更正daryl715(海军少校)的答案，游标类型和锁类型要在Recordset打开前设置。cnn.Open "Driver=Microsoft Access Driver (*.mdb);dbq=" & sTmp, , sTmp1
sqlstr = "select * from Dbsj"
recc.CursorType = adOpenKeyset
recc.LockType = adLockOptimistic
recc.Open sqlstr, cnn
With recc
     .AddNew
     .Fields("Dbsjh").Value = .RecordCount + 1
     .Fields("Dbsjzs").Value = Now
     .Fields("Dbsjnr").Value = Trim$(Text2.Text)
     .Fields("Dbsjtx").Value = recN
     .Fields("Dbsjjhwc").Value = str1
     .Update
     .UpdateBatch adAffectAllChapters
End With