VB中select出来的值能赋给数组吗?

来源：百度知道 编辑：UC知道 时间：2024/05/14 18:48:06
如果能要怎样实现，请做详细说明谢谢
我已经用其他方法取得数据库中要赋值的数据的数量了，假设y为数据的量，
For x = 1 To y
n(x) = "select '" + dco_local.Text() + "' from '" + dco_local.Text() + "' where 编号=('" & Trim(x) & "')"
Next x
然后数组n(x)取不到值始终为空，程序也不出错，但是到后边用到n(x)的时候就出错了

应该不能直接把Select查询的内容传给数组,可以定义数组后,使用循环往数组里传值
可以定义一个不指定元素个数的数值,执行完查询后再重新定义数组里的元素个数
如:dim aa() as string
查询后
设MyRS为查询后的结果集
重新定义方法:
redim aa(0 to MyRS.RecordCount-1) as string
然后再用for循环把结果集里的内容赋给数组就行了
我经常用

Dim MySQL As String
Dim MyRS As ADODB.Recordset
Dim i As Integer
Dim n() As String

MySQL="select " & dco_local.Text() & " from " & dco_local.Text() & " "
MySQL=MySQL & "where 编号='" & Trim(x) & "' "
Set MyRS = Conn.Execute(MySQL)
If MyRS.RecordCount > 0 Then
ReDim n(0 To MyRS.RecordCount - 1) As String
For i = 0 To MyRS.RecordCount - 1
n(i) = MyRS.Fields.Item(0).Value & ""
MyRS.MoveNext
Next
End If
MyRS.Close
Set MyRS = Nothing

一看你的问题，我感觉到很难给你解译。

假设a = {1,2,3},以下代码:

select case a
case 1:
array1(0) = a
case