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

来源：百度知道 编辑：UC知道 时间：2024/05/19 11:23:02
自己写的总是有这样那样的错误，代码已经推倒重来N次，还是有问题，希望高手能给个完整的代码来研究下。

'工程－部件
'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"

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

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<