主题：关于update语句

Dim t1 As String = e.Form.Controls("textbox1").Value  （t1的数据在打开窗口时已提过来了，没有问题）

Dim t2 As String  = e.Form.Controls("textbox2").Value

Dim t3 As String = e.Form.Controls("textbox3").Value

Dim cmd As New SQLCommand

Dim dr As DataRow

cmd.ConnectionName = "system"

If t2=t3 Then

cmd.CommandText = "Update {用户表} Set [用户密码] = '" & t2 & "'  Where [用户姓名]= '" & t1 & "'"

 Messagebox.show("更改密码成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 e.Form.Close

 

Else

    Messagebox.show("更改密码失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

第一次运行时成功了，后台密码列也改了，但是之后只提示成功，后台数据没有改过来，刚接触foxtable，不知道是哪错了

cmd.CommandText = "Update {用户表} Set [用户密码] = '" & t2 & "'  Where [用户姓名]= '" & t1.trim() & "'"

试了试，还是不行，t1其实就是_username的值，这个每次执行命令后它就已经显示了，因为在afterload  里的语句。然后输入t2,t3的值，上面的是“确定”按钮的代码，是不是我用的update不对呢

你按照我2楼的做了没? 

试了，提的结果和t1显示的人名是一样的。

关键是一直都提示“密码更改成功”，就是后台密码列的密码值还是老的数据，就是不更新，保存关闭在打开也没有更新。

messagebox.show(cmd.CommandText)

 你根本就没执行

 

 

 

Dim t1 As String = e.Form.Controls("textbox1").Value  (t1的数据在打开窗口时已提过来了,没有问题)

Dim t2 As String  = e.Form.Controls("textbox2").Value

Dim t3 As String = e.Form.Controls("textbox3").Value

Dim cmd As New SQLCommand

Dim dr As DataRow

cmd.C

If t2=t3 Then
   
    cmd.CommandText = "Update {用户表} Set [用户密码] = '" & t2 & "'  Where [用户姓名]= '" & t1 & "'"
    If cmd.ExecuteNonQuery > 0 Then
        Messagebox.show("更改密码成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        e.Form.Close
    Else
        Messagebox.show("更改密码失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       
    End If
    
      
Else
   
    Messagebox.show("更改密码失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   
End If

按有点甜的代码试了，成功了，不过  “cmd.C"  这个代码不太明白而且提示有错误，所以把这句代码去了，有关系吗？去掉后，是成功的。

那个是指定数据源名称,内部数据源的话,不用指定