Mysql & Delphi

Delphi

15/12/2011

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

Richard Alexander

Curtidas 0

Respostas

Itamar Souza

Itamar Souza

15/12/2011


Veja se e isso que precisa!
Label1.Caption := cdsGenerico.FieldByName(coluna).AsString;
GOSTEI 0
Gustavo Bretas

Gustavo Bretas

15/12/2011

Ou então usar o componente TDBText da paleta Data Controls.
GOSTEI 0
Richard Alexander

Richard Alexander

15/12/2011

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;
GOSTEI 0
Gustavo Bretas

Gustavo Bretas

15/12/2011

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?
GOSTEI 0
Richard Alexander

Richard Alexander

15/12/2011

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;
GOSTEI 0
Richard Alexander

Richard Alexander

15/12/2011

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;
GOSTEI 0
Richard Alexander

Richard Alexander

15/12/2011

Problema resolvido. Comando ZQuery1.FieldByName
GOSTEI 0
POSTAR