sql自定义数据库有记录，执行脚本，为什么总是取的一条记录，哪里错了？
Dim adozmx ‘声明ado变量
Dim is_zmx ‘声明连接数据库变量
Set adozmx=CreateObject("adodb.recordset") ‘建立ado连接
is_zmx="select*from zmxzz " ‘连接数据库
adozmx.open(is_zmx) ,cn ‘执行查询指令
Dim MSHFlexGrid1
Set MSHFlexGrid1 = ScreenItems("MSHFlexGrid1") ‘建立控件连接
MSHFlexGrid1.Rows=50 ‘#设置控件总行数
MSHFlexGrid1.Cols =14 ‘#设置控件总列数
MSHFlexGrid1.TextMatrix(0,0)="id" ‘设置标题ID
MSHFlexGrid1.TextMatrix(0,1)="工号" ‘设置标题NAME
MSHFlexGrid1.TextMatrix(0,2)="性别" ‘设置标题
Dim i
Dim j
For i = 1 To 7
For j = 0 To 3
MSHFlexGrid1.TextMatrix(i,0)=CStr(i)
MSHFlexGrid1.TextMatrix(i,j)=adozmx(j).value
Next
Next
结果在附图里面。
图片说明：
最佳答案
应该是这句话有问题 MSHFlexGrid1.TextMatrix(i,j)=adozmx(j).value
我记得从ado的recordset对象里面逐条读取记录内容，必须用movenext方法把数据记录指针往后移才能获得下一个记录。一般都是用do until语句来写的。
你应该好好看看ado对象的使用，尤其是recordset对象的使用
提问者对于答案的评价：
谢谢。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc263972.html
微信扫一扫 
支付宝扫一扫