Ver Mensaje Individual
  #16  
Antiguo 14-12-2007
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Reputación: 22
sitrico Va por buen camino
Bueno mira no se si ayude o complique la cosa a estas alturas pero te recomiendo lo siguiente:

Modifica la sentencia SQL asi:

Original:
Código Delphi [-]
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
      Edit1.Text+','''+tdEditAsunto.Text+''','+QuotedStr(blob)+')');

Modificada:
Código Delphi [-]
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
      '(:llave,:nombre,:archivoblob)');

De esa manera usarás parametros para manipular los datos en SQL (el nombre del campo precedido de dos puntos ":")

Luego (creo) que puedes hacer:

Código Delphi [-]
Querygestion.ParamByName('llave').asinteger := unentero;
Querygestion.ParamByName('nombre').AsString := uncharacter
Querygestion.ParamByName('archivoblob').AsString := memo.text

Tambien tengo por ahi un codigo para el loadfromfile y loadfromstream pero no en este equipo prueba y si te sirve mañana te puedo poner más información.
__________________
Sitrico

Última edición por sitrico fecha: 14-12-2007 a las 03:12:04.
Responder Con Cita