VBA中的SQL语句过长，如何转行？

andrewyang · 发表于 2009-2-15 15:23

下面是VBA查询SQL中的一段代码，当红色部分比较长，不知如何转行书写代码？（用空格"+_"不起作用,总是提示错误)请高手指点!
Sub 查询sql2000数据库()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim Stpath As String, strSQL As String
Stpath = "Provider=sqloledb;Server=IP地址;Database=数据库名;Uid=用户名;Pwd=密码;"
CNN.Open Stpath
strSQL = "select * from 数据表"

RST.Open strSQL, CNN
Sheet1.Cells(2, 1).CopyFromRecordset RST
Set CNN = Nothing
End Sub

offshore7 · 发表于 2009-7-23 16:34

strSQL = "select * from 数据表" _
& "where a=b "

赵国辉 · 发表于 2009-7-23 16:43

如果有规律，可以用循环写，要不就分写几条sql，然后sql=sql1&sql2........

zldccmx · 发表于 2009-7-23 16:50

[quote]原帖由 andrewyang 于 2009-2-15 15:23 发表

下面是VBA查询SQL中的一段代码，当红色部分比较长，不知如何转行书写代码？（用空格"+_"不起作用,总是提示错误)请高手指点!

当空格+_出现在引号内部时肯定是不行的

比如以下这样肯定是不行的：
SQ="123 _
456"

zldccmx · 发表于 2009-7-23 16:51

可以变通，使之出现的引号之外：
Sq= "12" & _
"34"

hcjiangxue · 发表于 2011-7-9 11:47

都是高手啊,非常感谢了

jygzcj · 发表于 2021-11-28 19:41

太长了就会报异常，尽量用Sql=Sql& "select*..."

leolee82 · 发表于 2021-11-28 19:57

放到txt或单元格中，调试好的sql就不用编辑成多行，不管多难看的格式，丢里面就可以直接用了

xingpeibin · 发表于 2024-4-8 14:15

楼主怎么解决的呢？我也遇到一样的问题

		自动登录	找回密码
密码			免费注册

[求助] VBA中的SQL语句过长，如何转行？