Red de conocimiento informático - Conocimiento del nombre de dominio - ¿Cómo importar el contenido en Excel a la base de datos de un experto en Delphi? Por favor, infórmame. Sinceramente, gracias. Lo mejor es tener un programa de código fuente.

¿Cómo importar el contenido en Excel a la base de datos de un experto en Delphi? Por favor, infórmame. Sinceramente, gracias. Lo mejor es tener un programa de código fuente.

He escrito antes que primero debe agregar

Excel2000, OleServer, ComObj, ExcelXP a la lista de usos anterior y agregar el control EXECEL correspondiente.

ExcelApplication1: TExcelApplication;

ExcelWorkbook1: TExcelWorkbook;

ExcelWorksheet1: TExcelWorksheet;

Luego escribe el siguiente código en tu evento. Resulta que se escribieron demasiados datos y se eliminaron algunas columnas de contenido importado. Puede depurarlo usted mismo.

var

nu,barcode1,da,na,ena,com,spec:string;

ExcelApp,WorkBook: Olevariant;

ExcelRowCount,i :Integer;

comenzar

dbgrid2.Enabled:=false;

pruebe

si SaveDialog1.Execute entonces

comenzar

ExcelApp := CreateOleObject('Excel. Application');

WorkBook := ExcelApp.WorkBooks.Open(savedDialog1.FileName);

ExcelApp.Visible := false;

ExcelRowCount := WorkBook.WorkSheets

Si trim(excelapp.cells.value)='' entonces

<. p> na:=' '

en caso contrario comenzar

na:= excelapp.Cells.

si trim(excelapp.cells.Value)='' entonces

com:=''

else

com:= trim(excelapp.Cells.Value)='' entonces

上篇: Construcción del código fuente del índice 下篇: ¿Cómo reinstalar el sistema de Shenzhou Computer?

Artículos populares