[转载]执行SQL脚本文件.sql的两种方法

  信息来源：blog.yesky.com（这个地方转人家的文章从来不写来源 鄙视）

1.
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

2.
Public Sub ExecuteSQLScriptFile(cn as ADODB.Connection,sqlFile As String)
Dim sql as string

     sql="master.dbo.xp_cmdshell &#39; osql -U username -P password -i " & sqlFile
     cn.execute sql
End Sub