以下是引用狐狸爸爸在2012-5-17 14:40:00的发言:
绝对有效的,你从何判断是无效的?
注意delect 、update。insert into实在后天操作,你要重新load数据,才能看出变化。
我是从外部数据源预览中看数据变化,在FOXTABLE编程中可以执行但没有变化,在SQL窗口中执行有关命令却有变化,以下是简化的程序:
Dim cmd As New SQLCommand
cmd.C
Dim 新密码 As String =Forms("主页面").Controls("新密码").value
Dim 旧密码 As String =Forms("主页面").Controls("旧密码").value
If 新密码="" Then
msgbox("新密码不能为空!",64,"提示")
Else
cmd.CommandText = "select 密码 From {权限} where 姓名 = '" & 用户 & "'"
Dim 柜员密码 As String = cmd.ExecuteScalar()
If 柜员密码 = 旧密码 And 柜员密码 <> "" Then
Dim ct As String
ct = "Update {权限} set 密码 = '" & 新密码 & "' where 姓名 = '" & 用户 & "'"
cmd.CommandText =ct
msgbox("密码修改成功!",64,"提示")
Forms("主页面").close
画面="画面01"
Forms("主页面").OPEN
Else
msgbox("旧密码输入不正确!",64,"提示")
End If
End If