怎么向paradox数据库中导入excel表格中的数据呢？

Question

因为有不少条记录逐条输入要累死人，在此求助大家！

Answer 1

用SQL Server的数据导入和导出，非常快

Answer 2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966 搜一下有关paradox的看能不能找到

Answer 3

用SQL Server的数据导入和导出吧，如果你没有装SQL Server，用access的导入也可以

Answer 4

实际上，Excel的工作簿是一个数据库，工作表是一个数据表，所以你可用考虑一下写一个小程序来在异构数据库间导数据。

Answer 5

这是一个将ACCESS中的数据导入到EXCEL中的源代码
procedure TForm1.Button1Click(Sender: TObject);
var
  sSql, mdbpath, xlspath: string;
begin
  if (trim(edit1.Text) = '') or (trim(edit2.Text) = '') then
  begin
    MessageBox(GetActiveWindow(), '请正确选择相关路径！', '警告', MB_OK +
      MB_ICONWARNING);
    exit;
  end;
  mdbpath := trim(edit1.Text);          //MDB路径
  xlspath := trim(edit2.Text);          //Excel路径
  ADOConnection1.Connected := False;
  try
    ADOConnection1.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
      mdbpath + ';Persist Security Info=False';
    ADOConnection1.Connected := true;
    try
      adoquery1.Close;
      adoquery1.SQL.Clear;
      sSql :=
        'INSERT INTO  aaa (prd_no, SPC, UT, DFU_UT, KND, IDX1, NAME, SUP1)' +  //prd_no, SPC, UT, DFU_UT, KND, IDX1, NAME, SUP1
      ' SELECT' +
        ' prd_no, SPC, UT, DFU_UT, KND, IDX1, NAME, SUP1' +
        ' FROM [excel 8.0;database=' + xlspath + '].[PRDT$]';
      adoquery1.Parameters.Clear;
      adoquery1.ParamCheck := false;
      adoquery1.SQL.Text := sSql;
      adoquery1.Execsql;
      MessageBox(GetActiveWindow(), '批量导入EXCEL成功!', '警告', MB_OK +
        MB_ICONWARNING);
      form2:=tform2.create(nil);
      with form2.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Text:='SELECT * FROM AAA';
        Open;
      end;
      form2.ShowModal;
      form2.Free;
    except
      MessageBox(GetActiveWindow(), '批量导入EXCEL失败!', '警告', MB_OK +
        MB_ICONWARNING);
    end;
  except
    MessageBox(GetActiveWindow(), '连接ACCESS失败!', '警告', MB_OK +
      MB_ICONWARNING);
  end;
end;