UC知道VB 更新记录的问题
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:48:17
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset, X As Integer
X = card_list.MSHFlexGrid1.TextMatrix(card_list.MSHFlexGrid1.Row, 0)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password="
strSQl = "SELECT autoid,name,sex,mobile,birth,phone,email,company,remark FROM address_list "
'rs.Open strSQl, conn, 1, 1
Set rs = New ADODB.Recordset
rs.Open strSQl, conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Dim Sql As String
Sql = "update address_list set name='" & name2.Text & "',sex='" & sex.Text & "',mobile='" & mobile.Text & "',birth='" & birth.Value & "',phone='" & phone.Text & "',email='" & email.Text & "',company='" & company.Text & "',remark='" & remark.Text & "' where aut
X = card_list.MSHFlexGrid1.TextMatrix(card_list.MSHFlexGrid1.Row, 0)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password="
strSQl = "SELECT autoid,name,sex,mobile,birth,phone,email,company,remark FROM address_list "
'rs.Open strSQl, conn, 1, 1
Set rs = New ADODB.Recordset
rs.Open strSQl, conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Dim Sql As String
Sql = "update address_list set name='" & name2.Text & "',sex='" & sex.Text & "',mobile='" & mobile.Text & "',birth='" & birth.Value & "',phone='" & phone.Text & "',email='" & email.Text & "',company='" & company.Text & "',remark='" & remark.Text & "' where aut
Sql = "update address_list set name='" & name2.Text & "',sex='" & sex.Text & "',mobile='" & mobile.Text & "',birth='" & birth.Value & "',phone='" & phone.Text & "',email='" & email.Text & "',company='" & company.Text & "',remark='" & remark.Text & "' where autoid=" & x
sql里面的最后一个X不要写在里面.
前面的不就不打了,最后一个这样改
``````remark.Text & "' where autoid=" & x改成
``````remark.Text & "' where autoid='" & x & "'"