Fecha actual Lun Jun 17, 2024 12:52 pm

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 7 mensajes ] 
Autor Mensaje
NotaPublicado: Mié Abr 01, 2009 1:24 pm 
Avatar de Usuario

Registrado: Mar Oct 11, 2005 6:58 pm
Mensajes: 138
Ubicación: España
Hola
a los pocos que parece que quedan por aqui, bueno mi problema es el siguiente:

tengo una base de datos con dos campos Memo uno para Texto y otro para imagenes, pues bien el de Imagenes me va de maravillas pero el de Texto me da error, diciendome que los datos que intento gravar son incompatibles con el campo Memo de Texto.

Queda alguno por aqui que me pueda hechar una mano o darme alguna idea, ya que a Bruno no se le puede localizar y nisiquiera se digna contestar a los e-mails.

Gracias a todos

Fraguibo


Arriba
 Perfil  
Responder citando  
NotaPublicado: Mié Abr 01, 2009 9:14 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Fraguibo escribió:
Hola
a los pocos que parece que quedan por aqui, bueno mi problema es el siguiente:

tengo una base de datos con dos campos Memo uno para Texto y otro para imagenes, pues bien el de Imagenes me va de maravillas pero el de Texto me da error, diciendome que los datos que intento gravar son incompatibles con el campo Memo de Texto.

Queda alguno por aqui que me pueda hechar una mano o darme alguna idea, ya que a Bruno no se le puede localizar y nisiquiera se digna contestar a los e-mails.

Gracias a todos

Fraguibo


Hola, Fragibo.

Yo tengo una norma ¡¡¡campos memos, caca!!! :)

Verás, durante años utilice estos campos y siempre surgió algún problema.

No entiendo que problemas puede darte C3 para que no te permita guardar un texto en en un campo memo (?????)

AREA->BloqueaRegistro
AREA->CampoMemo := "Cualquier texto"
AREA->CampoMemo := cTexto
AREA->LiberaBloqueo

Si no lo consigues (¡¡¡casi le meten el 2º a España!!!), pon un trozo del código.

Por último, te recuerdo que C3 permite definir campos de texto grandes, esto es:
Campo, C, 4096 (por ejemplo)
Yo utilizo este sistema en lugar de los memos y no tengo problemas.

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Jue Abr 02, 2009 4:06 pm 
Avatar de Usuario

Registrado: Mar Oct 11, 2005 6:58 pm
Mensajes: 138
Ubicación: España
Jasus

Aqui te envio dos imagenes una con la ficha y la otra en donde me da el error al intentar gravar el texto, tanto lo marcado en Rojo como lo marcado en Azul son dos campos Memo, el uno es de texto y el otro de graficos.

Ya me diras algo,
un saludo
Fraguibo


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Jue Abr 02, 2009 4:22 pm 
Avatar de Usuario

Registrado: Mar Oct 11, 2005 6:58 pm
Mensajes: 138
Ubicación: España
// Abre la Base de Datos Para Archivar.
Use Peliculas Index Peliculas New Via "DbfCdx"
Peliculas->( DbAppend() )
Peliculas->TN := x1; Peliculas->NU := x2 ; Peliculas->TO := x3 ; Peliculas->AN := x4
Peliculas->NA := x5; Peliculas->TE := x6; Peliculas->CL := x7; Peliculas->DU := x8
Peliculas->A1 := x9; Peliculas->A2 := x10; Peliculas->A3 := x11; Peliculas->A4 := x12
Peliculas->DS := x13; Peliculas->PR := x14; Peliculas->GI := x15; Peliculas->FO := x16
Peliculas->MU:= x17 ; Peliculas->DI:=x18;
Peliculas->DA:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente.

Clos Data


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Jue Abr 02, 2009 7:16 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Fraguibo escribió:
// Abre la Base de Datos Para Archivar.
Use Peliculas Index Peliculas New Via "DbfCdx"
Peliculas->( DbAppend() )
Peliculas->TN := x1; Peliculas->NU := x2 ; Peliculas->TO := x3 ; Peliculas->AN := x4
Peliculas->NA := x5; Peliculas->TE := x6; Peliculas->CL := x7; Peliculas->DU := x8
Peliculas->A1 := x9; Peliculas->A2 := x10; Peliculas->A3 := x11; Peliculas->A4 := x12
Peliculas->DS := x13; Peliculas->PR := x14; Peliculas->GI := x15; Peliculas->FO := x16
Peliculas->MU:= x17 ; Peliculas->DI:=x18;
Peliculas->DA:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente.

Clos Data


Hola, Fraguibo.
Tu código no me ayuda mucho, ya que parece correcto. Solo se me ocurre que compruebes que la variable x19 sea en ese momento correcta (cadena de caracteres), ya que este ejemplo es en el momento del Append y no se necesitan bloqueos.

Prueba tambien a poner:
Peliculas->DA := "Este es un Campo Memo"

Si tambien te da error, ya es problema de la tabla, si no de la variable x19.

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Jue Abr 02, 2009 7:43 pm 
Avatar de Usuario

Registrado: Mar Oct 11, 2005 6:58 pm
Mensajes: 138
Ubicación: España
Perdona Jesus
Pero al copiar las variables he cometido un paqueño error, este es el codigo que te he pasado:

Peliculas->DA:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente

y este es el codigo correcto:

Peliculas->AR:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente

como puedes ver son dos campos Memo con dos variables diferentes

y aqui tienes el metodo que crea la base de datos:

Method BaseDatos( oSender ) Class TPrincipal

// Busca Base de Datos.
if ! File( "Peliculas.dbf" )

// Si no la Encuentra la Crea.
DbCreate( 'Peliculas.dbf', { { 'TN', 'C', 34, 0 }, { 'NU', 'N', 10, 0 }, { 'TO', 'C', 34, 0}, ;
{ 'AN', 'C', 6, 0 }, { 'NA', 'C', 20, 0 }, { 'TE', 'C', 10, 0 }, { 'CL', 'C', 14, 0 }, ;
{ 'DU', 'C', 3, 0 }, { 'A1', 'C', 25, 0 }, { 'A2', 'C', 25, 0 }, { 'A3', 'C', 25, 0 }, ;
{ 'A4', 'C', 25, 0}, { 'DS', 'C', 25, 0 }, { 'PR', 'C', 25, 0 }, { 'GI' ,'C', 25, 0 }, ;
{ 'FO', 'C', 25, 0 }, { 'MU', 'C', 25, 0 }, { 'DI', 'C', 25, 0 }, { 'AR', 'M', 10, 0 },{ 'DA', 'M', 10, 0 } } )
endif

// Busca el fichero de indices.
if ! File( "Peliculas.cdx" )

// Sino lo encuentra lo crea.
Use Peliculas
Index On Field->TN Tag "TN"
Index On Field->NU Tag "NU"
Index On Field->AN Tag "AN"
Index On Field->TE Tag "TE"
Index On Field->DI Tag "DI"

Close Data
Endif
return


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Jue Abr 02, 2009 11:23 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Fraguibo escribió:
Perdona Jesus
Pero al copiar las variables he cometido un paqueño error, este es el codigo que te he pasado:

Peliculas->DA:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente

y este es el codigo correcto:

Peliculas->AR:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente

como puedes ver son dos campos Memo con dos variables diferentes

y aqui tienes el metodo que crea la base de datos:

Method BaseDatos( oSender ) Class TPrincipal

// Busca Base de Datos.
if ! File( "Peliculas.dbf" )

// Si no la Encuentra la Crea.
DbCreate( 'Peliculas.dbf', { { 'TN', 'C', 34, 0 }, { 'NU', 'N', 10, 0 }, { 'TO', 'C', 34, 0}, ;
{ 'AN', 'C', 6, 0 }, { 'NA', 'C', 20, 0 }, { 'TE', 'C', 10, 0 }, { 'CL', 'C', 14, 0 }, ;
{ 'DU', 'C', 3, 0 }, { 'A1', 'C', 25, 0 }, { 'A2', 'C', 25, 0 }, { 'A3', 'C', 25, 0 }, ;
{ 'A4', 'C', 25, 0}, { 'DS', 'C', 25, 0 }, { 'PR', 'C', 25, 0 }, { 'GI' ,'C', 25, 0 }, ;
{ 'FO', 'C', 25, 0 }, { 'MU', 'C', 25, 0 }, { 'DI', 'C', 25, 0 }, { 'AR', 'M', 10, 0 },{ 'DA', 'M', 10, 0 } } )
endif

// Busca el fichero de indices.
if ! File( "Peliculas.cdx" )

// Sino lo encuentra lo crea.
Use Peliculas
Index On Field->TN Tag "TN"
Index On Field->NU Tag "NU"
Index On Field->AN Tag "AN"
Index On Field->TE Tag "TE"
Index On Field->DI Tag "DI"

Close Data
Endif
return


Hola, Fraguibo.

Peliculas->AR:=x19; // Este Campo Memo de Texto es el que da el Error

Prueba a quitar el 'punto y coma' despues de x19. No soy partidario de usar este forma de escribir varias instrucciones en la misma linea.

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 7 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron