Ver Mensaje Individual
  #1  
Antiguo 30-10-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Reputación: 13
edgar_prospero Va por buen camino
guardar imagen en campo blob

que hay amigos tengo un sistema donde voy agregando productos a una base de datos mysql, pero tengo un problema a cada producto quiero agregar una imagen, me gustaria saber que componentes o que necesito para lograrlo, ojala me puedan orientar un poco. para ir guardando lo demas utilizo el siguiente codigo:

Código Delphi [-]
tabla.SQL.Clear;
tabla.Close;
tabla.SQL.Add('insert into clientes(codigo, nombre, direccion, comentarios)values(:pcodigo, :pnombre, :pdireccion, :pcomentarios) on duplicate   key update nombre=:pnombre, direccion=:pdireccion, comentarios=:pcomentarios');
tabla.ParamByName('pcodigo').AsString:=codigo.Text;
tabla.ParamByName('pnombre').AsString:=nombre.Text;
tabla.ParamByName('pdireccion').AsString:=direccion.Text;
tabla.ParamByName('pcomentarios').Asstring:=comentarios.Text;

tabla.Execute;
nombre.Clear;
nombre.Clear;
direccion.Clear;
comentarios.Clear;


query.Close;
     query.SQL.Text:='SELECT codigo FROM clientes ORDER BY codigo desc LIMIT 1';
     query.Open;
    codigo.text := IntToStr(query.FieldByName('codigo').asInteger +1) ;
     nombre.SetFocus;
      nombre.SelectAll;

  //tabla.SQL.Clear;

  showmessage('grabado con exito ');
__________________
saludos!!!

Última edición por ecfisa fecha: 30-10-2012 a las 19:47:39. Razón: Quitar íconos del código
Responder Con Cita