如何在Delphi中实现将Excel中数据导入数据库

Question

如何在Delphi中实现将Excel中数据导入数据库

Answer 1

excel 导入数据库??/ 我只有导出来
excel 导入数据库 要验证数据吧

Answer 2

const
  cnnstr = 'Provider=Microsoft.Jet.OLEDB.4.0;  Data Source=%s;  Extended Properties=Excel 8.0;         Persist Security Info=False ';procedure btnLoadExcelClick(Sender: TObject);
var
  filename : String;
  s_1 : String;
  s_2 : String;
  s_3 : String;
begin
  try
    ADOQuery1.Close;
      ADOQuery1.ConnectionString := Format(cnnstr,[filename]);
      // Sheet1 为Excel文件工作簿名
      ADOQuery1.SQL.Text := 'SELECT * FROM [Sheet1$]';
      ADOQuery1.Open;
  
    ADOQuery1.First;
    while not ADOQuery1.Eof do
    begin
      s_1 := ADOQuery1.Fields.Fields[0].AsString;
      s_2 := ADOQuery1.Fields.Fields[1].AsString;
      s_3 := ADOQuery1.Fields.Fields[2].AsString;      ADOQuery1.Next;
    end;
  finally
    ADOQuery1.Close;
  end;
end;// 这个是从Excel取值，剩下的写入数据库，楼主就自己搞定咯，insert 或者update 

Answer 3

建议使用第三广控件，一是速度快，二是不使用Ole。

Answer 4

excel导入数据库首先要看你的excel数据格式是否符合标准。如果你的excel数据是按列排好的，或者第一行是列名，或者第一行就是数据都行。
如果符合上述条件，那么可以直接用2楼的方法导入。
如果不符合，那就只能读取单个cell数据填写了。当然，也可以在excel中写vba导入sql，或者sql中直接导入excel。

Answer 5

XLSReadWrite4