Question

一段用delphi将excel中的数据导入sql数据库的代码

这是网上搜索的一段代码 程序运行后点击button报错：
count not convert variant of type（string） into type（double）
请问该如何修改一下

因为execl中数据内容繁杂 所以在sql数据库中数据我都采用是text类型。

procedure TForm1.Button1Click(Sender: TObject);
var
excelx,excely : string;
ExcelApp,WorkBook: Olevariant;
ExcelRowCount,i :Integer;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
// WorkBook :=ExcelApp;
WorkBook := ExcelApp.WorkBooks.Open('C:\1.xls');
//使用opendialog对话框指定excel档路径
ExcelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
for i := 2 to excelrowcount + 1 do
begin
excelx := excelapp.Cells[i,1].value;
excely := excelapp.Cells[i,2].value;
if ((excelapp.Cells[i,1].Value = '')
and (ExcelApp.Cells[i,2].Value = '')) then
//指定excel档的第 i 行 ,第 1,2(看情况而定)行
//如果为空就退出,这样的设定,最好是你的档案力这两行
//对应数据库中不能为空的数据
break
else
with query1 do
begin
close;
sql.clear;
sql.add('insert into aa(a,b) values(:a,:b)');
ParamByName('a').value:= excelx;
//excel档的第一列插入到aa表的 a 栏位;
ParamByName('b').value:= excely;
//excel档的第二列插入到aa表的 b 栏位;
execsql;
end;
end;
finally
WorkBook.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
WorkBook := Unassigned;
end;
end;
end.
后来不知怎的 它就可以运行了 投票选最佳答案吧

Answer 1

a和b的字段类型是不是有Double类型?
请检查Excel中是不是出现了除数字外的其他字符
所以导致你插入数据库时会出现错误提示(string类型不能转换成double类型)

Answer 2

1：用ADO连接Excel
2：用ADO连接SQLserver LockType := ltBatchOptimistic;
3：遍历Excel，写入SQL。
4：批量提交。

Answer 3

var
excelx,excely : string;
ExcelApp,WorkBook: Olevariant;
ExcelRowCount,i :Integer;