sql 为什么只取一条记录，哪里错了？
刘玉蓉
发布于2014-09-17 17:20
25
0
标签：
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
结果在附图里面。
图片说明： 1，运行结果
佳答案
应该是这句话有问题 MSHFlexGrid1.TextMatrix(i,j)=adozmx(j).value
我记得从ado的recordset对象里面逐条读取记录内容，必须用movenext方法把数据记录指针往后移才能获得下一个记录。一般都是用do until语句来写的。
你应该好好看看ado对象的使用，尤其是recordset对象的使用
