Foros Club Delphi - problema con consulta TADOQuery

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - problema con consulta TADOQuery (https://www.clubdelphi.com/foros/showthread.php?t=53177)

spyfenix

13-02-2008 01:10:36

problema con consulta TADOQuery

Que tal raza
en la forma principal tengo este codigo para que cargue alguna notas y lo despliegue en un Memmo.
dbm ---> DataModule
qryBuscaNotas ----> my consulta

Código:

  While Not dbm.qryBuscaNotas.Eof Do

  begin

    aUsuario := dbm.qryBuscaNotasnombre.Value;

    aNota    := dbm.qryBuscaNotasnota.Value;

    mmoTareas.Lines.Add('Edita por : ' + aUsuario);

    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));

    mmoTareas.Lines.Add(aNota);

    mmoTareas.Lines.Add(' ');

    dbm.qryBuscaNotas.Next;

cuando pasa la primera linea me avienta el siguiente error :

alquien sabe por que me sale ese erro ???

gracias de antemo

poliburro

13-02-2008 02:00:41

Código Delphi [-] 
While Not dbm.qryBuscaNotas.Eof Do
  begin
    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;
    mmoTareas.Lines.Add('Edita por : ' + aUsuario);
    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));
    mmoTareas.Lines.Add(aNota);
    mmoTareas.Lines.Add(' ');
    dbm.qryBuscaNotas.Next;

spyfenix

13-02-2008 02:29:42

mmmm no entiendo ???

nightynvid

13-02-2008 03:09:43

se refiere a que el error aparece por la forma en como obtienes los datos del query ;)
tu codigo

Código Delphi [-]    aUsuario := dbm.qryBuscaNotasnombre.Value;
    aNota    := dbm.qryBuscaNotasnota.Value;

la correccion a tu codigo

Código Delphi [-]    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;

keyboy

13-02-2008 03:27:59

No creo que un error de violación de acceso se deba a la forma en que se accede a los campos. Pon un punto de corte (breakpoint) sobre esa primera línea y asegúrate que los objetos involucrados, dbm, qryBuscaNotas, etc. no sean nil; posiblemente aún no estén creados.

Bye

spyfenix

13-02-2008 20:59:39

Solucionado, Gracias :D

que tal raza, gracias a todo los que ayudaron
quedo resuelto de la siguiente forma

Código Delphi [-]dbm.qryBuscaNotas.Open;
dbm.qryBuscaNotas.First; 
While Not dbm.qryBuscaNotas.Eof Do
begin
    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;
    mmoTareas.Lines.Add('Edita por : ' + aUsuario);
    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));
    mmoTareas.Lines.Add(aNota);
    mmoTareas.Lines.Add(' ');
    dbm.qryBuscaNotas.Next;

Gracias
Saludos

La franja horaria es GMT +2. Ahora son las 14:30:46.