Question

求VB数据库SQL查询在DATAGRID显示结果的完整代码

自己写的总是有这样那样的错误，代码已经推倒重来N次，还是有问题，希望高手能给个完整的代码来研究下。

Answer 1

'工程－部件
'Microsoft ADO Data Control...
'Microsoft DataGrid Control 6.0

Private Sub Form_Load()
Adodc1.ConnectionString = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
Adodc1.RecordSource = "select * from ask_info"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
End Sub

上面代码是以sql server数据库为例的
test是数据库名，sa是用户，123是密码

如果数据库是access的，那么：
Adodc1.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\a.mdb"

Answer 2

dim conn as new adodb connection
set datagrid1.datasource=conn.execute("sql查询语句")
就这样就可以了

Answer 3

Dim rs As Recordset

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 表名 where 要查询的字段 like + '" & Text1.Text & "'+ '%'"

Set DataGrid1.DataSource = rs
Adodc1.Refresh
DataGrid1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

PS:Command1是查询按纽;Text1是查询时输入的文本框;另外Adodc1和DataGrid1的基本属性设置正确就OK了.