右键你的数据库-->所有任务-->生成sql代码,新键一窗体,加入一memo,考入sql代码,加入3输入框,分别对应服务名,用户,密码,加入按钮,在事件里写入代码,通过3输入框信息,连接数据库,执行memo中的代码,改窗体名为“初始化模块”,打包改工程
解决方案 »
- 如何找出没有记录的选项
- sql 2005 远程访问 问题
- 字符串问题,高手解决以下~~~~~~~~~~~~~~~~~~~~~~~
- 上传数据库的备份文件后遇到问题(SQL SERVER 2000)
- 各位帮忙看一下这条SQL语句哪处有问题?
- 请问有SQL的日志文件,但没做日志备份,能还原数据库到某个指定的时间吗?
- 请问使用ADO或ODBC方式访问SQL数据库,哪一种快?
- 那位大虾知道网上哪里有sqlserver的函数的参考手册?
- 一个想法,不知SQL SERVER 2000能否支持?
- 如何用sql语句或存储过程执行dts?谢谢!
- 请问主键和唯一索引的区别?
- 高分请教,返回记录集某个区间的记录是怎么写的?
打包生成脚本文件createDB.sql
2:
定义以下过程
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
注:cnDatabase 为你到服务器的连接
sqlFile 为你的脚本文件(带路径)
3:
在你的程序开始时期运行以上过程
call createdatabase(cn,app.path+"\createDB.sql")
backup database sys to disk='c:\目录\a.bak' with init
--还原
use master
RESTORE DATABASE TestDB FROM DISK = 'c:\2002.dat'
实时错误 ‘-2147217900 (80040e 14)'
第一行:’‘附近有语法错误。
这是怎么回事?
htt9931(笑傲沧海) 她在等你啊!
抓住机会!
成就SQLSever版本好事!
hehe!