编程论坛 → VB6论坛

错误提示:至少一个参数没有被指定值,请指教！

大连新手发布于 2020-12-22 19:24， 1845 次点击

.下面的代码运行后提示:至少一个参数没有被指定值。请教各位大神，哪里出问题了？
private sub command1_click()
dim conn as new ADODB.Connection
dim rs as new ADODB.Recordset
dim ss as string
dim qs as string
ss="Provider=Microsoft.jet.OLEDB.4.0；Data Source=D:\VB开发\VB学习\数据库练习\persion.mdb;Persist Security Info=false"
conn.Open ss
qs="select * from 一般员工 where name=" & Val(text1.text)
rs.Open qs, conn, 1, 3, -1
Label1.Caption=rs.field("姓名")
Label2.Caption=rs.field("性别")
rs.Close
conn.Close
End Sub

6 回复

#2

大连新手2020-12-22 20:16

运行卡在 Conn.open ss

#3

apull2020-12-22 22:29

ss里4.0后面的分号

#4

大连新手2020-12-23 08:22

谢谢！能不能说详细些，分号错在哪里啊？刚接触vb，麻烦你了！

#5

yuma2020-12-23 10:44

以下是引用大连新手在2020-12-23 08:22:10的发言：

谢谢！能不能说详细些，分号错在哪里啊？刚接触vb，麻烦你了！

你那个分号好像是中文分号，应该用英文分号。

#6

apull2020-12-23 10:45

回复 4楼大连新手

你的分号是全角字符；，改成半角字符;

#7

大连新手2020-12-23 11:07

谢谢了！这些编码是手机写的，实际用的是半角。不过现在问题解决了，是我的数据库的问题，再次多谢！

1