将数据库的建库脚本导出为*.sql然后,在安装的时候(或者程序初始化的时候)运行以下程序: 用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
用这种方法要如何在安装的同时去执行这段代码呢?这代码写入VB时也会出错哟
to: sunnychild(sunnychild 写个sql文件 在什么地方 写如何写在 脚本里执行这个sql文件 "要如何才能执行呢
2.备份成文件,到目标机器上恢复请问要如何在目标机器上恢复,SQL脚本要如何恢复呢?
将数据库的建库脚本导出为*.sql然后,在安装的时候(或者程序初始化的时候)运行以下程序:
用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
用这种方法要如何在安装的同时去执行这段代码呢?这代码写入VB时也会出错哟
写个sql文件 在什么地方 写如何写在 脚本里执行这个sql文件 "要如何才能执行呢
哪边有这方面的例子
有没有
可以给我吗
[email protected]
你们有?
可以给我?
[email protected]
http://pcwak.8u8.com/niit.rar