Bmp a Campo General
Publicado por Tatayayan (25 intervenciones) el 02/09/2006 16:48:03
Hola,
Tengo un gran duda, no se porque este código me da error:
f=GetPict("bmp")&&Obtengo el bmp
If Empty(f)&&si esta vacío (presionón ESc o Cancelar)
=MessageBox("Seleccione Foto",64,"Atención")
Return
endif
Append Blank
Replace Nombre With Proper(Thisform.Nomb.Value)&&Nomb es un Text
APPEND GENERAL Foto FROM f
El error es la última linea Append General...
Fox pone su ruta y concatena la f, no toma su contenido,
Lo solucioné así:
x="APPEND GENERAL Foto FROM '"+f+"'"&&Comilla simple
&x
No da error, pero a mi criterio es poco elegante, pero
si efectiva.
Espero me puedan ayudar a encontrar una manera más profesional, de
como selecciono un bmp y lo paso a un campo general.
La Tabla solo tiene dos campos Nombre (c) y Foto (G).
Desde ya Muchas Gracias.
Tengo un gran duda, no se porque este código me da error:
f=GetPict("bmp")&&Obtengo el bmp
If Empty(f)&&si esta vacío (presionón ESc o Cancelar)
=MessageBox("Seleccione Foto",64,"Atención")
Return
endif
Append Blank
Replace Nombre With Proper(Thisform.Nomb.Value)&&Nomb es un Text
APPEND GENERAL Foto FROM f
El error es la última linea Append General...
Fox pone su ruta y concatena la f, no toma su contenido,
Lo solucioné así:
x="APPEND GENERAL Foto FROM '"+f+"'"&&Comilla simple
&x
No da error, pero a mi criterio es poco elegante, pero
si efectiva.
Espero me puedan ayudar a encontrar una manera más profesional, de
como selecciono un bmp y lo paso a un campo general.
La Tabla solo tiene dos campos Nombre (c) y Foto (G).
Desde ya Muchas Gracias.
Valora esta pregunta


0