VB实现查询功能。

有各最简单方法就是使用ado控件，它可以方便的链接数据库，具体方法你去网上查查看，有很多介绍的

在vb中利用ado控件执行查询可以这样

adodc1recordsource="你写的查询语句"

然后你把返回的adodc1记录集赋给datagrid控件

如ddatagrid1datasource=adodc1

这样就可以了

其实利用ado做查询，使用代码最方便，可以稍微复杂些，如果你有兴趣可以去网上查

1在VB界面选“工程”菜单－》“部件”菜单项，系统打开“部件”对话框

选择2个

ADO

控件，即“Microsoft

ADO

Data

Control

60”（简称ADODC）和“Microsoft

DataGrid

Control

60”。这两个控件前者用来连接数据库，用于以

表格

形式显示数据库表的内容。

2在VB界面中加入ADODC及DataGrid，设置ADODC的ConnectionString属性。选择该属性，单击“”按钮，系统打开对话框，单击“生成”按钮，系统显示“数据连接属性”，在提供程序中选择“MicrosoftJetOLEDB40”，在连接中选择填写数据库表的

名称

，最后单击“确定”

3设置ADODC的RecordSource属性，打开

属性页

，在命令类型中选择“1－adCmdText”，命令文本中输入数据库的命令（如select

from

表名

where

查询条件）

4设置DataGrid的“DataSource”为ADODC的名称

5然后就是编程问题了。明天继续

如还有问题加我QQ:272388243

请注明加我的理由

代码连接access

首先 工程---引用，在可引用的引用中将microsoft activex data objects 28 library和microsoft activex data objects recordset 28 library勾选

然后定义

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Set cn = New ADODBConnection

Set rs = New ADODBRecordset

定义好后连接数据库

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath + "/newsmdb;"

cnOpen

其中数据库为当前路径下的newsmdb，

打开数据库

sql语句自己写

rsopen sql,cn,3,1

这样数据库中sql语句找到的记录都在rs中

MSFlexGrid1Top = 950

MSFlexGrid1CellTextStyle = flexTextInsetLight

MSFlexGrid1Rows = 7 '设置总行数

MSFlexGrid1Cols = 8 '设置总列数

MSFlexGrid1GridColor = &H404040 '网格颜色

MSFlexGrid1ForeColor = &HFFCCCC '字体颜色

MSFlexGrid1BackColor = vbBlack

MSFlexGrid1GridLines = 1 '设置网格线的属性

MSFlexGrid1GridLineWidth = 1 '设置网格线的粗细程序，默认为1

MSFlexGrid1控件的一部分设置，自己找属性看看其他设置

将数据写入表格中

MSFlexGrid1TextMatrix(0, 0) = "名称"

MSFlexGrid1TextMatrix(0, 1) = "最新价"

MSFlexGrid1TextMatrix(0, 2) = "涨跌"

MSFlexGrid1TextMatrix(0, 3) = " 成交数"

MSFlexGrid1TextMatrix(0, 4) = "名称"

MSFlexGrid1TextMatrix(0, 5) = "最新价"

MSFlexGrid1TextMatrix(0, 6) = "涨跌"

MSFlexGrid1TextMatrix(0, 7) = "成交数"

将rs中的数据写入表格

for i=0 to 5

MSFlexGrid1TextMatrix(i, 1) = rs("数据库字段")

rsmovenext

next

以上就是关于VB实现查询功能。全部的内容，包括:VB实现查询功能。、怎么在VB中通过某个条件查询access数据库并显示出所有字段、VB连接 ACCESS数据库 并实现查询功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！