Question

Delphi 中怎么把Execel文件中的内容导入到SQL SERVER数据库中?

client表 clientID clientName

Answer 1

//将Excel中的数据导入StringGrid中 Function ExcelToStringGrid(var StrGrid:TStringGrid;ExcelFileName:string):String; Function IsInIt(EmployeeNum:string):boolean; var i:integer; ret:boolean; begin ret:=False; for i:=0 to StrGrid.RowCount-1 do begin if EmployeeNum=trim(StrGrid.Cells[0,i]) then begin ret:=True; break; end; end; result:=ret; end; var ExcelApplication: TExcelApplication; ExcelWorkbook: TExcelWorkbook; ExcelWorksheet: TExcelWorksheet; count,NowRow,i:integer; ret:String; begin ret:='导入成功'; try screen.Cursor :=crSQLWait; if Not FileExists(ExcelFileName) then begin //文件不存在 ret:='文件不存在'; exit; end; //测试EXCEL是否安装 Try ExcelApplication:=nil; ExcelWorkbook:=nil; ExcelWorksheet:=nil;