在VB怎么查询数据库中的数据啊！_工具

1一个简单的查询的例子：

'定义一个连接

Dim Conn As ADODBConnection

'定义一个记录集

Dim mrc As ADODBRecordset

'分别实例化

Set Conn = New ADODBConnection

set mrc =New ADODBRecordset

'定义一个连接字符串

dim ConnectString as string

ConnectString="provider=microsoftjetoledb40;data source=" & AppPath & "\data\数据库名mdb;jet oledb:database password=数据库密码"

'打开连接

Conn1Open ConnectString

'定义游标位置

Conn1CursorLocation = adUseClient

'查询记录集(从student表中找出名子为"张三"的记录)

mrcopen "select from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'现在你已经得到了你想要查询的记录集了，那就是mrc

'你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录

set medatagriddatasource=mrc

统计这些问题

：物品

数量

单价

总价

采购人

采购时间

实现功能：

按下“第一页”

以上对应框内显示第一个的内容

按下“下一页”以上对应框内显示下一个的内容，到最后时，d出提示框，已到最后。

按下“上一页”以上对应框内显示上一个的内容，到最前时，d出提示框，已到最前。

同时还应有查找、添加、删除的功能

可以凭借Baiduhi提示我们

有机会能够处理你所遇到的工作

在VB怎么查询数据库中的数据啊！