VB定义字符串数组并赋值

一：代码如下

 --定义变量
  Dim J As Long  
  J = 0
  Dim sSQL As String
  Dim rs As ADODB.Recordset  ’--定义Recordset对象
  Dim sList() As String    '--定义数组      
  
  sSQL = "select WarehouseId from paraDBWarehouseId "     
  Set rs = K3Conn.Execute(sWarehouseIdSQL)
           
  While Not rs.EOF
       ReDim Preserve  sList(0 To J) As String '--重定义数组大小
       sList(J) = rs("name")           '--name 为表中的字段名
       J = J + 1
       rs .MoveNext
 Wend

  For c = 0 To UBound(sList)
       print sList(c)          
  Next c

二：笔记：

1. dim是声明私有变量的意思，另外还有公有变量和保护型变量，分别是public和private.
2. ReDim 语句用来定义或重定义原来已经用带空圆括号（没有维数下标）的 Private、Public 或 Dim 语句声明过的动态数组的大小。
3. EOF：指当前记录位置位于Recordset对象的最后一个记录之后。
4. UBound 函数返回数组中指定数组维的最大下标值。