vb 连接数据例子
来源:互联网 发布:房产cms系统 编辑:程序博客网 时间:2024/05/24 08:33
'工程-->引用 添加 Microsoft activex data objects 2.5 library
'工程-->部件 添加 Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:/Access DB/Database1.mdb;"
If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
Cnn.Open
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = Cnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price FROM sales GROUP BY good_code,customer"
If .RecordCount > 0 Then
MSFlexGrid1.Clear
MSFlexGrid1.Cols = 3
MSFlexGrid1.Rows = .RecordCount + 1
MSFlexGrid1.TextMatrix(0, 0) = "商品编号"
MSFlexGrid1.TextMatrix(0, 1) = "顾客名称"
MSFlexGrid1.TextMatrix(0, 2) = "平均价格"
.MoveLast: .MoveFirst
For i = 1 To .RecordCount
MSFlexGrid1.TextMatrix(i, 0) = .Fields(0).Value & vbNullString
MSFlexGrid1.TextMatrix(i, 1) = .Fields(1).Value & vbNullString
MSFlexGrid1.TextMatrix(i, 2) = .Fields(2).Value & vbNullString
.MoveNext
Next
End If
.Close
End With
Set Rs = Nothing
- vb 连接数据例子
- VB中数据连接方法
- DAO数据访问例子(VB)
- 一个数据连接例子c#
- asp连接access数据例子
- vb 连接 sql 导出数据问题
- vb 调用 Oracle 函数返回数据集的例子
- BoneCP数据连接池的例子配置
- MySql连接及数据的传输例子
- BoneCP数据连接池的例子配置
- proxool数据连接池使用例子
- VB通过ADO连接SQL数据的两种方法
- Vb与报表(三.数据连接与代码实现)
- VB.NET连接Office Access数据库显示列表数据
- vb.net多线程例子
- Vb操作XML例子
- vb For循环例子
- 用VB生成DLL封装ASP代码一个例子:连接access数据库等
- QTcpSocket通信编程时阻塞与非阻塞的问题
- 【数据结构重温】Linux内核中的hash和bucket
- sizeof疑问
- iBatis快速入门
- sql 2k5 des加密
- vb 连接数据例子
- reSIProcate介绍(英文)
- 【C++】Chapter3:装饰模式
- C++测试小程序
- 百度天天快照的秘籍
- Ubuntu 10.04下Netbeans使用OpenJDK造成中文显示不正常的解决方案
- 数据库客户端之navicat
- C测试小程序
- Winform中子窗体关闭同时刷新父窗口