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

noTme

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 ' osql -U username -P password -i " & sqlFile
       cn.execute sql
End Sub

tumblerful

这么好的帖子，现在才发现

djflysky

什么语言的，看不太明白，好象是数据库登陆什么的对吗？

fei456

谢谢楼主分享，学习了。

tmg99

谢谢楼主分享，学习了。