Power Builder - Importar Excel a DB2 via power

 
Vista:

Importar Excel a DB2 via power

Publicado por Pascual Yovera (23 intervenciones) el 29/08/2007 04:17:54
hola a todos. mi consulta es la sgte.
estoy importando datos de un excel de una hoja especifica
con el codigo que les muestro, pero cuando le doy importar me copia solo el campo de fecha, y no los campos con valores numericos ni textos....
debo establecer un formato en el excel para cada campo (columna)..
la otra pregunta es , cuando quiero grabar lo que me importa no lo hace, y se abre el archivo excel, pidiendo el emnsaje de , desea guardar los cambios ( esto en el excel fuente<).

si alguien puede ayudarme porfa....
estoy trabajndo en DB2 como base de datos...(lo digo por q esto mismo lo hice en conexion a oracle y no paso esto)

este es codigo q empleo...

OLEObject excel
int li_rtn
boolean lb_sheet_rtn
LOng ll_cnt//, i


excel = create OLEObject

li_rtn = excel.ConnectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','No puede conectarse a Excel')
DESTROY excel
RETURN 0
END IF


excel.WorkBooks.Open( "C:\SAM9\concilbancaria\conciliacion.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize


lb_sheet_rtn = excel.worksheets('BCO.COMERCIO').Activate
excel.Worksheets('BCO.COMERCIO').Range("A1:E5000").Copy // copiar al clipboard
//Copiar desde la segunda fila de Excel
ll_cnt = dw_multiple.importclipboard(2)
IF ll_cnt <= 1 THEN
Messagebox("Info", "No se encontró")
END IF

excel.Worksheets('BCO.COMERCIO').Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------



dw_multiple.update( )
IF SQLCA.SQLCode = -1 THEN
MessageBox("SQL error", SQLCA.SQLErrText)
ROLLBACK;
ELSE
COMMIT;
END IF
dw_multiple.reset()

dw_multiple.retrieve( )
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder