我有一段查询数据库的程序，要将符合条件的记录用datagrid显示出来。可是用datagrid要用到adodc，我用了两个窗体，一个输入条件，名为conre，一个显示datagrid，名为require。我写了如下代码，想用conre的输入条件控制require中adodc1的数据源recordsouce。require的adodc1的属性里填了connectionstring，recordsouce没填。
conre的代码如下：
Private Sub Command1_Click()
 If Combo1.Text = "请输入字段" Or Text1.Text = "" Then
  inta = MsgBox("请输入字段名和字段值", 21, "错误")
  Exit Sub
 End If
 If Combo1.Text = "date" Then
  require.Adodc1.RecordSource = "select * from ma where date=" & "#" & Text1.Text & "#"
 Else
  require.Adodc1.RecordSource = "select * from ma where" & " " & Combo1.Text & Combo2.Text _
  & "'" & Text1.Text & "'"
 End If
 require.Show
 Combo1.Text = "请选择字段"
 Text1.Text = ""
End Sub

Private Sub Form_Load()
  Combo1.AddItem "number"
  Combo1.AddItem "name"
  Combo1.AddItem "date"
  Combo1.AddItem "provider"
  Combo1.AddItem "stock_place"
  Combo1.AddItem "note"
  Combo2.AddItem "="
  Combo2.AddItem "like"
End Sub
可是运行后发生错误，显示：[adodc]：没有指定纪录源。[ado]没有为命令对象设置命令。
我也曾尝试用ado对象，用查询条件生成记录集rs，但rs怎么和adodc1联系上？
麻烦高手指点！

你的Adodc1在require窗体中，而你在conre窗体调用Adodc1时，require窗体并没有加载，所以显示：[adodc]：没有指定纪录源。[ado]没有为命令对象设置命令。

不行啊！我在conre的form_load里设了load require，结果也一样啊！
我想是adodc1的resource只能在属性里设。本来在属性里也可以设查询语句，但是查询语句里不能有变量，所以就不好办了。
另一条路是将通过查询生成的记录集rs与adodc1联系上，才能使用datagrid。可是怎么联系上呢？
要求是必须使用datagrid显示（含变量的）查询生成的记录！
特向高手们请教！


[ 本帖最后由 冰雪清风 于 2009-11-23 21:41 编辑 ]

请高手们多多帮忙！谢谢了！

[ 本帖最后由 冰雪清风 于 2009-11-23 21:41 编辑 ]

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaaa.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from xxxx"
Adodc1.Refresh

set DataGrid1.recordsource = Adodc1
这样就可以了

你添加一个模块嘛，添加两个全局变量，一个用来记录查询方式，一个用来记录查询值，然后再require窗体中来编写查询语句。

好像咱两都碰到这个问题

datacombo和adodc控件，我都想在窗口load的时候初始化，就是执行不了！！！

Private Sub Form_Load()
Dim sql As String

sql = "provider=microsoft.jet.oledb.4.0;" & _
   "data source=C:\Documents and Settings\Administrator\桌面\stud.mdb;" & _
   "persist security info=false"
Adodc1.ConnectionString = Trim(sql)
Adodc1.RecordSource = "select * from prof"


DataCombo1.RowSource = Adodc1——————提示“未找到方法或数据成员”
DataCombo1.ListField = Adodc1.Recordset.Fields("专业")
End Sub

过来看看