UC知道vb程序里有个问题关于SQL里的表
来源：百度知道 编辑：UC知道 时间：2024/05/21 17:32:53
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs_mima As New ADODB.Recordset
Dim sql As String
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Exit Sub
Else
sql = "select * from 用户表 where user_ID='" & username & "'"
rs_mima.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_mima.Fields(1) = Text1.Text
rs_mima.Update
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
问下各位大虾，这里的USERNAME是什么，是我在SQL那里的用户表里有个userna
Dim conn As New ADODB.Connection
Dim rs_mima As New ADODB.Recordset
Dim sql As String
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Exit Sub
Else
sql = "select * from 用户表 where user_ID='" & username & "'"
rs_mima.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_mima.Fields(1) = Text1.Text
rs_mima.Update
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
问下各位大虾，这里的USERNAME是什么，是我在SQL那里的用户表里有个userna
这个USERNAME应该是你TEXT1的内容
你需要在前面定义
username=text1.text
rs_mima.Open sql, conn, adOpenKeyset, 这个是数据库的下级的游标类型 ,值是1
adLockPessimistic 这个是打开数据库的锁类型,值是2
rs_mima.Fields(1) = Text1.Text
rs_mima.Update
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub