谢谢
解决方案 »
- checkbox
- 作品发布:一个桌面工具,这次的毕业设计,大家评评~~
- 用picture装入图片后,再保存出图片,为何图片的高宽尺寸变了
- 关于MSFlexGrid某一个Cell的Top和left怎么求得
- 在线等,在ACCESS中做了一个模糊查询,数据库中没有问题,在VB里调用时查不到记录,急!!
- [走过路过千万不要错过] 打印的奇怪问题~!!急,在线等~!!
- 我用VB做一个程序,当我点击按钮时,就执行C盘下的一个可执行程序应怎么做?
- 打开设有密码access时运行有”找不到可插入的ISAM“错误出现?
- 哪一位高手知道ActiveReport有打印一个或者全部页面终了时触发的事件吗?
- 资源文件到底是怎么回事?怎么用?参考资料那里可以down?
- 新手请教关于VB中串口通信MSCOMM(想同时发两个命令)
- 函数名称提取,谢谢!!!
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=database1;UID=sa;PWD=123"
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