昨天做系統的安裝，搞這個搞到頭大，現在把總結寫下巴。

PS：貼上來代碼的縮進就亂掉了

用SQL Server企業管理器導出的SQL文件是不能直接在ADOQuery里用的，因為ADOQuery不支持GO，不支持注釋，視圖和存儲過程的創建也必須放到查詢開頭，所以必須要對企業管理器導出的SQL文件進行處理，才能用。

首先，導出SQL語句

如圖設置

?

?

?

注意這一步，“編寫主鍵、外鍵、默認值和檢查約束腳本”別忘了選。文件格式要選ANSI，因為貌似TStrings.LoadFromFile這個方法對Unicode的文本支持不好，如果你的代碼不用TStringList讀SQL文件，那這里選什么都無所謂。選擇創建一個文件，可以確保結構按照順序創建，免得多個文件又要搞依賴關系，分析哪個要先創建，麻煩。

然后，創建數據庫

強烈建議將用于創建數據庫和數據庫結構的ADOQuery的ParamCheck屬性設置為False

(要是非要設置成True，后面莫名其妙報個錯，可別怨我沒攔你^_^)

將生成的SQL文件中開頭創建數據庫的那部分刪除（就是直到第一句use XXX這里，包含這句，也一并刪除），因為創建數據庫的語句我們要自己組裝。

創建數據庫需要知道數據庫文件和日志的存放位置(強迫用戶指定貌似不太禮貌，最好自動獲取到)，數據庫和日志文件初始大小，數據庫名和排序規則。

取數據庫文件和日志存放位置的辦法：（我這里是把第一個庫文件的位置當做默認存放位置的）

ADOQuery查詢master庫：??????? SELECT TOP 1 filename FROM sysaltfiles

然后存放默認位置就是IncludeTrailingPathDelimiter(ExtractFilePath(Trim(FieldByName('filename').AsString)))

創建數據庫(仍然是在master庫里執行)：

??????? SQL.Add(Format('IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N''%s'')',[teDBName.Text]));
??????? SQL.Add(Format('DROP DATABASE [%s]',[teDBName.Text]));
??????? SQL.Add(Format(
????????? 'CREATE DATABASE [%s] ON (NAME = N''%s_Data'', FILENAME = N''%s%s_Data.MDF'' , SIZE = 7, FILEGROWTH = 10%%) LOG ON (NAME = N''%s_Log'', FILENAME = N''%s%s_Log.LDF'' , SIZE = 7, FILEGROWTH = 10%%) COLLATE Chinese_PRC_CI_AS',
????????? [teDBName.Text,teDBName.Text,FDBPath,teDBName.Text,teDBName.Text,FDBPath,teDBName.Text]));
??????? ExecSQL;

這里兩個SIZE分別是數據庫文件和日志文件的初始大小，單位MB。Chinese_PRC_CI_AS為默認排序規則

需要注意的是，如果庫正在被使用，DROP會出錯。貌似用SQLDMO可以殺掉連那個庫的進程，可以用這個野蠻殘忍的辦法停止對庫的使用。。。

修改SQL，創建數據庫結構

以下需要在剛創建的數據庫中執行

1.去掉注釋(--和/* */)

??????? Mark:=False;
??????? for Index:=0 to SQLList.Count-1 do
??????? begin
????????? //--開頭
????????? TmpStr:=Trim(SQLList[Index]);
????????? if Copy(TmpStr,1,2)='--' then
??????????? SQLList[Index]:=''
????????? else begin
??????????? if Mark then
??????????? begin
????????????? if Copy(TmpStr,Length(TmpStr)-1,2)='*/' then
????????????? begin
??????????????? Mark:=False;
????????????? end;
????????????? SQLList[Index]:='';
??????????? end
??????????? else begin
????????????? if Copy(TmpStr,1,2)='/*' then
????????????? begin
??????????????? Mark:=True;
??????????????? SQLList[Index]:='';
????????????? end;
??????????? end;
????????? end;
??????? end;

2.去掉go

?????? SQLList.Text:=StringReplace(SQLList.Text,#13#10'GO'#13#10,#13#10,[rfReplaceAll,rfIgnoreCase]);

3.在CREATE VIEW前加exec

?????? SQLList.Text:=StringReplace(SQLList.Text,'CREATE VIEW ','exec(''CREATE VIEW ',[rfReplaceAll,rfIgnoreCase]);
??????? Mark:=False;
??????? for Index:=0 to SQLList.Count-1 do
??????? begin
????????? if Mark then
????????? begin
??????????? //把exec('')之中的'替換為''，否則報錯
??????????? SQLList[Index]:=StringReplace(SQLList[Index],'''','''''',[rfReplaceAll,rfIgnoreCase]);
??????????? if System.Pos('SET ',SQLList[Index])>0 then
??????????? begin
????????????? Mark:=False;
????????????? //CREATE VIEW結尾加')
????????????? SQLList[Index-1]:=SQLList[Index-1]+''')';
??????????? end;
????????? end
????????? else if System.Pos('exec(''CREATE VIEW ',SQLList[Index])>0 then
????????? begin
??????????? Mark:=True;
????????? end;
??????? end;

4.存儲過程前加exec

這里注意存儲過程中經常出現SET，所以不能讓SET做為判斷'CREATE PROCEDURE 結束的標志，而要用

SET QUOTED_IDENTIFIER OFF，只要是企業管理器導出的創建存儲過程語句，必定以SET QUOTED_IDENTIFIER OFF緊跟著創建語句

??????? SQLList.Text:=StringReplace(SQLList.Text,'CREATE PROCEDURE ','exec(''CREATE PROCEDURE ',[rfReplaceAll,rfIgnoreCase]);
??????? Mark:=False;
??????? for Index:=0 to SQLList.Count-1 do
??????? begin
????????? if Mark then
????????? begin
??????????? //把exec('')之中的'替換為''，否則報錯
??????????? SQLList[Index]:=StringReplace(SQLList[Index],'''','''''',[rfReplaceAll,rfIgnoreCase]);
??????????? if System.Pos('SET QUOTED_IDENTIFIER OFF',SQLList[Index])>0 then
??????????? begin
????????????? Mark:=False;
????????????? //CREATE PROCEDURE 結尾加')
????????????? SQLList[Index-1]:=SQLList[Index-1]+''')';
??????????? end;
????????? end
????????? else if System.Pos('exec(''CREATE PROCEDURE ',SQLList[Index])>0 then
????????? begin
??????????? Mark:=True;
????????? end;
??????? end;

最后

SQL.Assign(SQLList)，可以執行Query了

?

不過我覺得SQLDMO應該有直接執行SQL語句的功能，就是支持GO和注釋等的Transact-SQL，時間關系，沒去深入研究SQLDMO，我暫時只是把這玩藝拿來刷數據庫列表用

總結

以上是生活随笔為你收集整理的用ADOQuery创建SQL Server数据库，并创建表结构、存储过程和视图的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。