Delphi 中如何将EXCEL表导入到已知的数据库中,再进行操作

发布网友

我来回答

共3个回答

热心网友

with cxSpreadBook_NbImport.ActiveSheet do
begin
TotalRowCount:= RowCount;
ProcessBarUtil.initProgressBar(0,TotalRowCount);
ProcessBarUtil.setProgressHintText(1,'保存邻区列表数据...');
for i:=1 to TotalRowCount-2 do
begin
for j:=0 to TotalColumCount-1 do
begin
valueStr:=GetCellObject(j,i).Text;
if valueStr='' then
break;
end;
try
DBUnit.DataModel.ImportUserNbList(valueStr);//DB方法
except
end;
end;
end;

热心网友

adoconnection连上excel 然后就像数据库那样操作。
进行取值 然后用另一个ado连到数据库来判断

热心网友

d