在VB怎么查询数据库中的数据啊!
通过一个Command控件来查询数据库中的信息,显示在DataGrid里面,,我用的是access2003,数据源是2个不同的表,一个事客户信息表,一个事客户订单表,最好...
通过一个Command控件来查询数据库中的信息,显示在DataGrid里面,,我用的是access2003,数据源是2个不同的表,一个事客户信息表,一个事客户订单表,最好写出代码,谢谢了,小弟是新手!
第一个表有客户号,客户名。客户性别,客户生日
第二个表有客户号,订单号,订单名,原价,卖家
要实现我打客户号与之相关的信息都会在DataGrid中显示出来 展开
第一个表有客户号,客户名。客户性别,客户生日
第二个表有客户号,订单号,订单名,原价,卖家
要实现我打客户号与之相关的信息都会在DataGrid中显示出来 展开
2个回答
展开全部
1.一个简单的查询的例子:
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic
'*现在你已经得到了你想要查询的记录集了,那就是mrc
'*你可以把此记录集与DataGrid榜定,用datagrid显示你查询的记录
set me.datagrid.datasource=mrc
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic
'*现在你已经得到了你想要查询的记录集了,那就是mrc
'*你可以把此记录集与DataGrid榜定,用datagrid显示你查询的记录
set me.datagrid.datasource=mrc
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询