Question

VB连接 ACCESS数据库 并实现查询功能

数据库 D:\实例9库.mdb 通过查询 时间 例如输入 2009.5.8 能在Data Grid控件中显示出当天的相应记录

时间 2009.5.8
滚道1数量 9
滚道2数量 7
滚道3数量 8

大家帮帮我吧 快答辩了 谢谢了

Answer 1

代码连接access
首先 工程---引用，在可引用的引用中将microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library勾选
然后定义
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
定义好后连接数据库
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/news.mdb;"
cn.Open
其中数据库为当前路径下的news.mdb，
打开数据库
sql语句自己写
rs.open sql,cn,3,1
这样数据库中sql语句找到的记录都在rs中
MSFlexGrid1.Top = 950
MSFlexGrid1.CellTextStyle = flexTextInsetLight
MSFlexGrid1.Rows = 7 '设置总行数
MSFlexGrid1.Cols = 8 '设置总列数
MSFlexGrid1.GridColor = &H404040 '网格颜色
MSFlexGrid1.ForeColor = &HFFCCCC '字体颜色
MSFlexGrid1.BackColor = vbBlack
MSFlexGrid1.GridLines = 1 '设置网格线的属性
MSFlexGrid1.GridLineWidth = 1 '设置网格线的粗细程序，默认为1
MSFlexGrid1控件的一部分设置，自己找属性看看其他设置

将数据写入表格中
MSFlexGrid1.TextMatrix(0, 0) = "名称"
MSFlexGrid1.TextMatrix(0, 1) = "最新价"
MSFlexGrid1.TextMatrix(0, 2) = "涨跌"
MSFlexGrid1.TextMatrix(0, 3) = " 成交数"
MSFlexGrid1.TextMatrix(0, 4) = "名称"
MSFlexGrid1.TextMatrix(0, 5) = "最新价"
MSFlexGrid1.TextMatrix(0, 6) = "涨跌"
MSFlexGrid1.TextMatrix(0, 7) = "成交数"

将rs中的数据写入表格
for i=0 to 5
MSFlexGrid1.TextMatrix(i, 1) = rs("数据库字段")
rs.movenext
next