批量导入数据.docVIP

delphi批量导入数据?? 从Excel中导入数据到Access中：procedure TForm5.Button3Click(Sender: TObject); //excel导入var? EXLfile:string;?? sheet,XLApp,workbook : variant;?? iRow,MaxRow:integer;begin? if opendialog1.Execute then? begin??? EXLfile:=opendialog1.FileName;??? screen.Cursor:=crHourGlass;??? try???? //创建对象????? XLApp:=createOleObject(Excel.Application);????? XLApp.displayAlerts:=false;?? //运行宏时是否显示警告和消息????? XLApp.ScreenUpdating:=false;???? //屏幕更新功能,提高速度;????? XLApp.WorkBooks.Add(EXLfile);????? workbook := XLApp.workbooks[1];????? sheet:=workbook.worksheets[1];???? //sheet:=XLApp.WorkBooks[1].worksheets[1];??? //得到最大行数?? maxRow????? XLApp.ActiveCell.SpecialCells(xlLastCell).Select;????? maxRow:=XLApp.ActiveCell.Row;?? //当前行数???? //最大行数???? //写数据到access库????? with Dm1.aq_temp do????? begin??????? Close;??????? SQL.Clear ;??????? SQL.Add(select * from peo );??????? open ;??????? for iRow:=1 to MaxRow do //?? 循环次数为excel最大行数字-1，因为excel的第1行为ID name表头。??????? begin????????? Edit;????????? Append;????????? fieldByName(P_No).asString:=sheet.cells[iRow,1];????????? fieldByName(P_Name).asString:=sheet.cells[iRow,2]; //导入????????? post;??????? end;????? end;????? finally????? if not VarIsEmpty(XLApp) then ????? begin?? //释放对象??????? XLApp.displayAlerts:=false;??????? XLApp.ScreenUpdating:=true;? //结束后，ScreenUpdating 设回到 True??????? XLApp.quit;????? end;???? screen.Cursor:=crDefault;??? end;? end;end; 现在sql里有book的表，里面有?id?????????????书名???????????????价格?id???????????bookname?????????price?1?????????????社会与科学????????????18?2?????????????delphi入门???????????25?3?????????????百科??????????????????30?在delphi里现在希望先把数据从excel导入到dbgrid中，然后点“批量插入”时，把刚才所有存到导入的dbgrid的数据插入到sql中，问一下大家怎么才能做到，有二个关键代码?1.button1:“从excel导入到dbgrid中”的关键代码?2.button2:批量插入dbgrid数据到数据库中的关键代码? 如果利用dbgrid其实就是利用数据集来操作从excel读数据,然后利用adoquery.append;adoquery.fieldbyname().value?:=?读的值.......然后,对dbgrid进行编辑.最后adoquery.post;就达到了批量提交了.但这里要用事务来控制.读Excel代码:利用一个结构体,供你参考