请问:数据库中的多级主从表导出到EXCEL怎么存储,并且可以再导入到数据库中!

marsjin 2003-08-21 09:59:05
请问:数据库中的多级主从表导出到EXCEL怎么存储,并且可以再导入到数据库中!
谢谢,等待!!!!
...全文
76 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
swayi21 2003-12-09
  • 打赏
  • 举报
回复
如三級:
寫主表的一條,
寫它一級從表的一條,
寫完二級從表的所有記錄
寫一級從表的第二條
寫主表的下一條
全部通過循還實現。
jxc163 2003-12-09
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/2446/2446822.xml?temp=.2700312
这个帖子看看,这几天关于EXCEL的问题很多。
chenkandy 2003-12-09
  • 打赏
  • 举报
回复
up
duxin 2003-12-09
  • 打赏
  • 举报
回复
unit OfficeForm;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics,
Controls, Forms, DBCtrls, StdCtrls, DBTables,
ExtCtrls, Mask, Db, Dialogs, Excel97, Word97,
OleServer;

type
TFormOff = class(TForm)
DBEdit3: TDBEdit;
Label3: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
DBEdit1: TDBEdit;
Label1: TLabel;
DBNavigator1: TDBNavigator;
Table1: TTable;
DataSource1: TDataSource;
BtnExcel: TButton;
SaveDialog1: TSaveDialog;
ExcelApplication1: TExcelApplication;
procedure BtnExcelClick(Sender: TObject);
end;

var
FormOff: TFormOff;

implementation

{$R *.DFM}

uses
ComObj, ActiveX;
procedure TFormOff.BtnExcelClick(Sender: TObject);
var
RangeE: Excel97.Range;
I, Row: Integer;
Bookmark: TBookmarkStr;
begin
// create and show
ExcelApplication1.Visible [0] := True;
ExcelApplication1.Workbooks.Add (NULL, 0);
// fill is the first row with field titles
RangeE := ExcelApplication1.ActiveCell;
for I := 0 to Table1.Fields.Count - 1 do
begin
RangeE.Value := Table1.Fields [I].DisplayLabel;
RangeE := RangeE.Next;
end;
// add field data in following rows
Table1.DisableControls;
try
Bookmark := Table1.Bookmark;
try
Table1.First;
Row := 2;
while not Table1.EOF do
begin
RangeE := ExcelApplication1.Range ['A' + IntToStr (Row),
'A' + IntToStr (Row)];
for I := 0 to Table1.Fields.Count - 1 do
begin
RangeE.Value := Table1.Fields [I].AsString;
RangeE := RangeE.Next;
end;
Table1.Next;
Inc (Row);
end;
finally
Table1.Bookmark := Bookmark;
end;
finally
Table1.EnableControls;
end;

RangeE := ExcelApplication1.Range ['A1', 'E' + IntToStr (Row - 1)];
RangeE.AutoFormat (3, NULL, NULL, NULL, NULL, NULL, NULL);
end;

initialization
CoInitialize (nil);
end.

梦回童年001 2003-12-09
  • 打赏
  • 举报
回复
這樣子問你以為是開玩笑啊,一次就要完。誰幫你寫??????!!!!!!!!!!!!!!!!!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧