Cita:
Empezado por aleja
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