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 函数返回数组中指定数组维的最大下标值。
  • 0
    点赞
  • 0
    评论
  • 3
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

欢欢的冰激凌

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值