请问，在VB中怎么调用 SQL server 的脚本文件？急急急!!!

Question

你的脚本是指存储过程还是.sql文件
如果是存储过程那就是
CON.Execute("Exec  存储过程名称")
如果不是那就没办法了

Answer 1

SQL server 的脚本文件是 .sql 的?

Answer 2

dim SQLFileName as String 
dim freeNo as integer  SQLFileName ="c:\abc.SQL"
    freeNo = FreeFile()
    Open SQLFileName For Input As #freeNo
    If Err = 53 Or Err = 76 Then
        msgbox "Bad FileName or Path"
        Exit Sub
    End If
    Dim i As Integer
    Dim prog As String
    Do While Not EOF(1)
        Input #freeNo, prog
        '取出一句，执行一句, 注意每句必须在同一行
      if trim(prog)<>"" then  CON.Execute prog
     Loop
    Close #freeNo

Answer 3

更正Do While Not EOF(freeNo)

Answer 4

      if trim(prog)<>"" and mid(trim(prog),1,2)<>"--" then  CON.Execute prog

Answer 5

Public Function Creat_Table(data As String, Files As String) As Boolean
'本模块用于从*.sql中导入数据库结构到SQL Server
Dim sql, Txtline As String    On Error Resume Next
    'Cn.Close
    On Error GoTo Err1
    'ConSQL Load_ini("服务器名"), Load_ini("用户名"), Load_ini("口令"), data, "Cn"
    sql = " "
    Open App.Path & "\log.txt" For Output As #2    ' 打开输出文件。
         ' 将错误数据写入文件。    Open App.Path & Files For Input As #1   ' 打开SQL文件。
        Do While Not EOF(1)
            Line Input #1, Textline
            If Not (Trim(Textline) = "GO") Then
                sql = sql & Textline & Chr(13)
            Else
                Cn.Execute sql 'Mid(SQL, InStr(SQL, "C"))
                sql = " "
            End If
        Loop
    Close #1
    Close #2
    If Creat_Table = False Then
        Shell App.Path & "\log.txt"
    End If
    
Exit Function
Err1:
    Print #2, "This is a Error !"
    Print #2, Err.Description
    Print #2, Err.Number
    Print #2, "**********"
    Creat_Table = False
    Resume Next
End Function

Answer 6

Dim db As New SQLDMO.Database
Dim strScript As String
1.strScript =脚本文件 的内容
2.db.ExecuteImmediate strScript我试过! 执行了!