一個簡單的問題

Question

MyQuery = "SELECT * FROM salaryin WHERE " & MyQuery
这个不对，where后面应该跟一个条件，比如：salaryin.一个字段名称=" & MyQuery

Answer 1

问题可能出在以下几个地方：
1、可能你的combo1、combo2或者text1的名称不对
2、你的cn不存在，你在之前是否已经打开了cn?
3、你所选择的表salaryin不存在。

Answer 2

happyd 所說是也,反正就是在myquery 那邊報錯,
補充一下
 Combo1.Text & " " & Combo2.Text & " '" & Text1.Text & "'"
其格式就是類似字段名="xxxx"
cn 不存在不是原因,我寫錯了

Answer 3

如果用控件的话,那么就要把connectionstring设置

Answer 4

也许是我不知道，但是你数据源好像定义有问题
Set koko1.DataSource = MyQuery
因为ado需要首先定义连接比如
Dim ADOCon As New ADODB.Connection 
Dim koko1 As New ADODB.Recordset
首先要定义数据源
ADOCon.ConnectionString="... ..."
应用时
set koko1=ADOCon.Execute（MyQuery）
我不知到是不是因为连接问题才不能使你的程序执行。
我想SQL语句不能作为连接串使用给你一个连接串实例！
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& App.Path & "\Control.mdb" & ";Persist Security Info=False"
打开一个Access数据库
楼上有一个同志已经说了！

Answer 5

On Error GoTo OOPS
Dim MyQuery As String
Dim ADOCon As New ADODB.Connection
Dim koko1 As New ADODB.Recordset
ADOCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\salary\personnel.mdb ;Persist Security Info=False"
MyQuery = Combo1.Text & " " & Combo2.Text & " '" & Text1.Text & "'"
MyQuery = "SELECT * FROM salaryin WHERE " & MyQuery
Set koko1 = ADOCon.Execute(MyQuery)
Set DataGrid1.DataSource = koko1
Exit Sub
OOPS:
MsgBox "No Records Found"
這樣還不行啊!

Answer 6

^_^！！我今天早上试了一早上可算是把这个东东弄好了！！
看来是不难，就是不知道要慢慢试才能出来！
你上面的程序离成功就差一点点了！！
其实没有用koko1 的必要！！
只要将
Set DataGrid1.DataSource = koko1
换成
Set DataGrid1.DataSource = ADOCon.Execute(MyQuery）就可以了！！
怎么样是不是特别可恨！！居然结果是这样！！
上面那句是经过我的测试的！！放心用吧！！
我的e－mail是：[email protected]
如果不成功给我发mail