DataSet 轉 Html

發文回覆瀏覽次數：946

推到 Plurk!

推到 Facebook!

尚未結案

ylincud
一般會員

發表：1
回覆：1
積分：0
註冊：2004-03-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-08-04 11:08:21

IP:211.78.xxx.xxx 未訂閱

如何將 ADODataSet 內的資料轉成 html 檔(秀出來就像 DBGrid 的表格), 需先將DataSet存成XML, 再利用 XMLDocument 去解資料來轉成 html, 還是有更快的方法或元件可以用??

ylincud
一般會員

發表：1
回覆：1
積分：0
註冊：2004-03-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-08-04 16:10:17

IP:211.78.xxx.xxx 未訂閱

這是我目前用的方法: 在Form中加入ADODadaSet1, DataSource1, DBGrid1, Memo1, Button1, 然後選擇欲顯示之資料內容於DBGrid1中, 然後執行下列程式:

//***************************************
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  int FC=DBGrid1->FieldCount;    Memo1->Lines->Add("<html><body>");
//Title
 Memo1->Lines->Add("");
for(int i=0;iLines->Add("");
}
Memo1->Lines->Add("");
//Details
while(!ADODataSet1->Eof)
{
 Memo1->Lines->Add("");
 for(int i=0;iLines->Add("");
 }
 Memo1->Lines->Add("");
  ADODataSet1->Next();
}
Memo1->Lines->Add(""  DBGrid1->Columns->Items[i]->Title->Caption   "
"  DBGrid1->Fields[i]->AsString   "</body></html>");    Memo1->Lines->SaveToFile("test.htm");
WinExec("explorer.exe test.htm",1);    }
//-------------------------------------------------
//************************************************

這種方法蠻暴力的, 應該有更好的方法吧~ 發表人 -

系統時間：2024-05-04 17:45:49

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！