Question

简单的VB程序提示：参数不足 期待是1

我不太懂VB和ACCESS，照网上的例子依葫芦画瓢做了个工资查询软件，功能就是输入姓名，显示工资。现在一打开就提示：参数不足 期待是1，麻烦高手解决下哦。
1、一个文件名为"gongzi,mdb"的文件，里面有salary的表，表里有“姓名”（文本数据类型）和“实发工资”（文本数据类型）字段，和VB生成的EXE应用程序放在一个文件夹。
2、VB6.0新建了一个工程，添加了窗体1和模块1。
界面很简单，就一个"请输入姓名"的Textbox，和一个“确定”的commadnbutton

首先引用了“Microsoft DAO 3.6 Object Library”和“Microsoft ActiveX Data Objects 2.6 Library”，然后新建了一个模块1，代码是：
Public db As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Sub SJK(db)
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\gongzi.mdb"
db.Open
End Sub

窗体的代码是：
Dim strSQL As String
Private Sub Command1_Click()
Call SJK(db)
strSQL = "Select * from salary where 姓名='" & Text1.Text & "'"
RS.Open strSQL, db, 2, 2
If Not RS.EOF Then
MsgBox "姓名为" & Text1.Text & "的实发工资是：" & RS!实发工资
End If
RS.Close
Set RS = Nothing
End Sub

Private Sub Form_Load()
End Sub

然后生成的程序一点就提示：参数不足 期待是1，是不是我前面两个字段选择的是文本数据类型，后面引用错了，麻烦高手指导下啊！！！

Answer 1

strSQL = "Select * from salary where 姓名='" & Text1.Text & "'"
这一句的参数不够导致.应该改成
strSQL = "Select 实发工资 from salary where 姓名='" & Text1.Text & "'"

追问

还是不行呀，提示参数不足，提示是2。。。

追答

我重新写了一下你看看吧.

这个是数据库

这个是查询结果

附件里面是源码.

这里RS.Open strSQL, db, 2, 2和RS.Open strSQL, db, 1, 3都是可以的.之所以使用RS.Open strSQL, db, 1, 3是为了如果你需要修改的话就使用RS.Open strSQL, db, 1, 3如果只是查询就使用RS.Open strSQL, db, 2, 2一个是只读权限一个修改权限

 

Answer 2

RS.Open strSQL, db, 3, 1 试试看

追问

你这改法也一样，还是提示参数不足，提示是1，上面那个改法提示是2.