VB定义字符串数组并赋值
VB定义字符串数组并赋值
⼀：代码如下
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 函数返回数组中指定数组维的最⼤下标值。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。