我想让我表中的数据 跟我的text对应 我是这么写的 你们看哪里有错?? 这个update语法我不太了解 请指点一下 Dim ID As String
Dim Name As String
Dim sex As String
Dim Email As String
Dim bz As String
Dim Phone As String
Dim bNo As String
Dim sdate1 As String
Dim zt1 As String
'让变量字符串=text
ID = idt.Text
Name = namet.Text
sex = sexc.Text
Email = emailt.Text
Phone = phonet.Text
bNo = bnot.Text
sdate1 = Format(DTPicker1.value, "yyyy-mm-dd")
bz = bzt.Text
zt1 = zt.Text
On Error GoTo err
Dim sqlstr As String
sqlstr = "update 用户表 set('" & ID & "','" & Name & "','" & sex & "','" & Email & "','" & Phone & "','" & bNo & "','" & sdate1 & "','" & bz & "','" & zt1 & "') where('" & ID & "','" & Name & "','" & sex & "','" & Email & "','" & Phone & "','" & bNo & "','" & sdate1 & "','" & bz & "','" & zt1 & "')"
Conn.Execute sqlstr
MsgBox "更新成功", vbExclamation, "提示"
plus.Enabled = True
Search_Go borrower.fg, "用户表", "ID", ""
Exit Sub
err:
MsgBox "错误:" & err.Description, vbExclamation, "提示"
End Sub
Dim Name As String
Dim sex As String
Dim Email As String
Dim bz As String
Dim Phone As String
Dim bNo As String
Dim sdate1 As String
Dim zt1 As String
'让变量字符串=text
ID = idt.Text
Name = namet.Text
sex = sexc.Text
Email = emailt.Text
Phone = phonet.Text
bNo = bnot.Text
sdate1 = Format(DTPicker1.value, "yyyy-mm-dd")
bz = bzt.Text
zt1 = zt.Text
On Error GoTo err
Dim sqlstr As String
sqlstr = "update 用户表 set('" & ID & "','" & Name & "','" & sex & "','" & Email & "','" & Phone & "','" & bNo & "','" & sdate1 & "','" & bz & "','" & zt1 & "') where('" & ID & "','" & Name & "','" & sex & "','" & Email & "','" & Phone & "','" & bNo & "','" & sdate1 & "','" & bz & "','" & zt1 & "')"
Conn.Execute sqlstr
MsgBox "更新成功", vbExclamation, "提示"
plus.Enabled = True
Search_Go borrower.fg, "用户表", "ID", ""
Exit Sub
err:
MsgBox "错误:" & err.Description, vbExclamation, "提示"
End Sub
Conn.Execute sqlstr