一个用于远程执行SQL脚本的函数

一个用于远程执行SQL脚本的函数

当后台使用SQL Server数据库时，我们不可避免的需要在里面创建视图、存储过程等，但老从企业管理器里面去处理又不太方便，这里提供了一个用于远程连接SQL Server数据库然后执行一个本地SQL脚本的通用函数，不过我对SQL Server没什么深入的研究，高手凑合着看，新手凑合着用^o^。

'=====================================================================================

'函数名称： ExecuteSQLScriptFile

'功能描述： 在指定SQL Server数据库中执行SQL脚本

'输入参数： Server 必需的，服务器名称或IP地址

' Database 必需的，数据库名称

' UserID 必需的，访问数据库的用户名

' Password 必需的，访问数据库的用户密码

' SQLScriptFile 必需的，SQL脚本文件路径名

'返回参数： 脚本执行成功返回True，否则返回False

'使用示例： ExecuteSQLScriptFile "192.168.1.1","NorthwindCS","sa","sa","C:\test.sql"

'相关调用：

'使用注意：

'兼 容 性： 只在SQL Server 2000数据库上测试过

'参考资料：

'作 者： 红尘如烟

'创建日期： 2010-8-7

'=====================================================================================

Public Function ExecuteSQLScriptFile(ByVal Server As String, _

ByVal Database As String, _

ByVal UserID As String, _

ByVal Password As String, _

ByVal SQLScriptFile As String) As Boolean

On Error GoTo Err_ExecuteSQLScriptFile

Dim strSQL As String

Dim strTemp As String

Dim intFileNum As Integer

Dim cnn As Object

intFileNum = FreeFile()

Open SQLScriptFile For Input As #intFileNum

strSQL = ""

Do While Not EOF(1)

Line Input #intFileNum, strTemp

If UCase$(strTemp) <> "GO" Then strSQL = strSQL & strTemp & vbCrLf

Loop

Close #intFileNum

If strSQL <> "" Then

strTemp = "Provider=SQLOLEDB" & _

";Data Source=" & Server & _

";Initial Catalog=" & Database

Set cnn = CreateObject("ADODB.Connection")

cnn.Open strTemp, UserID, Password

cnn.Execute strSQL

cnn.Close

ExecuteSQLScriptFile = True

End If

Exit_ExecuteSQLScriptFile:

Set cnn = Nothing

strSQL = ""

strTemp = ""

Exit Function

Err_ExecuteSQLScriptFile:

If err = 53 Then

MsgBox "指定的SQL脚本文件 '" & SQLScriptFile & "' 不存在。", vbCritical

ElseIf err = -2147217900 Then

MsgBox err.Description, vbCritical, "SQL脚本运行错误"

Else

MsgBox err.Description, vbCritical

End If

Resume Exit_ExecuteSQLScriptFile

End Function