Guardar ruta de una imagen en MySQL

[jose.ignacio.ve]

Hola foro. Tengo un problema busque en todos los foros y no lo puedo solucionar. Estoy haciendo un sistema de gestion de alumnos y quisiera guardar una ruta de la imagen que seria del alumno que voy a dar d alta. tengo un campo 'foto' en la tabla alumnos es de tipo varchar donde me tendria q guardar la direccion de la foto donde se encuentra. yo habia puesto

Código Delphi [-]
ruta:= OpenPictureDialog1.FileName;
 fmodulo.talumnos.FieldByName('foto').AsString:= ruta;
 fmodulo.talumnos.Post;

pero me sale un error que dice que field 'foto' cannot by modified
o que alguien me diga otra tecnica para programar lo que quiero. yo quiero registrar un alumno donde pongo todos sus datos y una foto del alumno y que se guarde la direccion de donde se encuentra la imagen, luego cuando yo valla a registrar su asistencia yo lo busque y me aparezca la foto que se guardo.

[[nlsgarcia]]

jose.ignacio.ve,

Empezado por jose.ignacio.ve

...Guardar ruta de una imagen en MySQL...me sale un error que dice que field 'foto' cannot by modified...

Pregunto : ¿Activastes el modo de edición del DataSet?

Código Delphi [-]
...
   ruta := OpenPictureDialog1.FileName;
   fmodulo.talumnos.Edit;
   fmodulo.talumnos.FieldByName('foto').AsString := ruta;
   fmodulo.talumnos.Post;
...

Espero sea útil

Nelson.

[Casimiro Noteví]

Y para ahorrar una variable y una línea

Código Delphi [-]
fmodulo.talumnos.Edit;
fmodulo.talumnos.FieldByName('foto').AsString := OpenPictureDialog1.FileName;
fmodulo.talumnos.Post;

[jose.ignacio.ve]

hola si la tabla esta en modo insert. ya que al presionar el boton aceptar me guarda todos los datos de los dbedit.

[jose.ignacio.ve]

Código Delphi [-]
procedure TFalumnos.Button1Click(Sender: TObject);

var
vence:word;
inicio: tdate;
ruta:string;
begin

        vence:=   DaysInMonth(now);
        if modificacion=false then
              begin
                     fmodulo.talumnos.FieldByName('fecha_ingreso').AsDateTime:= now;
                     fmodulo.talumnos['fecha_inicio']:=self.DBinicio.Text;

              end
         else
               begin
                    fmodulo.talumnos.Active:=true;
                    fmodulo.talumnos.Edit;

                    modificacion:=false;

               end;

         if self.dbapellidos.Text='' then

                 begin
                      Application.MessageBox('El campo Apellido no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.dbapellidos.SetFocus;
                      end
                   else
                    if self.DBnombres.Text='' then

                 begin
                      Application.MessageBox('El campo Nombre no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.DBnombres.SetFocus;
                 end
                   else
                    if self.DBinicio.Text='' then
                      begin
                      Application.MessageBox('El campo Fecha de inicio no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.DBinicio.SetFocus;
                      end
                   else
                    if self.DBLookupComboBox1.KeyValue=null then
                      begin
                      Application.MessageBox('El campo tarifa no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.DBLookupComboBox1.SetFocus;
                      end
                    else
                    if self.DBdni.Text='' then
                     begin
                      Application.MessageBox('El campo Dni no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.DBdni.SetFocus;
                      end ;

                       begin

                  fmodulo.talumnos['fecha_vencimiento']:= fmodulo.talumnos['fecha_inicio'] + vence;
                  fmodulo.talumnos.FieldByName('foto').AsString:=  OpenPictureDialog1.FileName;
                  fmodulo.talumnos.Post;
                  fmodulo.zqmodificacionestado.ExecSQL;
                  fmodulo.ZQlisalumnosfecha.Active:=true;
                  fmodulo.zqlisalumnosfecha.refresh;
                  fmodulo.talumnos.Refresh;
                  fmodulo.ZQlisalumnosfecha.Close;
                  fmodulo.talumnos.Close;
                  self.Close;
                       end;

este seria el codigo del boton aceptar.

[jose.ignacio.ve]

la tabla alumno se activa al llamar al formulario osea activo la tabla pongo en modo insert y mueestro el formulario. o si alguien me suguiere otra opcion para tratar las imagenes de los alumnos. sin tener q guardarla en la base de datos. o es mejor guardarla en la base de dato? eso me esta volviendo loco

[ecfisa]

Hola jose.ignacio.ve.

Si creaste los campos persistentes, desde el Field Editor poné la propiedad ReadOnly del campo "foto" en False o de otro modo, en algún punto antes de asignarle el valor, agrega esta línea a tu código:

Empezado por jose.ignacio.ve

Código Delphi [-]
 ruta:= OpenPictureDialog1.FileName;

 fmodulo.talumnos.FieldByName('foto').ReadOnly := False;  // <---- Esta

 fmodulo.talumnos.FieldByName('foto').AsString:= ruta;
 fmodulo.talumnos.Post;

Saludos

[jose.ignacio.ve]

muchas gracias me funciono! ahora otra pregunta! como hago para q cuando guarde la direccion se cree una carpeta donde vallan todas las fotos y que cree en donde se instalo la aplicacion.. no se si me explico

[Casimiro Noteví]

ahora otra pregunta!