Foros Club Delphi - Problema con llenado de un combobox

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

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Problema con llenado de un combobox (https://www.clubdelphi.com/foros/showthread.php?t=57115)

aleja

05-06-2008 20:44:24

Problema con llenado de un combobox

Hola, estoy tratando de llenar un combox con los datos de una tabla. Probe de las siguientes maneras:

Código Delphi [-]while not md.ZTtemainformes.Eof do
    begin
      cdtemainf.Items.Add(md.ZTtemainformes.FieldValues['tema']);
      md.ZTtemainformes.Next;
    end;

y de esta otra manera

Código Delphi [-]md.ZQbiblioteca.Close;
 md.ZQbiblioteca.SQL.Clear;
 md.ZQbiblioteca.SQL.Add('select tema from temainformes');
 md.ZQbiblioteca.First;
 while not md.ZQbiblioteca.Eof do
   begin
    cdtemainf.Items.Add(md.ZQbiblioteca.FieldValues['tema']);
    md.ZQbiblioteca.Next;
   end;

ambas las utilizo en el evento que crea el formulario, y tb probe en el evente onactivate y en el onclick, pero me salta el siguiente error:

Projet CNEA.exe raised exception class eaccessviolationwith message 'Access violation al address 00524546 in module CNEA.exe. Read of address 00000064.

que es lo que hago mal?

Se agradece...

roman

05-06-2008 21:12:54

En tu código haces referencia a md, que, supongo, es un DataModule. Quizá el problema se deba a que el formulario se está costruyendo antes del módulo. Fíjate en Project|Options, ficha Forms y asegúrate que el DataModule aparezca antes del formulario.

// Saludos

BlueSteel

06-06-2008 04:44:27

Cita:

Empezado por aleja (Mensaje 291596)

Código Delphi [-]md.ZQbiblioteca.Close;
md.ZQbiblioteca.SQL.Clear;
md.ZQbiblioteca.SQL.Add('select tema from temainformes');
md.ZQbiblioteca.First;
while not md.ZQbiblioteca.Eof do
   begin
   cdtemainf.Items.Add(md.ZQbiblioteca.FieldValues['tema']);
   md.ZQbiblioteca.Next;
end;

bueno, aparte de lo que dijo roman, en el código anterior tienes un error..y es abrir la sentencia sql.. por lo cual tu codigo deberia quedar así

Código Delphi [-]md.ZQbiblioteca.Close;
md.ZQbiblioteca.SQL.Clear;
md.ZQbiblioteca.SQL.Add('select tema from temainformes');
md.ZQbiblioteca.Open;
md.ZQbiblioteca.First;
while not md.ZQbiblioteca.Eof do
   begin
   cdtemainf.Items.Add(md.ZQbiblioteca.FieldValues['tema']);
   md.ZQbiblioteca.Next;
end;

Avisa si te funciono...

Salu2:p:D

aleja

06-06-2008 14:06:33

Hola! Muchas gracias a los dos! ya me funciona, hice las dos correcciones, en el orden de respuesta y todo bien.
Muchas gracias de nuevo.

La franja horaria es GMT +2. Ahora son las 12:49:38.