表的导入问题

Question

我想从一个acssess数据库中表的纪录追加到另外一个acssess数据库表中，怎么实现

Answer 1

  ATEADO.close;
  ATEADO.SQL.clear;
  ATEADO.SQL.Append('SELECT * FROM MAIN');
  ATEADO.Open;  while ExcelApp1.cells[v_row, 1].value <> '' do
  begin    try
      ATEADO.Append;
      ATEADO.FIELDS[0].asstring := ExcelApp1.cells[v_row, 1].value;
      ATEADO.FIELDS[1].asstring := ExcelApp1.cells[v_row, 2].value;
      ATEADO.FIELDS[2].asstring := ExcelApp1.cells[v_row, 3].value;
      ATEADO.FIELDS[3].asstring := ExcelApp1.cells[v_row, 4].value;
      ATEADO.FIELDS[4].asstring := ExcelApp1.cells[v_row, 5].value;
      ATEADO.FIELDS[5].asstring := ExcelApp1.cells[v_row, 6].value;
      ATEADO.FIELDS[6].asstring := ExcelApp1.cells[v_row, 7].value;
      ATEADO.FIELDS[7].asstring := ExcelApp1.cells[v_row, 8].value;
      ATEADO.FIELDS[8].asstring := ExcelApp1.cells[v_row, 9].value;
      ATEADO.FIELDS[9].asstring := ExcelApp1.cells[v_row, 10].value;
      ATEADO.FIELDS[10].asstring := ExcelApp1.cells[v_row, 11].value;
      ATEADO.FIELDS[11].asstring := ExcelApp1.cells[v_row, 12].value;
      ATEADO.FIELDS[12].asstring := ExcelApp1.cells[v_row, 13].value;
      ATEADO.FIELDS[13].asstring := ExcelApp1.cells[v_row, 14].value;
      ATEADO.FIELDS[14].asstring := ExcelApp1.cells[v_row, 15].value;
      ATEADO.FIELDS[15].asstring := ExcelApp1.cells[v_row, 16].value;
      ATEADO.FIELDS[16].asstring := ExcelApp1.cells[v_row, 17].value;
      ATEADO.Post;
    except
      on E: Exception do
      begin
        MessageDlg('Write Data into Asscess DB(MAIN) Error!!! [' + E.Message + ']', mtError, [mbOK], 0);
      end;
    end;    v_row := v_row + 1;  end;ATEADO 是Query控件，用来链接acssess数据库。
大概就是上面的，你模仿就好了。

Answer 2

  ATEADO.close;
  ATEADO.SQL.clear;
  ATEADO.SQL.Append('SELECT * FROM MAIN');
  ATEADO.Open;  while ExcelApp1.cells[v_row, 1].value <> '' do
  begin    try
      ATEADO.Append;
      ATEADO.FIELDS[0].asstring := ExcelApp1.cells[v_row, 1].value;
      ATEADO.FIELDS[1].asstring := ExcelApp1.cells[v_row, 2].value;
      ATEADO.FIELDS[2].asstring := ExcelApp1.cells[v_row, 3].value;
      ATEADO.FIELDS[3].asstring := ExcelApp1.cells[v_row, 4].value;
      ATEADO.FIELDS[4].asstring := ExcelApp1.cells[v_row, 5].value;
      ATEADO.FIELDS[5].asstring := ExcelApp1.cells[v_row, 6].value;
      ATEADO.FIELDS[6].asstring := ExcelApp1.cells[v_row, 7].value;
      ATEADO.FIELDS[7].asstring := ExcelApp1.cells[v_row, 8].value;
      ATEADO.FIELDS[8].asstring := ExcelApp1.cells[v_row, 9].value;
      ATEADO.FIELDS[9].asstring := ExcelApp1.cells[v_row, 10].value;
      ATEADO.FIELDS[10].asstring := ExcelApp1.cells[v_row, 11].value;
      ATEADO.FIELDS[11].asstring := ExcelApp1.cells[v_row, 12].value;
      ATEADO.FIELDS[12].asstring := ExcelApp1.cells[v_row, 13].value;
      ATEADO.FIELDS[13].asstring := ExcelApp1.cells[v_row, 14].value;
      ATEADO.FIELDS[14].asstring := ExcelApp1.cells[v_row, 15].value;
      ATEADO.FIELDS[15].asstring := ExcelApp1.cells[v_row, 16].value;
      ATEADO.FIELDS[16].asstring := ExcelApp1.cells[v_row, 17].value;
      ATEADO.Post;
    except
      on E: Exception do
      begin
        MessageDlg('Write Data into Asscess DB(MAIN) Error!!! [' + E.Message + ']', mtError, [mbOK], 0);
      end;
    end;    v_row := v_row + 1;  end;ATEADO 是Query控件，用来链接acssess数据库。
大概就是上面的，你模仿就好了。