VB中ACCESS数据库的查询，并把结果显示在MSHFlexGrid控件里面

用ADO控件做个示范吧。在工程引用中找到Microsoft ADO Data Control 6.0。MSHFlexGrid这个控件要去下载，原装VB6.0没有，他有一个是过时的MSFlexGrid很老的技术，我建议你用DataGrid都比MSFlexGrid好一点，要么就下载一个VSFlexGrid8.0注册一下，他支持鼠标滚轮也很美观。

言归正传，直接拖放ADO控件和表格控件到窗体上，表格控件的DataSource属性（要支持ADO的控件才有）设置成Adodc1(ADO默认名称)，再拖放一个按钮Command1举例，在按钮单击事件中写代码：(有一件事很重要，把VB工程保存到一个新建的文件夹里，把ACCESS数据库也放在里面，作为相对路径文件，就可以随便移动安装了)

Private Sub 按钮名称_Click()

Dim I as String'------------定义变量来存动态数据，节约内存

I = App.Path &"\项目申报.mdb"'----------读取ACCESS文件的相对路径

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0Data Source = " &I

'------------拼接字符串，给连接字符串赋值

Adodc1.RecordSource="Select * From 农业局申报 Where 文件号='"+控件名称+"'"

'-------------创建数据源，查询记录集合

Adodc1.Refresh '-------------激活

End Sub

这样就算是连接数据库，当然你的文件号查询可以做成下拉列表或者显示在有个表单里，点击连接查询，不一定要你去输入，这是做个简单的举例，希望对你有用。

eccess???是access吧

窗体画1个adodc控件（名称adodc1）

adodc1的自定义属性里设置：

通用里：选字符串连接，填入Provider=Microsoft.Jet.OLEDB.4.0Data Source=F:\...\mydb.mdb

‘上面标示连接到一个叫做mydb的数据库，也就是1个access文件

记录源里的SQL写上：SELECT * from txl

’表示读取mydb数据库中一个叫做txl的表中的所有数据

然后将MSHFlexGrid 属性里的Datasource设置为adodc1，即可

rs.Source = “select * from yinshua where 工程单号 = '”&Text7.Text &“'”

再看看返回的结果是不是空的？也就是根本没有内容可显示

在Set MSHFlexGrid1.DataSource = rs之前加上

Set MSHFlexGrid1.DataSource = nothing

试试

---