杭州交通信息网浙江万泰化工有限公司:vb rs.bookmork
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 15:03:29
楼下的那位不行
With Adodc1
.ConnectionString = conn
.CommandType = 8
.RecordSource = "select * from TABLE"
.Refresh
end with
我用这样的方式连接的,你说的两种我早实验过不行的
先定义变量:
Dim varBookmark As Variant
指定Bookmark
varBookmark = rs.Bookmark
跳转到Bookmark
rs.Bookmark = varBookmark
============
晕啊,我以为你标题上的rs表示的是Adodc1.Recordset呢
这样的话也好办
指定Bookmark
varBookmark = Adodc1.Recordset.Bookmark
跳转到Bookmark
Adodc1.Recordset.Bookmark = varBookmark
再附段代码,例如:
Private Sub Command1_Click()
Dim varBookmark As Variant
With Adodc1.Recordset
.MoveFirst
varBookmark = .Bookmark
.AddNew .Fields.Item(0).Name, Rnd
.Bookmark = varBookmark
.Update .Fields.Item(0).Name, Rnd
End With
End Sub
Private Sub Form_Initialize()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySource;"
Adodc1.CommandType = 8
Adodc1.RecordSource = "select * from MyTable"
Adodc1.Refresh
End Sub
我是让DataGrid1指向它的;这段代码的作用是,添加新记录,并更新第一条