SQLServer数据库设计好了后，怎样打包给用户自动安装

^ 问题点数：20、回复次数：6Top

1 楼hamzsy（十二真空间）回复于 2002-03-30 00:25:11 得分 0

初学，请帮忙Top

2 楼tianjin（tianjin）回复于 2002-03-30 01:09:11 得分 10

 
  ADO_DATA:   TADOConnection;  
  Q_temp:   TADOQuery;  
  新数据库名：mNewDatabaseName  
  数据库名：mServerName  
  数据库用户：mDatabaseUser  
  数据库用户口令：mDatabasePassword  
   
   
   
          Q_temp.Connection:=   ADO_DATA;  
          with   ADO_DATA   do  
                  begin  
                          Close;  
                          Provider                         :=   'SQLOLEDB.1';  
                          ConnectionString         :=   'Data   Source='   +   mServerName   +   ';';  
                          DefaultDatabase           :=   'master';  
                          try  
                                  Open(mDatabaseUser,   mDatabasePassword);  
                          except  
                                  MessageBox(Handle,   '创建工作表时数据库打开失败！',   '提示信息',   MB_OK   +   MB_ICONWARNING);  
                                  Exit;  
                          end;  
                  end;  
          with   Q_temp   do  
                  begin  
                          Close;  
                          SQL.Clear;  
                          SQL.Add('   CREATE   DATABASE   '   +   mNewDatabaseName);  
                          try  
                                  ExecSQL;  
                          except  
                                  mStringTemp   :=   '';  
                                  mStringTemp   :=   mStringTemp   +   '创建数据库失败'   +   #13   +   #10;  
                                  mStringTemp   :=   mStringTemp   +   '请检查数据库'   +   mNewDatabaseName   +   '是否已经存在！';  
                                  MessageBox(Handle,   PChar(mStringTemp),   '提示信息',   MB_OK   +   MB_ICONWARNING);  
                                  Exit;  
                          end;  
                  end;  
  Top

3 楼tianjin（tianjin）回复于 2002-03-30 01:13:43 得分 0

ADO_DATA:   TADOConnection;  
  Q_temp:   TADOQuery;  
  新数据库名：mNewDatabaseName  
  数据库名：mServerName  
  数据库用户：mDatabaseUser  
  数据库用户口令：mDatabasePassword  
   
   
   
          Q_temp.Connection:=   ADO_DATA;  
          with   ADO_DATA   do  
                  begin  
                          Close;  
                          Provider                         :=   'SQLOLEDB.1';  
                          ConnectionString         :=   'Data   Source='   +   mServerName   +   ';';  
                          DefaultDatabase           :=   'master';  
                          try  
                                  Open(mDatabaseUser,   mDatabasePassword);  
                          except  
                                  MessageBox(Handle,   '创建工作表时数据库打开失败！',   '提示信息',   MB_OK   +   MB_ICONWARNING);  
                                  Exit;  
                          end;  
                  end;  
          with   Q_temp   do  
                  begin  
                          Close;  
                          SQL.Clear;  
                          SQL.Add('   CREATE   DATABASE   '   +   mNewDatabaseName);  
                          try  
                                  ExecSQL;  
                          except  
                                  mStringTemp   :=   '';  
                                  mStringTemp   :=   mStringTemp   +   '创建数据库失败'   +   #13   +   #10;  
                                  mStringTemp   :=   mStringTemp   +   '请检查数据库'   +   mNewDatabaseName   +   '是否已经存在！';  
                                  MessageBox(Handle,   PChar(mStringTemp),   '提示信息',   MB_OK   +   MB_ICONWARNING);  
                                  Exit;  
                          end;  
                  end;  
  Top

4 楼jiaorg（jiaorg）回复于 2002-03-30 08:23:48 得分 2

同意Top

5 楼zyq2000（孤帆远影）回复于 2002-03-30 09:08:11 得分 8

数据库的连接部分和（tianjin）基本一样；  
  下一步应该对数据库进行附加  
   
  sp_attech_file_data   mnewdatebasename,物理文件路径名Top

6 楼hamzsy（十二真空间）回复于 2002-03-30 11:48:27 得分 0

多谢各位帮忙！Top

7 楼li3365（步惊云）回复于 2002-03-30 17:19:15 得分 0

upTop

相关问题

• 数据库
• 用户
• ado
• 信息
• sql
• mstringtemp
• mnewdatabasename
• mdatabaseuser
• mdatabasepassword
• mservername

• 帖主：hamzsy
• tianjin
• jiaorg
• zyq2000

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载