Hola a todos nuevamente.
Pues eso, tengo una hoja excel con solo 2 columnas, codigo y nombre y necesito pasarlos a una tabla en mysql.
Algun ejemplo.??
Quedo atento.
#include "Fivewin.ch"
#include "xbrowse.ch"
#include "tdolphin.ch"
PROCEDURE ImportaExcel(cFile)
LOCAL oExcel, oBook, cSql1, q, nTotRow, cCol1, cCol2
oExcel:=TOleAuto():New("Excel.Application")
oBook := oExcel:Workbooks:Open(cFile)
cSql1 := "INSERT INTO productos (codigo,nombre) VALUES "
oBook:Sheets(1):Select()
oHoja := oExcel:ActiveSheet()
nTotRow:= oHoja:UsedRange:Rows:Count()
FOR q=2 TO nTotRow
cCol1:=oHoja:Cells( q, 1 ):Value
cCol2:=oHoja:Cells( q, 2 ):Value
cSql1 := cSql1 + "("+cCol1 + "," + cCol2 +") ,"
NEXT
NEXT
oExcel:WorkBooks:Close()
oExcel:Application:Quit()
oExcel:Quit()
RELEASE oHoja
RELEASE oExcel
cSql1 := LEFT(cSql1,LEN(cSql1)-1)
oServer:Execute( cSql1 )
MsgInfo("Proceso terminado","Atencion!")
ReturnGracias César,
Pruebo y te comento
Code Name
101 cmsoft
102 Jose
103 G.N.Rao
104 Antonio#include "fivewin.ch"
#include "adodef.ch"
function Main()
local cXlBook := "c:\fwh1906\samples\data.xlsx"
local oCn, oRange, aData, cSql
oRange := GetExcelRange( cXlBook )
aData := xlRangeValue( oRange )
ADel( aData, 1, .t. )
cSql := SQL INSERT INTO mytable ( `code`, `name` ) ARRAY aData
? cSql
// open dolphin or other connection
//oCn:Execute( cSql )
return nil INSERT INTO mytable ( `code`, `name` )
VALUES ( 101.00,'cmsoft' ),
( 102.00,'Jose' ),
( 103.00,'G.N.Rao' ),
( 104.00,'Antonio' )
oRange:Parent:Parent:Close( .f. )Perfecto
Muchas Gracias
Excelente Mr. Rao, mucho mucho merjor!
Gracias por siempre enseñar comandos tan potentes.