Question

实时错误‘-2147217904（80040e10）’至少一个参数没有被指定值

实时错误‘-2147217904（80040e10）’至少一个参数没有被指定值
代码如下：
sql = "select * from 蒙古文语料样本信息 where " & snum & "and " sname & "and " & sclass & "and" & sauther & "and " & stime

If sql = "select * from 样本信息 where 序号 like '%'and 样本名称 like '%'and 分类 like '%'and 作者 like '%'and 写作时间 like '%'" Then
'清空上一次的查询记录
Call QingKong
MsgBox "请选择查询条件", , "管理系统"
Exit Sub
Else
Call main
Set adors = adoCon.Execute(sql) //问题出在这里
If adors.EOF Then
Call QingKong
MsgBox "对不起，没有符合该查询条件的语料信息！", , "管理系统"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End If
End If
adors.Close
adoCon.Close

Private Sub Rebind()
Frame2.Caption = "蒙古文语料样本信息列表"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\uliger-un svrag janggi.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 样本信息"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub QingKong()
Frame2.Caption = "您所要查询的样本信息如下："
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\uliger-un svrag janggi.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 样本信息 "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\uliger-un svrag janggi.mdb" & ";Persist Security Info=False"
End Sub

我的数据库uliger-un svrag janggi.mdb
问题在于Set adors = adoCon.Execute(sql)
谢谢高手指点！！ 解决了加分
dim adocon as NEW ADODB.connection
sql="select * from 样本信息 where snum like '%" + text1.text + "%'"
set adors = adocon.execute(sql)///这句老是出错

弄过的大哥大姐请帮帮忙!! 谢谢了

Answer 1

Set adors = adoCon.Execute("select * from 用户表 where 用户姓名='" & ltrim(Text1.text) & "' and 密码='" & ltrim(Text2.text) & "' and 用户类型='" & ltrim(Combol.Text) & "'")

ITRIM函数是在VB里面用的，你要是把它也放在了“”中
那么SQL语句中，那错的，就算是你的引号都打对了，这名话也没有办法执行！

字符串连接是很容易搞错的！
不过你只要记住，只可以把在VB程序里取的值放在一对
" & value & " 中，这样一般就不会错了！
还要记住字符串在SQL中是要加上单引号的！

ltrim(Text2.text)这一整句才能返回你需要的数据
所以它们不应该分开！