Question

在delphi中如何实现 EXCEL指定某一列某一行的数据导入SQL数据库。

最好有实例。 有实例的发到我的邮箱：kk342988048@163.com
谢谢。 回答完有丰富的悬赏

Answer 1

先读取 指定列的值，然後insert ;
如下
var qrydata:Tclientdateset;
excelAp,workBook,sheet:variant
begin
ExcelAp := CreateOleObject('Excel.Application');
WorkBook := ExcelAp.Workbooks.open(xlFile);
ExcelAp.DisplayAlerts := False;
Sheet := ExcelAp.Worksheets.Item[1];
with qrydata do
begin
close;
commandtext:=' insert into table_name (clum1,clum2)'+
'values(Sheet.Range[A1].value,Sheet.Range[A2].value)';//A1/A2就是你想插
//的指定栏位的值
execute;
end;
end;
有问题可加我SKYPE:yc515623876 加时注明Baidu_Delphi

追问

有实例吗？
直接发我一份实例

Answer 2

用for循环