如何在vb中执行sql server 数据库建立脚本

Question

up,up
不用控件最好，少一个就少一点麻烦（发布时）

Answer 1

用ADOcn.execute "create database  ..."
cn.execute "create table  ..."
cn.execute "create view  ..."
...
...

Answer 2

shell "osql -u user -p password -d database -i *.sql"

Answer 3

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 4

用ADOcn.execute "create database  ..."
cn.execute "create table  ..."
cn.execute "create view  ..."
...
...