===================引 用 文 章===================
請問誰能教我如何 用delphi寫一個程式，把Adatabase 完全複製到 另一個database 然後命名為 Bdatabase?

將 Table 刪除,開立空白 Table ,資料複製

我是用很傳統的寫法,將 Linux 資料,搬到 windows 備份

程式較沒技巧,請笑納

[code]

Function TFMT_CopyAGREE( sJOB:string ):string;
var
sRTN : string;

nCC_From,nCC_To ,nERR_To: integer;
tempValue ,T21,T22: variant;
i: integer;
s , sfName: string;
v: variant;
sRecFields: string;

sText , sFieldSql , sDataSql : variant;

begin

sRTN := '';

// ----- 1.CREATE TABLE ------------------------------------------
if sJOB = '1CREATE' then
begin
// 資料檔名 : AGREE # 同意人資料
With ZQuery_Agree_To do
begin
Close;
SQL.Clear;
SQL.Add('CREATE TABLE `AGREE` ('); // Table Name

SQL.Add('`AG01` VARCHAR(20) NOT NULL ,');
SQL.Add('`AG02` VARCHAR(60) ,');

SQL.Add('`AG999` TEXT ,');

SQL.Add('PRIMARY KEY (`AG01`) )');

SQL.Add(' TYPE = MYISAM;');

ExecSQL;

SQL.Clear;
end;

sRTN := 'CREATE AGREE';

end; // sJOB= '1CREATE'

// ----- 2.DROP(DELETE) TABLE ------------------------------------------
if sJOB = '2DROP' then
begin
With ZQuery_AGREE_To do
begin
Close;
SQL.Clear;
SQL.Add('Drop TABLE `AGREE` ;'); // Table Name
ExecSQL;
SQL.Clear;

sRTN := 'DROP AGREE';

end;
end; // sJOB= '2DROP'

// ----- 3.COPY TABLE ------------------------------------------
nCC_From := 0;
nCC_To := 0;
edt_CountFrom.Text := '';
edt_CountTo.Text := '';

if sJOB = '3COPY' then
begin

With ZQuery_AGREE_To do
begin
Close;
SQL.Clear;
SQL.Add('Select * From AGREE ;');
ExecSQL;
Active := true;
end;

With ZQuery_AGREE_From do
begin
Close;
SQL.Clear;
SQL.Add('Select * From AGREE ;');
ExecSQL;

Active := true;
// -------------算一下,原始 來源檔有幾筆
While not Eof do //1
begin
nCC_From := nCC_From 1;
Next;
end; // 1 While not ZTable_Person_from.Eof do
edt_CountFrom.Text := inttostr( nCC_From );
First; // ZTable_xxxxx_From 回到第一筆
end; //With ZQuery_AGREE_From do

// Try
sFieldSql := '';
sDataSql := '';
application.ProcessMessages;
// ------------------// 準備 開始複製
With ZQuery_AGREE_From do
begin
While not Eof do //2
begin
nCC_To := nCC_To 1;
s := '';
sText := 'INSERT INTO AGREE ( ';
sFieldSql := '';
sDataSql := ' Values( ';

for i := 0 to FieldCount-1 do // ZQuery_xxxxx_From
begin
if not(Fields[i].FieldName = 'X000000') then
begin // 欄位 不是自動序號欄位=X00000,才進行複製

sfName := Fields[i].FieldName; // ZQuery_xxxx_From.
tempValue := FindField( sfName ).AsVariant;
// -----------------------------------------------
if VarIsNull( tempValue ) then
sDataSql := sDataSql #39 #39 // '""'
else //字串內容有單引號,必須成雙,避免 SQL 語法錯誤
sDataSql := sDataSql #39 Check_QuotedStr(tempValue) #39;
// -----------------------------------------------
if not (i=FieldCount-1) then // ZQuery_xxxxx_From.
begin
sFieldSql := sFieldSql sfName ',';
sDataSql := sDataSql ',';
end
else
sFieldSql := sFieldSql sfName ;

end; // nor 'X000000'...
end; // for i .............

sFieldSql := sFieldSql ' ) ';
sDataSql := sDataSql ' ); ';
sText := sText sFieldSql sDataSql ;
// ------------------------------------------------------
try
With ZQuery_AGREE_To do
begin
SQL.Clear;
SQL.Add( sText );
ExecSQL;
// 複製後,有些資料要更改
// FieldByName('XCSUM').AsString := '0';
// FieldByName('XCCDATE').AsString := DATETOSTR(NOW);
// Post;
end; // ZQuery_xxxxx_To

except
edit1.Text := sFieldSql;
edit2.Text := sDataSql;
nERR_To := nERR_To 1 ;
edt_CountTo_ERR.Text := inttostr( neRR_To );
application.ProcessMessages;
end;

Next; // ZQuery_xxxxx_From

if nCC_To > nCC_From - 10 then // 最後 15 筆,慢一點
begin
edt_CountTo.Text := inttostr( nCC_To );
application.ProcessMessages;
Sleep(300); // 慢一點,給 User 看見數字在跑
end;

end; // 2 While ZQuery_xxxxx_From.Eof do

end; // With ZQuery_xxxxx_From do

// Except
// showmessage('(0000-1061) 複製資料過程,發生嚴重存取錯誤 !!');
// end;

With ZQuery_AGREE_To do
begin
Active := false;
SQL.Clear;
end;

With ZQuery_AGREE_From do
begin
Active := false;
SQL.Clear;
end;

sRTN := 'COPY AGREE';

end; // sJOB= '3COPY'

Result := sRTN ;

end;

[/code]

謝謝您的回應，不過我的問題不是TABLE ，而是整個DATABASE的複製，包括裡面的TABLE。

tame_cat_tail大哥：

大哥所言『直接在delphi中呼叫mysqladmin去create bdatabase』，是指用Code指揮mysqladmin作事嗎？如是，小弟對這很有興趣。如果可以的話，可否請大哥惠附一下相關程式碼。萬分感激。

procedure TForm1.Button1Click(Sender: TObject);
var
dirname:Ansistring;
begin
dirname:='c:\mysql\bin\mysqladmin.exe -u root create mytest';
winexec(pchar(dirname),sw_minimize);
end;

這樣就可以 直接 create 一個database。

tame_cat_tail大哥：

謝啦。另外看tame_cat_tail大哥其他好幾篇MSSQL的文章，可否順便問問在mssql及PostgreSQL類似情況是如何下令自動產生資料庫的。先謝謝啦。