原来是这样的
Private Sub UserInfo_Click()
If add = False And modify = False Then
With userinfo.SelectedItem
EditUser.Text = .Text
End With
strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
conn.Open
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
Password = rs("密码")
rs.Close
conn.Close
CmdModify.Enabled = True
Else: MsgBox "请保存后再操作!", 48, "系统提示"
End If
End Sub后来我把strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
增加了一点变成 strSQL = "select 密码 from 账号 where 类型ID = 1 and 用户名 = '" & EditUser.Text & "'"
然后就报错了说”至少有一个参数没有被指定值“
错误地方指示rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic这句代码
请高手解答
Private Sub UserInfo_Click()
If add = False And modify = False Then
With userinfo.SelectedItem
EditUser.Text = .Text
End With
strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
conn.Open
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
Password = rs("密码")
rs.Close
conn.Close
CmdModify.Enabled = True
Else: MsgBox "请保存后再操作!", 48, "系统提示"
End If
End Sub后来我把strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
增加了一点变成 strSQL = "select 密码 from 账号 where 类型ID = 1 and 用户名 = '" & EditUser.Text & "'"
然后就报错了说”至少有一个参数没有被指定值“
错误地方指示rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic这句代码
请高手解答
解决方案 »
- vb窗体求助
- MSFlexGrid1 问题
- 怎么在VB程序中新建 一个WEB站点
- 一个关于数据库里时间查找的简单问题,紧急!谢谢了!
- 我用了SELTEXT是RICHTEXTBOX中的字体发生了改变,可是随后输入的字符也随着改变,如何,不随着改变呢?
- 请问winsock同时处理多个连接进行传输的情况下效率如何?
- 为什么winsock发送文件只能在10k以内。大于10k就发不出去了!怎么处理!!苦哇!!
- 我用html help workshop做帮助文件,编译完后,为什么有点图片不能显示呀>?
- 请简明叙述怎样收发邮件
- 请问斑竹现在给不了分了,如何给分(无内容)
- MSFlexGrid得问题
- 关于关闭窗体
code]
1.请检查红色标记出的字段是否和数据库中的一致!
2.断点是在rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic这句代码,但实际上还是SQL语句的错!