Question

VB添加数据库记录时提示"书签无效"

我是用的是datgrid,连接数据库使用的ADO代码。
我想可能是datagrid本身的原因，那里设置没调整好。我使用其他数据表控件的时候就没有出现这个问题，但是我还是觉得Datagrid要好些，但是添加数据的时候老出现"书签无效",然后再单击一次才能添加进数据，下面是我添加的代码.With rs
.AddNew
.Fields("商品名称") = Text1.Text
.Fields("商品编号") = Text2.Text
.Fields("数量") = Text3.Text
.Fields("单价") = Text4.Text
.Fields("进货日期") = Text5.Text
.Fields("经手人") = Text6.Text
.Update
End With
希望广大高手给予解决。
我是用的是SQL 数据库 连接数据库是使用的ADO 不是控件 关于我代码的问题我已经修改了 问题出在datagrid本身 不知道是设置出问题了还是怎样

Answer 1

1. 在.Update 之后加上 .Requery以便刷新资料

.With rs
.AddNew
.Fields("商品名称") = Text1.Text
.Fields("商品编号") = Text2.Text
.Fields("数量") = Text3.Text
.Fields("单价") = Text4.Text
.Fields("进货日期") = Text5.Text
.Fields("经手人") = Text6.Text
.Requery
.Update
End With

2. 确定宣告rs时有rs.CursorLocation = adUseClient 如下：

rs.CursorLocation = adUseClient
rs.Open TableName, cn, adOpenKeyset, adLockPessimistic

Answer 2

不知道你的系统是vista还是XP,用access2003对XP SP3和Vista，用access对XP SP2一下的版本，连接数据库必须用的与之同时代的版本。
如果还不行再联系我一下吧，共同进步~
邮箱：meng_weilong@qq.com

Answer 3

rs.open后先用个movefirst试试

Answer 4

Fields("商品名称") = '" & Text1.Text & "'
……