Compartilhar Post
15
Sep
Smile
GOSTOU?
COMPARTILHE NAS REDES!

Código da tabela Estado

 CREATE TABLE estado
(
 codigouf integer,
 sigla character varying(2),
 descricao character varying(50),
 handle serial NOT NULL,
 CONSTRAINT handle_estado PRIMARY KEY (handle)
)

Código do procedimento criado no vídeo.

procedure TfrmConfig.populaCombo;
begin
  FConexao.open('select * from estado order by sigla asc',cdsAula);
  dsAula.DataSet := cdsAula;
  dsAula.DataSet.First;
  while not dsAula.DataSet.Eof do
  begin
    cbbAula.Items.AddObject(dsAula.DataSet.FieldByName('sigla').AsString,
    TObject(dsAula.DataSet.FieldByName('handle').AsInteger));
    dsAula.DataSet.Next
  end;
  cbbAula.ItemIndex := 0;
end;
Smile
GOSTOU?
COMPARTILHE NAS REDES!
SIGA-NOS NAS REDES
Turma da bleia
© Todos os direitos reservados 2014 - Turma da bleia