OK如果用戶想知道我對TMS DBAdvGrid導出了一個解決方法來導出CSV文件。
我添加了一個新的屬性,以TAdvStringGrid
public {properties}
property HideCSVHeader: boolean read FHideCSVHeader write FHideCSVHeader;
,並改變了下面的代碼:
procedure TAdvStringGrid.OutputToCSV(FileName:String;appendmode: Boolean;
Unicode: boolean);
....
//changed this code further down the procedure:
//for z := SaveStartRow to SaveEndRow do
//Into:
MyStartRow:= SaveStartRow;
if HideCSVHeader then Inc(MyStartRow);
for z := MyStartRow to SaveEndRow do
後來,當我打電話
procedure TForm1.BtnExportClick(Sender: TObject);
var
Filename: string;
succes: Boolean;
begin
succes:= True;
if ExportSaveDialog.Execute then begin
Filename:= ExportSaveDialog.FileName;
try
DBGridExportExact.Delimiter:= ';';
DBGridExportExact.AlwaysQuotes:= True;
DBGridExportExact.QuoteEmptyCells:= True;
DBGridExportExact.SaveHiddenCells:= True;
DBGridExportExact.HideCSVHeader:= True;
DBGridExportExact.SaveToCSV(bestandsnaam);
except
succes:= False;
end;
if not(succes) then StatusLabel.Caption:= 'Error bla bla';
end;
end;
我不明白。您開始詢問如何將查詢結果保存到blob字段*而不是文件*,但是接下來您將繼續詢問如何在客戶端獲取文件。你想要一個文件嗎?請編輯你的問題來澄清。 – 2011-04-20 13:55:18
@rob無論是在blob中還是在客戶端。 – Johan 2011-04-20 15:24:22
現在我使用DBAdvGrid.OutputToCSV *(必須更改TAdvStringGrid的源代碼以防止它導出標題行,但它有效)* – Johan 2011-04-20 20:52:50