noTme 发表于 2005-3-28 21:52:10

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

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 发表于 2008-8-8 21:59:14

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

djflysky 发表于 2008-8-12 23:52:38

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

fei456 发表于 2008-10-25 23:08:29

谢谢楼主分享,学习了。

tmg99 发表于 2010-3-22 10:57:09

谢谢楼主分享,学习了。
页: [1]
查看完整版本: 执行SQL脚本文件(.sql)的两种方法