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

andrewyang

下面是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

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

赵国辉

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

zldccmx

[quote]原帖由 andrewyang 于 2009-2-15 15:23 发表
下面是VBA查询SQL中的一段代码，当红色部分比较长，不知如何转行书写代码？（用空格"+_"不起作用,总是提示错误)请高手指点!

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

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

zldccmx

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

hcjiangxue

都是高手啊,非常感谢了

jygzcj

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

leolee82

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

xingpeibin

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