Question

如何在VB中执行SQL脚本文件

Answer 1

在MSSQL SERVER的查询分析器中可通过输入如下命令，来执行一个外部的*.sql文件：
EXEC master.dbo.xp_cmdshell 'osql -U username -P password -i "filename"'
注意格式：xp_cmdshell后面的全部字符串要用单引号括起来，由于外部文件名中可能含有空格，所以要把filename字符串再用双引号括起来。比如你的SQL SERVER的用户名为sa,密码为sa,有一个外部文件为C:\Data Base.sql.那么这条语句就应该写成：
EXEC master.dbo.xp_cmdshell 'osql -U sa -P sa -i "C:\Data Base.sql"'.

说了半天，这还是在SQL SERVER中的操作，那么在VB中用代码如何实现呢？
我用VB写了一个小工程，全部代码如下：
Private Const ServerName = "Rock"
Private Const UserID = "sa"
Private Const PWD = "Rock"
Private Const ExternFile = "E:\Wang JX\DATABASE.SQL"

Private Sub Form_Load()
Dim conn As New Connection
Dim rs As New Recordset
Dim sql As String

sql = "master.dbo.xp_cmdshell 'osql -U " & UserID & " -P " & PWD & " -i """ & ExternFile & """'"

conn.Open "provider=sqloledb;data source=" & ServerName & ";user id=" & UserID & ";pwd=" & PWD

conn.Execute sql '这一句执行的可能会慢一些
End Sub