vb6中怎样将表中数据赋值给数组

本人不清楚VB6.请各位高高手帮帮忙!

举报该问题

第1个回答 2008-02-14

提前声明数组变量A(),B(),C()....X()，有几个字段声明几个数组变量，然后：
Ts=rs.RecordCount
ReDim A(Ts),B(Ts),C(Ts),.....X(Ts)
Do While Not rs.EOF
A(i)=rs("字段名1")
B(i)=rs("字段名2")
C(i)=rs("字段名3")
........
X(i)=rs("字段名n")
i=i+1
rs.MoveNext
Loop

第2个回答 2008-02-14

for i=0 to rs.recordcount-1
s(i)=rs.fields("字段名")
rs.movenext
next i本回答被提问者采纳

相似回答

VB6.0中使用line input #1循环赋值给数组的问题.答：Dim X() As Double '存储X坐标 Dim Y() As Double '存储Y坐标 Dim i As Integer Dim tempStr As String '存储文本行值 Open App.Path & "\123.txt" For Input As #1 Do While Not EOF(1)Line Input #1, tempStr i = i + 1 ReDim Preserve X(i) '重定义数组大小 ReDim...

如何将excel数据引入vb二维数组中?我是外行人完全不懂,求具体、可执行...答：用数据库的查询方式读取出来放入到二维数组中 Dim cnn2 As New ADODB.Connection Dim rs2 As New ADODB.Recordset cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"rs2.Open "Select ...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...答：回答：留个Q我传你个代码

vb6中怎么对二维数组赋值答：Option Base 1'声明所有数组下标从1开始(VB6中下标默认从0开始) Private Sub Form_Click()'窗体鼠标单击事件过程 Dim a(3,3)As Integer'定义一个整型的二维数组变量a For i = 1 to 3'子循环三次

大家正在搜

vb怎么给数组赋值 vb不能给数组赋值 VB赋值给数组中的变量 vb6数组间可以等号赋值吗 vb 数组赋值 vb数组的全部赋值为0 vb二维数组赋值 vb定义数组并赋值 vb数组未赋值默认为

vb中怎么赋值给数组？

VBA中如何用EXCEL表中的数据给数组赋值

VB中给数组元素赋初值

VB中如何将一维数组中赋值给二维数组

vb6中怎么对二维数组赋值

如何给VB数组赋值？

VB中怎么将文本框中的内容写入数组中

Excel 请问如何将单元格的内容赋值给数组