回 帖 发 新 帖 刷新版面

主题:一个简单问题

修改密码的代码 
这个好像不难我也写了但是就是没用
所以来这里请教高手。我的运行环境是Microsoft Visual Studio .NET 2003
我的如下:
  Dim tablename As String
        tablename = "userid"
        searchSQL = "select * from userid where (用户名='" & TextBox1.Text & "')"
        Try
            ExecuteSQL(searchSQL, tablename)
            If myrow.Item(1) = TextBox2.Text Then
                myrow.Item(1) = TextBox3.Text
                mytable.GetChanges()
                cmd = New OleDbCommandBuilder(ADOcmd)
                ADOcmd.Update(ds, tablename)
                MsgBox("密码修改成功!", vbOKOnly + vbExclamation, "警告")
                Me.Hide()
            Else
                Exit Sub
       End If
        Catch
            MsgBox("没有该用户!", vbOKOnly + vbExclamation, "警告")
        End Try
请高手指点。谢谢!!

回复列表 (共6个回复)

沙发

Dim tablename As String = "userid"
     searchSQL = "select * from [userid] where 用户名='" & TextBox1.Text & "'"
        Try
            ExecuteSQL(searchSQL, tablename)
            If myrow.Item(1) = TextBox2.Text Then
                myrow.Item(1) = TextBox3.Text
               cmd = New OleDbCommandBuilder(ADOcmd)
                ADOcmd.Update(ds, tablename)
  mytable.GetChanges()
                MsgBox("密码修改成功!", vbOKOnly + vbExclamation, "警告")
                Me.Hide()
            Else
                
MsgBox("没有该用户!", vbOKOnly + vbExclamation, "警告")

       End If
        Catch
                   End Try

板凳

我个人觉的:
  能简单的就尽量简单,没必要多写;

3 楼

还是不行!!!没有任何错误提示。可以运行到MsgBox("没有该用户!", vbOKOnly + vbExclamation, "警告")

数据库有连接上。
就是不能修改密码。高手指点呀!

4 楼

首先你把你的SQL语句放到SQL里面执行一下看是否正确
如果正确在检查你的代码 否则就是SQL语句有问题

5 楼

searchSQL = "select * from userid where (用户名='" & TextBox1.Text & "')"
sql 语句里,where 条件不用加括号的。
很有可能是你的sql语句出错了。

6 楼

这个问题出来了
原来了因为userid表没有主键导致的。

我来回复

您尚未登录,请登录后再回复。点此登录或注册