这个地方刚刚拷贝错了
begin
ADOQuery1.Parameters.ParamByName('name').Value:= trim(Excelapp.WorkSheets[1].Cells[i,1].value);
ADOQuery1.Parameters.ParamByName('idcard').Value:= trim(Excelapp.WorkSheets[1].Cells[i,2].value);
ADOQuery1.Parameters.ParamByName('tel').Value:= trim(Excelapp.WorkSheets[1].Cells[i,3].value);
ADOQuery1.Parameters.ParamByName('address').Value:= trim(Excelapp.WorkSheets[1].Cells[i,4].value);
ADOQuery1.execsql;
begin
ADOQuery1.Parameters.ParamByName('name').Value:= trim(Excelapp.WorkSheets[1].Cells[i,1].value);
ADOQuery1.Parameters.ParamByName('idcard').Value:= trim(Excelapp.WorkSheets[1].Cells[i,2].value);
ADOQuery1.Parameters.ParamByName('tel').Value:= trim(Excelapp.WorkSheets[1].Cells[i,3].value);
ADOQuery1.Parameters.ParamByName('address').Value:= trim(Excelapp.WorkSheets[1].Cells[i,4].value);
ADOQuery1.execsql;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货