Ver Mensaje Individual
  #1  
Antiguo 22-07-2005
nuri nuri is offline
Miembro
 
Registrado: abr 2005
Posts: 102
Reputación: 20
nuri Va por buen camino
Question ¿Cómo inserto los campos con formato TGraphic y TMemo en una tabla?

Hola a todos:
¿Cómo modifico los campos con formato TGraphic y TMemo en una tabla?, es que los quiero insertar por medio de parámetros.
Son tablas de paradox.

Este es mi código:
Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('UPDATE TABLA SET nombre=:nom,');
Query1.SQL.Add('FOTO=:foto where letra=:nom');
 
//Parámetros correspondientes a cada uno de los campos insertados.
Query1.paramByName('nom').AsString:=ComboBox_Nombre.Text;
 
//Copio el fichero de la foto en una carpeta adecuada para ello.
origen:=OpenPictureDialog1.Filename;
 
//Al destino le adjudico una ruta y un nombre al archiv poniendo la
//extensión del archivo origen.
 
destino:='C:\Coches\'+ComboBoxNombre.Text+Copy(origen,Pos('.',origen),4);
 
porigen:=@origen[1];
pdestino:=@destino[1];
 
CopyFile(porigen,pdestino,false);
Query1.ParamByName('foto').AsString:=pdestino;
 
 
Query1.ExecSQL;
 
//Con este código vuelvo a mostrar todos los registros en la tabla
Query1.SQL.Text:='Select * from TABLA';
Query1.Active:=False;
Query1.Active:=True;
Query1.Open;

el campo foto es de tipo TGraphic, tras este código me modifica perfectamente el campo nombre pero el campo foto no me lo modifica, es como si no hubiera escrito el código.
Para insertar utilizo el mismo código cambiando la orden de mysql adecuada para insertar y no tengo ningún problema.
¿?
¿cuál puede ser el error, por + vueltas que le doy no lo veo.


Tengo el Delphi 5
Gracias a quien pueda ayudarme
Atentamente
Nuri

Última edición por nuri fecha: 22-07-2005 a las 16:34:20.
Responder Con Cita