Qual é o erro neste código

Delphi

16/09/2011

  procedure TFormFaseGrupo.SpeedButtonNovoClick(Sender: TObject);
var
  nome: string;
begin
    try
        with DM.ZQueryFaseGrupo do
        begin
            Close;
            SQL.Clear;
            SQL.Add('select nome from jogadores');
            Open;
            While not eof do
            begin
              //ComboBoxCampeao.Items.Add(FieldByName('nome').AsString);
              ComboBoxCampeao.Text := FieldByName('nome').AsString;
              Next;
            end;
        end;
    except
        ShowMessage('Error ao conectar ao Banco');
    end;
end;

Dá um erro mais ou manos assim:

database conection component is not assigned

Grato desde Já
Ewerton Rodrigues

Ewerton Rodrigues

Curtidas 0

Respostas

Ewerton Rodrigues

Ewerton Rodrigues

16/09/2011

Era Falta de informaações na Query e no DataSource
GOSTEI 0
Adenilson Nascimento

Adenilson Nascimento

16/09/2011

Ewerton ao inves de usar:   Close; 
SQL.Clear; 
SQL.Add('select nome from jogadores'); 
Open; 
While not eof do 
     begin 
        //ComboBoxCampeao.Items.Add(FieldByName('nome').AsString); 
           ComboBoxCampeao.Text := FieldByName('nome').AsString; 
            Next; 
      end;
  if not eof then    repeat         //ComboBoxCampeao.Items.Add(FieldByName('nome').AsString); 
           ComboBoxCampeao.Text := FieldByName('nome').AsString; 
         Next;     until Eof;   desta forma ele ler até o ultimo registro e no while não.   espero ter ajudado.
GOSTEI 0
POSTAR