Question

vb字符串的拼接

set rs = server.CreateObject("ADODB.Record")
sql = "select ............."
rs.open sql,conn,1,1
a=1
do while not rs.eof
set rs&a=...........
sql&a="............."
.......
a=a+1
rs.movenext
loop

我就是想通过 do while 循环 来 创建 多个 数据库连接 rs1,rs2,rs3, sql1,sql2,sql3
请教各位 应该怎么写

Answer 1

VB字符串拼接可使用& 运算符。

& 运算符，用来强制两个表达式作字符串连接。

& 运算符示例

本示例使用 & 运算符将字符串串接起来。

Dim MyStr
MyStr = "Hello" & " World"   ' 返回 "Hello World"。
MyStr = "Check " & 123 & " Check"   ' 返回 "Check 123 Check"。

在某些场合，没数字类型常量存在可用+号替代&。

Private Sub Command1_Click()
    Dim MyStr
    MyStr = "Hello" + " World"
    Debug.Print MyStr
    MyStr = "Check " + "123" & " Check"
    Debug.Print MyStr
End Sub

   
   

Answer 2

变量名称不能拼接，可以用下面两种方式

1.有几个sql语句就用几个变量。比如需要三个连接，那只需定义sql1、sql2、sql3三个变量。
2.使用字符串数组。比如定义sql(10)，那么sql1存一条语句，sql2存一条语句，等等。这种方式可以满足你循环方式的使用方法。

连接的变量因为不是字符串类型，不能用上面的第二种方法，只能用第一种方法。

因为你的程序并不是多线程并发处理的，所以多个连接并不能提高效率，反而会占用更多资源。使用一个连接，按顺序执行各条SQL语句即可。