TClientDataSet如何創建新的table |
|
|
|
corey
一般會員   發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
corey
一般會員 發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
小弟正好看到,有一點點空檔,插花一下,歹勢
ClientDataSet1.Close; ClientDataSet1.FieldDefs.Clear; ClientDataSet1.FieldDefs.Add('strId',ftString,3); ClientDataSet1.FieldDefs.Add('Name',ftString,10); ClientDataSet1.CreateDataSet; ClientDataSet1.Append; ClientDataSet1.FieldByName('strId').AsString:='001'; ClientDataSet1.FieldByName('Name').AsString:='test1'; ClientDataSet1.Append; ClientDataSet1.FieldByName('strId').AsString:='002'; ClientDataSet1.FieldByName('Name').AsString:='test2'; |
|
corey
一般會員 發表：34 回覆：44 積分：14 註冊：2003-04-19 發送簡訊給我 |
===================引 用 文 章=================== 小弟正好看到,有一點點空檔,插花一下,歹勢 ClientDataSet1.Close; ClientDataSet1.FieldDefs.Clear; ClientDataSet1.FieldDefs.Add('strId',ftString,3); ClientDataSet1.FieldDefs.Add('Name',ftString,10); ClientDataSet1.CreateDataSet; ClientDataSet1.Append; ClientDataSet1.FieldByName('strId').AsString:='001'; ClientDataSet1.FieldByName('Name').AsString:='test1'; ClientDataSet1.Append; ClientDataSet1.FieldByName('strId').AsString:='002'; ClientDataSet1.FieldByName('Name').AsString:='test2'; 謝謝大大回覆 真的要一個個add加入嗎(我欄位很多)?有沒有其它更好的辦法?如load file或是load xml方式.... 還有可以做sort嗎(多欄位) code如何寫? 還有可以下sql command? table name是什麼?(好像沒指定) |
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
===================引 用 文 章=================== 真的要一個個add加入嗎(我欄位很多)?有沒有其它更好的辦法?如load file或是load xml方式.... 可以存成 XML 後...用文書編輯器 ClentDataSet.Savetofile('c:\aaa.xml',dfXML) 或 ClentDataSet.Savetofile('c:\aaa.xml',dfXMLUTF8)==> UTF8 編碼的 XML 還有可以做sort嗎(多欄位) code如何寫? CD.AddIndex('tmpindex','Field1;Field2',[],'Field3;Field4'); CD.IndexDefs.Update; CD.IndexName := 'tmpindex'; 還有可以下sql command? 只是DataSet...沒有 SQL 支持....可以看看 Filter 屬性能否滿足需求 table name是什麼?(好像沒指定) 可以看看 Nested DataSet ... 例如 N := CD.FieldDefs.AddFieldDef; N.Name := 'mComponents'; N.DataType := ftDataSet; //==> Nested DataSet N1 := N.ChildDefs.AddFieldDef; N1.Name := 'mCompName'; N1.DataType := ftString; N1.Size := 40; N1 := N.ChildDefs.AddFieldDef; N1.Name := 'mKeyFields'; N1.DataType := ftString; N1.Size := 120; |
發表時間：2007-01-15 10:05:17
IP:60.248.xxx.xxx 訂閱
系統時間：2025-02-24 19:24:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |