Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wuzi.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "kucun"
Adodc1.Refresh
End Sub
------------------------------------------
Private Sub DataCombo1_Change()
Dim sql As String
sql = "select * from kucun where 名称 ='" & DataCombo1.BoundText & " '"
Adodc1.RecordSource = sql
Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText

Adodc1.Refresh

End Sub
以上我用adodc绑定了一个MSHFlexGrid1，窗体启动时显示所有的记录，然后在DataCombo1里选择我要查询字段的值，为什么在DataCombo1里选择后，MSHFlexGrid1仍然显示的是全部记录，提示说from子语法错误，对象Refresh的方法IAdodc失败呢？多谢！！！！！！

[此贴子已经被作者于2007-1-2 23:52:07编辑过]

设置一下...的属性为adCmdText试试..

Private Sub DataCombo1_Change()
Adodc1.CommandType = adCmdText
Dim sql As String
sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql

Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText
Adodc1.Refresh
End Sub
我把adodc1的CommandType属性值设为了adCmdText的,运行时,提示至少一个参数没有被指定值,请问怎么回事儿,我是个新手,请多关照.

[此贴子已经被作者于2007-1-3 14:47:12编辑过]

sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql
这行..我想...严重错误.

那应该是两行,不小心复制到一行里了,

那应该是怎么样?.

sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql

Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText
是这样,

不知还有什么属性需要量设置,

我想你应该先把VB的中赋值语句的应用..看看..