如何把DBGird里的记录导出到ACCESS中去...急!!!!!!!!!

Question

如题

Answer 1

我写了一个动态链接库，全部打包了，直接调用就行。要的话告诉我E_MAIL.

Answer 2

http://www.delphibox.com/lists.asp
建议你到这里 下载  个人帐目管理系统 源代码 
里面很详细的！

Answer 3

给你段实用的代码
uses ComObj;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  MSExcel:Variant;
  i,j:integer;
begin
  SaveDialog1.Filter:='*.XLS|*.XLS';
  SaveDialog1.DefaultExt:='XLS';
  if SaveDialog1.Execute then
  begin
    MsExcel:=createOLEobject('excel.application');
    MsExcel.workBooks.add;
    Msexcel.visible:=false;
    with DataSource1.Dataset  do
    begin
      first;
      for i:=0 to fieldcount-1 do
      begin
        Msexcel.cells[1,i+1].value:=fields[i].DisplayLabel ;
      end;
      j:=2;
      while not eof do
      begin
        for i:=0 to fieldcount-1 do
        begin
          Msexcel.cells[j,i+1].numberformat:='@';
          Msexcel.cells[j,i+1].value:=fields[i].AsString ;
        end;
        inc(j);
        next;
      end;
    end;
    MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
    MSExcel.ActiveWorkBook.Saved:=True;
    MSExcel.Quit;
  end;
end;

Answer 4

http://www.delphibbs.com/keylife/iblog_show.asp?xid=7370

Answer 5

用SMPORT，想倒到那里就倒到那里

Answer 6

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2428250
里面的那个saveasexcel 过程很实用的
只需自己修改一下 就行了！

Answer 7

我是想直接导入到ACCESS中,不是导入到EXECL中.

Answer 8

倒入Access！
www.2ccc.com上面有源码。

Answer 9

是一个表还是多个表？是一个表比较简单，你能不能把dbgrid上的字段名列出来。

Answer 10

首先通过DBGrid得到数据集，如果是Query的话，对其SQL语句进行改写，
如：select * from table 改为 Select * into tmptable from table
插入到一个临时表中，
然后再通过其他方法将数据导出到Access,我觉得这种方法速度要快些