請教一下各位前輩，若資料庫使用SQL2000，使用ADOQUERY該如何做才可以重整資料庫呢？？ ======================== 我是DELPHI5的初學者

ADOQUERY.Active:=False; ADOQUERY.Active:=True; 就是对ADOQUERY里是select * from * 的语句进行刷新 而ADOQUERY里是Update、Insert、delete 的语句进行刷新就要用ADOQUERY.ExecSQL

請問你所謂的重整資料庫的意思為何?因為我印像中只壓縮及索引檔重整,是指這個嗎? 如果是 壓縮資料庫 DBCC SHRINKFILE (1, 2) //壓縮 Data DBCC SHRINKFILE (2, 2) //壓縮 Log 索引檔重整 DBCC DBReindex ([dbo].[TableName], '', 0) WITH NO_INFOMSGS 請參考MS SQL Online Help 希望能對你有所幫助.

索引檔重整 DBCC DBReindex ([dbo].[TableName], '', 0) WITH NO_INFOMSGS 若要重整一個資料庫，利用ADOQUERY該如何做呢？？可否指教一下！ ======================== 我是DELPHI5的初學者

可能是我知識不足,印像中沒有資料庫重整的這個功能,請你確認 希望能對你有所幫助.

Procedure TForm1.Button1Clieck(Sender:TObject); begin reindex(DataBase1,Table1,Edit1,ProgressBar1); end; 之前做重整foxpro資料庫的索引檔試的, 參考看看囉~自己再試試~加油加油!

如果要使用 TAdoQuery 一定要使用 ExecSQL 方式才可以
不然用 TAdoComand 也可以。範例如下：    // Demo1
AdoQuery1.SQL.Text := 'DBCC DBReindex ([dbo].[TableName], '''', 0) WITH NO_INFOMSGS';
AdoQuery1.ExecSQL;    // Demo2
AdoCommand1.CommandText :=  'DBCC DBReindex ([dbo].[TableName], '''', 0) WITH NO_INFOMSGS';
AdoCommand1.Execute;

多謝各位大哥，小弟會試試看。 ======================== 我是DELPHI5的初學者