UC知道关于VB 更新ACCESS 总出错，哪位大侠帮忙看看哪错了！！！
来源：百度知道 编辑：UC知道 时间：2024/06/08 06:11:22
Private Sub Command1_Click()
Dim gaimimasql As String
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
Set mycn = New ADODB.Connection
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;" '设置数据库的连接
myrs.Open "SELECT * FROM [user] where (user.user)='" + Text1.Text + "';", mycn, adOpenKeyset, adLockpressimistic '注意这里的游标类型和锁定类型
If myrs.BOF = True And myrs.EOF = True Then
MsgBox "查无此人", , "登陆信息"
Else
If myrs("pass") = Text2.Text Then
gaimimasql = "update user set pass=" & CStr(Text3.Text) & " where user =" & mname
mycn.Execute gaimimasql
Unload Me
'''''''''''''''''''''''''''&#
Dim gaimimasql As String
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
Set mycn = New ADODB.Connection
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;" '设置数据库的连接
myrs.Open "SELECT * FROM [user] where (user.user)='" + Text1.Text + "';", mycn, adOpenKeyset, adLockpressimistic '注意这里的游标类型和锁定类型
If myrs.BOF = True And myrs.EOF = True Then
MsgBox "查无此人", , "登陆信息"
Else
If myrs("pass") = Text2.Text Then
gaimimasql = "update user set pass=" & CStr(Text3.Text) & " where user =" & mname
mycn.Execute gaimimasql
Unload Me
'''''''''''''''''''''''''''&#
出什么错，在哪里出错
gaimimasql = "update [user] set pass=" & CStr(Text3.Text) & " where user ='" & mname & "'"
试试看
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;" '设置数据库的连接
set myrs=Server.CreateObject("ADODB.Recordset")'没有加载记录集对象
'修改下面语句
myrs.Open "SELECT * FROM 数据表名 where 字段名='" & Text1.Text & "'", mycn, 3, 3 '注意这里的游标类型和锁定类型