能通过SQL脚本新增数据库吧

Question

我已做好了SQL脚本,我想在VB中按一个按钮就可以调用这个SQL脚本新增数据库,但不知应如何做!我曾试过如下我先连到数据库的master,但我只懂得用create database data_name却不知应怎样就能调用那个SQL脚本来新增数据库了所以希望版主帮下忙啊!

Answer 1

用Connection对象可以实现Conn.Excute SQL语句 即可

Answer 2

老大,我是知道,但我要的是怎么调用SQL脚本,不是执行SQL语句!我那个SQL脚本是完整的,里面有新增数据库,有存储过程,有触发器等.....如果粘贴在SQL服务器里的查询分析器那是可以完成的!但我需要在VB中调用SQL脚本来完成啊!总不会到了人家电脑上去建数据库吧!

Answer 3

你可以先把SQL脚本做成一个文本文件连同程序一起给人
然后加上
cn.excute (ReadConnectSetup("保存文件"))

Answer 4

用vb的话你可以这样Private Sub CreateDataBase(cnDataBase as connect,sqlFile As String)
Dim strSql As String, strTmp As String
        
      Open sqlFile For Input As #1
      strSql = ""
      Do While Not EOF(1)
          Line Input #1, strTmp
          If UCase(strTmp) = "GO" Then
              cn.Execute strSql
              strSql = ""
          Else
              strSql = strSql & strTmp & vbCrLf
          End If
      Loop
      If strSql <> "" Then cnDataBase.Execute strSql
      Close #1
End Sub其他的你可以定义一个到服务器的ado连接
然后可以这样：
比如：vb中
dim cn as New ADODB.Connection 
dim sql as string cn.open ".......到服务器的连接"
sql="master.dbo.xp_cmdshell ' osql -U username -P password -i c:\myquery.sql'"
cn.execute sql