Page 1 of 1
Guardar Word en una tabla MySQL
Posted: Wed Sep 26, 2018 3:09 pm
by Marcelo Roggeri
Hola buenos días, estoy necesitando guardar un informe médico hecho en un Word, el mismo incrustado dentro de una MDI, mi idea es poner un botón para guardar el informe en una tabla de MySQL (campo blob).
Necesito saber cómo guardar ese informe y también poder leerlo en el momento que lo soliciten.
Espero haberme explicado bien de lo que necesito
Agradezco la ayuda, busque en el foro pero no encontré lo que necesito si hay un link al respeto por favor me lo pasan por favor.
Marcelo
Re: Guardar Word en una tabla MySQL
Posted: Thu Sep 27, 2018 7:56 pm
by Marcelo Roggeri
Hola buenas tardes, bueno días pasado les comente un caso de uso que tenia, el cual gracias al foro (buscando y ayudas de colegas) pude ir solucionando.
Solo me queda un error en cuestion que es al insertar el archivo de word en una ventana hija.
Les comparto el cóodigo y el error
Code: Select all
FUNCTION ShowWord( oServer )
local oQry, nHandle
local oWndChild, oActiveX
local cTemp := hb_CurDrive() + ":\" + CurDir() + "\tempWord.docx"
local oWord, oDoc
local oteste, oWindow, oView, oIncorp
oQry = oServer:Query("SELECT file FROM files WHERE filename='marcelo.docx'")
IF oQry:RecCount() > 0
FErase( cTemp )
nHandle := FCreate( cTemp )
IF FError() # 0
CursorArrow()
MsgInfo( "Error al crear el archivo" )
ELSE
FWrite( nHandle, oQry:file, Len( oQry:file ) )
FClose( nHandle )
oQry:End()
DEFINE WINDOW oWndChild MDICHILD TITLE "WORD EN VENTANA HIJA" OF oWnd
oWord := CreateObject("Word.Application")
syswait(.2)
oWndChild := FindWindow( "opusapp", 0 )
if oWndChild != nil
SetWindowLong( oWndChild, -16, WS_OVERLAPPED+WS_CLIPCHILDREN)
SetWindowLong( oWndChild, -20, WS_EX_NOPARENTNOTIFY+WS_EX_TOPMOST )
SetParent( oWndChild, oWnd:hWnd )
endif
oWord:WindowState := -4137
oWord:Move(0,0)
oWord:Visible := .T.
oDoc := oWord:Documents:Open(cTemp) // abre el doc modelo
sysrefresh()
ACTIVATE WINDOW oWndChild
ENDIF
ELSE
MsgInfo( "Archivo no encontrado" )
ENDIF
RETURN NIL
Error description: Error BASE/1004 No exported method: BLCLICKED
El error es en el ACTIVATE WIDNDOW
Saludos y gracias por la ayuda que puedan darme
Marcelo
Re: Guardar Word en una tabla MySQL
Posted: Fri Sep 28, 2018 9:13 am
by Xevi
Marcelo,
¿puedes poner un ejemplo de como hiciste para "salvar" un documento Word en un campo de una base de datos SQL ???
Gracias.
Re: Guardar Word en una tabla MySQL
Posted: Fri Sep 28, 2018 11:57 am
by Marcelo Roggeri
Hola Xevi buenos dias aca te lo paso
Code: Select all
FUNCTION SaveWord( oServer )
local uData
local oQry
oQry = oServer:Query("SELECT filename FROM files WHERE filename='Informe.docx'")
IF oQry:RecCount() > 0
oQry:Delete()
ENDIF
oQry:End()
uData = D_ReadFile( hb_CurDrive() + ":\" + CurDir() + "\Informe.docx" )
IF oServer:Insert( "files", {"filename", "file"}, { "Informe.docx", uData } )
MsgInfo( "Save successfull")
ELSE
MsgInfo( "Not saved" )
ENDIF
RETURN NIL
Saludos
Re: Guardar Word en una tabla MySQL
Posted: Fri Sep 28, 2018 12:01 pm
by Marcelo Roggeri
Para recuperarlo o leerlo de la tabla asi:
Code: Select all
FUNCTION ShowWord( oServer )
local oQry, nHandle
local oWndChild, oActiveX
local cTemp := hb_CurDrive() + ":\" + CurDir() + "\Informe.docx"
local oWord, oDoc
local oteste, oWindow, oView, oIncorp
oQry = oServer:Query("SELECT file FROM files WHERE filename='Informe.docx'")
IF oQry:RecCount() > 0
FErase( cTemp )
nHandle := FCreate( cTemp )
IF FError() # 0
CursorArrow()
MsgInfo( "Error al crear el archivo" )
ELSE
FWrite( nHandle, oQry:file, Len( oQry:file ) )
FClose( nHandle )
oQry:End()
//DEFINE WINDOW oWndChild MDICHILD TITLE "WORD EN VENTANA HIJA" OF oWnd
oWord := CreateObject("Word.Application")
oDoc := oWord:Documents:Open(cTemp) // abre el doc modelo
//syswait(.2)
oDoc := FindWindow( "opusapp", 0 )
/*
if oDoc != nil
SetWindowLong( oDoc, -16, WS_OVERLAPPED+WS_CLIPCHILDREN)
SetWindowLong( oDoc, -20, WS_EX_NOPARENTNOTIFY+WS_EX_TOPMOST )
SetParent( oDoc, oWndChild:hWnd )
endif
*/
//oWord:WindowState := -4137
//oWord:Move(0,0)
oWord:Visible := .T.
//ACTIVATE WINDOW oWndChild
ENDIF
ELSE
MsgInfo( "Archivo no encontrado" )
ENDIF
RETURN NIL
Lo que esta comentado es para que no te de el error que me da a mi ya que no puedo insertarlo en una Window, porque la idea mia es poner una botonera de Guardar - Imprimir - Email
pero aun no pude.
saludos
Marcelo