UC知道我在开发数据库的时候，总是出现未找到方法和数据成员
来源：百度知道 编辑：UC知道 时间：2024/06/15 02:40:08
代码如下
Private Sub commmad3_Click()
Dim rs As ADODB.Recordset
Set rs = Record("select * from TABLE1 where 姓名='" & Trim(txtName.Text) & "'", conn)
If rs.RecordCount > 0 Then
If MsgBox("此人已存在，是否修改？", vbYesNo) = vbNo Then Exit Sub
rs.MoveFirst
Else
rs.AddNew
End If
rs("姓名") = Trim(txtName.Text)
rs("手机") = Trim(txtPhone.Text)
rs.Update
End Sub
Private Sub commmad3_Click()
Dim rs As ADODB.Recordset
Set rs = Record("select * from TABLE1 where 姓名='" & Trim(txtName.Text) & "'", conn)
If rs.RecordCount > 0 Then
If MsgBox("此人已存在，是否修改？", vbYesNo) = vbNo Then Exit Sub
rs.MoveFirst
Else
rs.AddNew
End If
rs("姓名") = Trim(txtName.Text)
rs("手机") = Trim(txtPhone.Text)
rs.Update
End Sub
Private Sub commmad3_Click()
Dim rs As ADODB.Recordset
Set rs = Record("select * from TABLE1 where 姓名='" & Trim(txtName.Text) & "'", conn) '这里的写法我没有见过
'你可以写成这样的
set rs=conn.execute("select * from TABLE1 where 姓名='" & Trim(txtName.Text) & "'")
If rs.RecordCount > 0 Then
If MsgBox("此人已存在，是否修改？", vbYesNo) = vbNo Then Exit Sub
rs.MoveFirst
Else
rs.AddNew
End If
rs("姓名") = Trim(txtName.Text)
rs("手机") = Trim(txtPhone.Text)
rs.Update
End Sub