右键你的数据库-->所有任务-->生成sql代码,新键一窗体,加入一memo,考入sql代码,加入3输入框,分别对应服务名,用户,密码,加入按钮,在事件里写入代码,通过3输入框信息,连接数据库,执行memo中的代码,改窗体名为“初始化模块”,打包改工程

解决方案 »

  1.   

    vb:1:
    打包生成脚本文件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")
      

  2.   

    或用:--备份
    backup database sys to disk='c:\目录\a.bak' with init
    --还原 
    use master
    RESTORE DATABASE TestDB FROM DISK = 'c:\2002.dat'
      

  3.   

    那我还需要在服务器上安装 WIN2000 SERVER 和SQL SERVER2000吗?
      

  4.   

    肯定要,你不会因为客户买的软件,你送一套sqlserver给客户吧,你给D版的被查到,客户到时全推给你,就完了
      

  5.   

    我是说我还需要安装SQL SERVER 2000 吗?
      

  6.   

    我试了一下,在cnDataBase.execute时总是出现:
      实时错误 ‘-2147217900 (80040e 14)'
      第一行:’‘附近有语法错误。
    这是怎么回事?
      

  7.   

    hehe!
    htt9931(笑傲沧海) 她在等你啊!
    抓住机会!
    成就SQLSever版本好事!
    hehe!