dbgrid<=>access( txt ,excel)的导入导出

Question

dbgrid中内容如何保存成access( txt ,excel)？
access( txt ,excel)中内容如何导成dbgrid中？

Answer 1

var
i:integer;
str1:Tstrings
begin
str1:=Tstringlist.creat;
query1.close;
query1.sql.clear;
query1.sql.add('Select * from table1');
query1.open;
for i:=1 to query1.recordcount do
begin
 str1.add(query1.FieldByName('你要导出的字段名').Value);
query1.next;
end;------------------------------------------
把它读到字符串列表里面了你想怎么样就怎么样了啊

Answer 2

1）access数据库中的内容通过数据库控件不是可以显示再dbgrid中吗？
2）将dbgrid的结果基写入txt应该不难把？
3）给你一段代码
procedure TfrmMain.SavetoXLS;
var
  fexcel: variant;
  fworkbook: variant;
  fworksheet: variant;
  farray: variant;
  s, z: integer;
  rangestr: string;
  strtcol, strtrow: integer;begin
  if Query1.IsEmpty then exit;
  screen.cursor := crHourGlass;  try
    FExcel := CreateOleObject('excel.application');
  except
    screen.cursor := crDefault;
    Application.MessageBox('您没有安装excel', '错误', MB_OK);
    exit;
  end;  FWorkBook := FExcel.WorkBooks.Add;
  FWorkSheet := FWorkBook.WorkSheets[1];  strtcol := 0;
  strtrow := 0;  farray := vararraycreate([0, query1.RecordCount, 0, 13], varVariant);
  for z:=0 to 13 do
    farray[0, z]:=DbGrid1.Columns[z].Title.Caption;  with Query1 do
  begin
    First;
    s := 1;
    while not Eof do
    begin
      for z := 0 to 13 do
      begin
        farray[s - strtrow, z - strtcol] := Fields[z].AsString;
      end;
      Inc(s);
      Next;
    end;
  end;
  rangestr := 'A:N 1:'+InttoStr(query1.RecordCount+1);
  FWorkSheet.Range[rangestr].Value := fArray;
  try
    FWorkbook.SaveAs(ExtractFileDir(Application.ExeName) + '\chargescheme.xls');
  except
    screen.cursor := crDefault;
    exit;
  end;
  FExcel.Quit;
  FExcel := unassigned;
  screen.cursor := crDefault;
end;

Answer 3

用他
str1.savetofile('c:\xxxx.txt');
把字符串列表的数据放入到文本文件里面