vb 将text、combo、DTPicker1等里面的数据写入ACCESS数据库问题

答案:2 悬赏:20 手机版

解决时间 2021-03-08 00:54

提问者网友：niaiwoma
2021-03-07 15:30

Dim SQL1 As String
Dim adocn As New ADODB.Connection
Dim adors As New ADODB.Recordset

adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.100\\NJWN资料共享\chaijian\bizhub.mdb;Persist Security Info=false"
adocn.Execute "select * from 拆件"
SQL1 = "INSERT INTO 拆件 (机器型号,包装条形码,机器所属,操作人员,操作记录,操作日期,是否完成,备注,是否归还) VALUES('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" & Text5.Text & "','" & DTPicker1 & "','" & Combo2.Text & "','" & Text4.Text & "','" & Combo3.Text & "')"
adocn.Execute SQL1
adocn.Close
Adodc.Refresh

运行后输入数据 vb提示 ”操作必须是一个可更新的查询“ 这个该怎么解决啊？

最佳答案

五星知识达人网友：舍身薄凉客
2021-03-07 16:01

adocn.Close,注意这句,连接关了,下面的查询记录集从哪取数?
再说你的Adodc也没有SET 呀.它到底是指向哪个adocn.Execute

全部回答

1楼网友：平生事
2021-03-07 16:42

在combo的onchange事件中写代码：绑定texte的ado1.locate(combo1.text,字段名,游标类型)，vb我很久不用了，思路是这样的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息