求助，paradox 数据库问题 ，谢谢！ |
|
尚未結案
|
|
cashxin2002
版主   發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 有沒有收到Paradox Demo這個壓縮檔﹖就是在這個壓縮檔里的InstallShield File目錄. 我已經重新再寄了一次到您的信箱﹒ 請問您使用何種資料庫﹐ADO將資料匯出成Excel格式檔案适用于Access資料庫形態﹐其它的資料庫形態尚未研究出來﹒ =================================
------
忻晟 |
|
lsh998
中階會員  發表：163 回覆：138 積分：60 註冊：2005-01-07 發送簡訊給我 |
cashxin2002 大哥：
您好！
Paradox Demo 我已经收到！感激！
把 数据到入到 excel ,我的是 SQL SERVER 2000 我是这样做的，请cashxin2002 大哥 指教：
procedure TForm1.Button4Click(Sender: TObject); var
str:String;
strlist:TStringList;
i:Integer;
begin
DeleteFile('d:\zg.xls');
strlist:=TStringList.Create; ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='select * from table1';
ADOQuery2.Open;
ADOQuery2.First;
for i:=0 to ADOQuery2.FieldCount-1 do str:=str ADOQuery2.Fields[i].FieldName #9; strlist.Add(str); try
while not ADOQuery2.Eof do
begin
str:='';
for i:=0 to ADOQuery2.FieldCount-1 do
str:=Str ADOQuery2.Fields[i].AsString #9;
strlist.Add(str);
ADOQuery2.Next;
Application.ProcessMessages;
end;
strlist.SaveToFile('d:\zg.xls');
ShowMessage('OK');
finally
strlist.Free;
end; end; 谢谢 cashxin2002 大哥！
|
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
發表時間：2005-06-11 09:39:52
IP:202.62.xxx.xxx
未訂閱
系統時間：2024-05-19 1:52:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |