vb连接access数据库中的修改键运行不出来,不知道是哪的问题

来源:百度知道 编辑:UC知道 时间:2024/07/07 18:02:00
这是我的代码:需要修改序号、姓名等六项内容
Dim comm As ADODB.Connection
Set comm = New ADODB.Connection
comm.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\guanli.mdb"
comm.Open

Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
Me.Caption = "Form1"
classstr = "select * from ziliao where 序号='" & Trim(f1clview.wg1.TextMatrix(f1clview.wg1.Row, 2)) & "'"
mrc.Open classstr, comm, adOpenKeyset, adLockOptimistic

For i = 0 To 5
modyygxx.Text1(i).Text = mrc.Fields(i)
Next i
mrc.Close

:做法很简单;
1。将原【序号】的值;赋给一个变量;
在赋给可修改的modyygxx.Text;
2。修改定位=赋给一个变量
mrc.Fields=modyygxx.Text
......
mrc.update '更新记录。
mrc.close

------
这样表示:您能明白吗?
应该能看懂!!!