vb如何把选中的access数据进行修改 rt
答案:5 悬赏:20 手机版
解决时间 2021-02-09 11:17
- 提问者网友:浩歌待明月
- 2021-02-09 02:23
vb如何把选中的access数据进行修改 rt
最佳答案
- 五星知识达人网友:北方的南先生
- 2021-02-09 03:21
1、对于选中的记录修改其字段值,然后更新记录集即可。
2、工具:vb6
3、用adodc连接数据库,用find方法(也可以使用其它方法)选中记录,用Fields().Value修改字段值,用update更新记录集,代码示例如下:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Categories"
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
Debug.Print Adodc1.Recordset.RecordCount
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.Find "CategoryID=" & Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Fields("CategoryName").Value = Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
End Sub
4、注意:本例中可以不使用Requery重新查询,但使用它是好习惯。
2、工具:vb6
3、用adodc连接数据库,用find方法(也可以使用其它方法)选中记录,用Fields().Value修改字段值,用update更新记录集,代码示例如下:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Categories"
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
Debug.Print Adodc1.Recordset.RecordCount
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.Find "CategoryID=" & Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Fields("CategoryName").Value = Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
End Sub
4、注意:本例中可以不使用Requery重新查询,但使用它是好习惯。
全部回答
- 1楼网友:大漠
- 2021-02-09 07:47
例如修改用户名称和密码
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名称") = Trim(Text1.Text)
Adodc1.Recordset.Fields("用户密码") =Trim(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名称") = Trim(Text1.Text)
Adodc1.Recordset.Fields("用户密码") =Trim(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
- 2楼网友:神鬼未生
- 2021-02-09 07:31
用update 表名 set 字段1=值1,字段2=值2……where 主键=值语句
数据库都是用SQL语句的。
数据库都是用SQL语句的。
- 3楼网友:笑迎怀羞
- 2021-02-09 05:58
rs.Open "select * from 表名 where 列明 = '原来的值'', cn, adOpenKeyset, adLockOptimistic
rs("列名")="修改后的值"
rs.update
rs.close
rs("列名")="修改后的值"
rs.update
rs.close
- 4楼网友:春色三分
- 2021-02-09 04:56
update。。。。。。
只能说这么多了 剩下的就看悟性了
只能说这么多了 剩下的就看悟性了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯