Power Builder - POR FAVOR LEER URGENTE

 
Vista:

POR FAVOR LEER URGENTE

Publicado por victor (2 intervenciones) el 31/03/2004 23:09:02
Auxilio :

Quiero importar desde una hoja excel nombre , edad , fecha de nacimiento de varias personas como (100) y no se como extraer la información para pasarla dw .

¿ Como me conecto a hoja excel
¿ Como traigo el valor del campo
¿ Como se cuantos registro leer

Si alguien me puede ayudar con un ejemplo Hoy.

Estoy a prueba en el trabajo y quiero quedarme

si pueden mandar un ejemplo me sera mas util.

Por favor si pueden ayudar este es mi correo
[email protected]
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

RE:POR FAVOR LEER URGENTE

Publicado por Oscar (1178 intervenciones) el 31/03/2004 23:42:10
Importar datos de excel a un DW.

1. En tu BD actual, crea un objeto DW, con los mismos campos y tipo de dato de las columnas de excel.
2. Asociá ese objeto DW a tu control DW en tu ventana.
3. Ingresá a Excel y quitá los encabezados de las columnas. Sólo debes tener datos. Guardá los cambios.
4. En un botón de la ventana donde está el dw_1. Pegá lo siguiente:
----------------------------------------------
string ls_pathname, ls_filename
long ll_rc
oleobject loo_excel

IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, "XLS","Excel Files(*.xls),*.xls" ) < 1 THEN Return

loo_excel = CREATE OLEObject
loo_excel.ConnectToNewObject( "excel.application" )
loo_excel.visible = false
loo_excel.workbooks.open( ls_pathname )
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
ll_rc = dw_1.ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
DESTROY loo_excel
--------------------------------------------
Con este método puedes importar cualquier cantidad de registros. Comentá tus resultados....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POR FAVOR LEER URGENTE

Publicado por Eesilvah (3 intervenciones) el 06/09/2006 16:11:37
Amigo, Primero que nada gracias por contestarme... Sabes que al aplicar la solución no se me genera ningun error, pero, tampoco me recupera ningun valor. Lo segui con el Debus y me di cuenta que la instruccion "ll_rc = dw_1.ImportClipBoard ( 2 ) " me devuelve -1 lo que según la ayuda del PB significa que no recuperó ninguna fila de la planilla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POR FAVOR LEER URGENTE

Publicado por Jesus Camargo (2 intervenciones) el 27/01/2009 18:02:28
Muy bueno el procedimiento, excelente.
Gracias por colocarlo al alcance de todos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar