DELPHIEXCEL文件导入ACCESS数据库(转载).doc

delphi2010将excel文件导入access数据库procedure TForm1.Button1Click(Sender: TObject);var sFileName, sTableName: string; sl: TStringList; i,j: integer;begin if not OpenDialog2.Execute then Exit; if not ADOConnection1.Connected then ADOConnection1.Connected:=True; /判断是否连接try sFileName := OpenDialog2.FileName; ADOConnection2.Connected := False; /连接 EXCEL 的参数 ADOConnection2.ConnectionString := Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source= + sFileName + ;Extended Properties=Excel 8.0;IMEX=1;Persist Security Info=False; ADOConnection2.Connected := True; sl := TStringList.Create; ADOConnection2.GetTableNames(sl); /showmessage(inttostr(sl.count); for j:=0 to sl.Count-1 do /sl.Count-1 begin sTableName := slj; if Pos(_, sTableName) 0 then continue; if Pos($, sTableName) 0 then sTableName := + sTableName + ; ADOquery2.Close; ADOquery2.SQL.Clear; ADOquery2.SQL.Text := SELECT * FROM + sTableName; ADOquery2.Open; edit1.Text:=当前IP段:+sTableName; ADOquery1.Close; ADOquery1.Sql.Text := SELECT top 1 * FROM iplib where 1=0; ADOquery1.Open; if ADOquery2.RecordCount 0 then begin ADOquery2.First; for i := 1 to ADOquery2.RecordCount do / begin ADOquery1.Append; ADOquery1.FieldValuesname:=ADOquery2.FieldValues使用人姓名; ADOquery1.FieldValuesunit:=ADOquery2.FieldValues存放地点; ADOquery1.FieldValuesip:=ADOquery2.FieldValues计算机IP地址; ADOquery1.Post; ADOquery2.Next; end; /for i end; /if end; /for jMessageBox(Handle,导入完成！,完成！,MB_OK+MB_ICONINFORMATION);excep