VB错误 80040e0 参数未指定

来源:百度知道 编辑:UC知道 时间:2024/06/06 10:41:21
代码如下:
Me.Combo2.Text和 Me.Combo1.Text中的数据均有程序自动读取写成
应该不会存在书写的错误
究竟时怎么个原因?
Dim scanrs As New ADODB.Recordset
scanrs.CursorLocation = adUseClient
sql = "select " & Me.Combo2.Text & " from " & Me.Combo1.Text & " order by bsf"
scanrs.Open sql, showcnn, adOpenDynamic, adLockPessimistic

真是郁闷,同样,下面这条语句却可以顺利地运行:

textsql = "select " & textstr & " from " & Me.Combo1.Text

Set showconn = New ADODB.Connection
Set pAdoRS = New ADODB.Recordset
showconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Text1.Text & ";Persist Security Info=False"
pAdoRS.CursorLocation = adUseClient
pAdoRS.Open textsql, showconn, adOpenDynamic, adLockPessimistic

于是我尝试将me.combo2.text赋值给SQLtext,发现还是问题照旧!
奇了怪了!
单列数据怎么排序
我要实现的时这样的:
有一个表中数据比较杂乱,值没有排序
现在我要在这个表里面找出数据相同的
比如,表中有:
aa bb cc dd
-----------

sql = "select " & Me.Combo2.Text & " from " & Me.Combo1.Text & " order by bsf"
显然是sql语句有问题,Combo2.Text必须是*或包含bsf列,Combo1.Text必须是可用的表名,Combo1.Text对应的表中必须包含Combo2.Text中的列
另外,如果列名中包含关键字,必须用[]号括起来

补充:
用分组,例
SELECT [aa] FROM [表] GROUP BY [aa] ORDER BY [aa]

Me.Combo2.Text 必须是一个以逗号分隔的字符串才可以 ...