Fórum Mysql & Delphi #410651

15/12/2011

0

Puxar campo de uma coluna no mysql e mostra em uma label.
Richard Alexander

Richard Alexander

Responder

Posts

16/12/2011

Itamar Souza


Veja se e isso que precisa!
Label1.Caption := cdsGenerico.FieldByName(coluna).AsString;
Responder

Gostei + 0

16/12/2011

Gustavo Bretas

Ou então usar o componente TDBText da paleta Data Controls.
Responder

Gostei + 0

18/12/2011

Richard Alexander

Não consegui, estou usando o componente Zeos, apenas quero puxar um campo do banco de dados e mostrar numa label.

Tentei assim, mais da um erro Undeclared identifier: data:

Close;
SQL.Clear;
SQL.Text:=SELECT data FROM user WHERE data>0;
Open;
label2.Caption:= ZQuery1.FieldByName(data).AsString;
Responder

Gostei + 0

19/12/2011

Gustavo Bretas

Richard,

O identificador data não foi declarado, pq vc não insere esse select em tempo de design na query, adiciona os fields, e faz o teste usando a propriedade active?
Responder

Gostei + 0

19/12/2011

Richard Alexander

Eu sei alterar,modificar um campo no Banco de dados pelo delphi, mais, não sei como puxar um valor do Banco de dos e mostrar em uma label. Não compreendi o que você disse. Mesmo declarando a variavel continua dando um erro:

zQuery1: Field not found.

Código:

var
data:string;
---------
--------
--------
begin
Close;
SQL.Clear;
SQL.Text:= SELECT creditos FROM user WHERE creditos>0 ;
Open;
If ZQuery1.IsEmpty then
begin
ShowMessage(Sem creditos!);
end else
begin
label2.Caption:= ZQuery1.FieldByName(creditos).AsString;
Responder

Gostei + 0

19/12/2011

Richard Alexander

Eu sei alterar,modificar um campo no Banco de dados pelo delphi, mais, não sei como puxar um valor do Banco de dos e mostrar em uma label. Não compreendi o que você disse. Mesmo declarando a variavel continua dando um erro:

zQuery1: Field not found.

Código:

var
creditos:string;
---------
--------
--------
begin
Close;
SQL.Clear;
SQL.Text:= SELECT creditos FROM user WHERE creditos>0 ;
Open;
If ZQuery1.IsEmpty then
begin
ShowMessage(Sem creditos!);
end else
begin
label2.Caption:= ZQuery1.FieldByName(creditos).AsString;
Responder

Gostei + 0

22/12/2011

Richard Alexander

Problema resolvido. Comando ZQuery1.FieldByName
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar