Question

vb6.0 Adodc 和 DataGrid 控件怎么编写查询语句，让查询结果显示在DataGrid1中

我有4个控件 分别是：Adodc1 DataGrid1 Text1 Command1 Combo1
Adodc1数据库已经连接好，可以把一个表里面的数据全显示在DataGrid1中了
我的问题是：编写Command1的单击事件 查询指定数据库中的商品名称或编号，然后把查询符合条件的结果显示在DataGrid1中， Text1是查询的条件。
Combo1中有下拉菜单选择 一些查询的条件
具体该怎么做 代码是什么

Answer 1

给你做了一个简单的例子，后面有源代码

Option Explicit

Private Sub Command1_Click()
Dim s1 As String
Dim s_id As String
Dim s_nam As String
If Text1.Text = "" Then
s_id = "%"
Else
s_id = Text1.Text
End If

If Text2.Text = "" Then
s_nam = "%"
Else
s_nam = Text2.Text
End If
s1 = "select * from goods where id like '" + s_id + "' and nam like '" + s_nam + "'"
Adodc1.RecordSource = s1
Adodc1.Refresh
End Sub

http://cid-05933acb20c5c0e7.office.live.com/self.aspx/.Public/demo_query.rar