执行SQL脚本文件(.sql)的两种方法.doc

时　间:2012-05-12 14:01:43
作　者:赵文斌   ID：4506  城市：深圳
摘　要:实用
正　文:

Public Sub ExecuteSQLScriptFile(cn As ADODB.Connection, sqlFile As String)
    Dim strSql As String, strTmp As String
    Open sqlFile For Input As #1
    strSql = ""
    Do While Not EOF(1)
        Line Input #1, strTmp
        If UCase$(strTmp) = "GO" Then
            cn.Execute strSql
            strSql = ""
        Else
            strSql = strSql & strTmp & vbCrLf
        End If
    Loop
        If strSql <> "" Then cn.Execute strSql
    Close #1
End Sub

Public Sub ExecuteSQLScriptFile(cn As ADODB.Connection, sqlFile As String)
    Dim sql As String
    sql = "master.dbo.xp_cmdshell ' osql -U username -P password -i " & sqlFile
    cn.Execute sql
End Sub