用ADO连excel,如何把ADODataSet中的数据存入数据库表中?(50分)

  • 主题发起人 heartaching
  • 开始时间
To heartaching:

循环赋值的方法确实容易, 但是如果你的表很大........呵呵

而且, 你那是很不科学的做法。
 
to Town
thanks
就是不太会用引号,你使用了",这在程序中是非法的吧,我把它变成'',就提示参数
不完整或不符合。
 
下面是我从Excel导入Access的例子, D6试验通过。 我机器上没有SQLServer....

//过程, ADOConnection1连接SQLTable, ADOQuery1连接ADOConnection1

procedure TDM.ImportExcel(SQLTableName,ExcelTableName,ExcelFileName: string);
var
s: string;
begin
if ADOQuery1.Active then
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
s := 'insert into '+SQLTableName+' Select * from '+ExcelTableName+' in "'+ExcelFileName+'" "Excel 8.0;"';
ADOQuery1.SQL.Add(s);
ADOQuery1.ExecSQL;
end;

//引用
procedure TForm1.Button1Click(Sender: TObject);
begin
DM.ImportExcel('MyTable','Sheet1','c:/test.xls');
end;
 

Similar threads

顶部