能否用VB把SQL脚本更新到SQL中？

Question

客户不会SQL，而SQL密码我也不想给客户。但要更新SQL，能否做一个VB小程序把我要更新的SQL脚本更新到客户的SQL中？

Answer 1

'引用ADO:
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=img"  '具体的数据库连接字符串请你自己改过来
    '读取SQL脚本，开始初始化数据库
    cn.BeginTrans
    On Error GoTo installErr
    Dim strSql As String, s As String    Open "C:\test.sql" For Input As #1
    While Not EOF(1)
        Line Input #1, s
        If UCase(Trim(s)) = "GO" Then
            cn.Execute (strSql)
            strSql = ""
        Else
            strSql = strSql & vbCrLf & s
        End If
    Wend
    Close #1
    cn.CommitTrans
    MsgBox "数据库初始化完成！"
    Exit Sub
installErr:
    MsgBox Err.Description
    cn.RollbackTrans
End Sub

Answer 2

SQL脚本就是指 select ...等 sql 语句吗?? 

Answer 3

如果是管理SQL Server的話，用SQL DMO來做。