VB读取access数据,该如何解决
VB读取access数据
我有一个access数据表路劲d:/1.mdb
表格内容如上图。我想在vb里面建立3个text分别用来输入
product_code
kiban_name
serial_id
然后点击确定按钮就判断mdb里面有没有我输入的这3个对应的数据，如果有就把chk_flg的对应的值修改成1并提示。
------解决方案--------------------
我有一个access数据表路劲d:/1.mdb
表格内容如上图。我想在vb里面建立3个text分别用来输入
product_code
kiban_name
serial_id
然后点击确定按钮就判断mdb里面有没有我输入的这3个对应的数据，如果有就把chk_flg的对应的值修改成1并提示。
------解决方案--------------------
Dim cn As ADODB.Connection, n As Long
Set cn = New ADODB.Connection
cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\1.mdb;"
cn.Execute "UPDATE chk_serial SET chk_flg = 1 WHERE product_code='" & Text1 & "' AND kibam_name ='" & Text2 & "' AND serial_id = '" & Text3 & "'", n
cn.Close
Set cn = Nothing
If n Then MsgBox "Updated"