Mysql & Delphi
Puxar campo de uma coluna no mysql e mostra em uma label.
Richard Alexander
Curtidas 0
Respostas
Itamar Souza
15/12/2011
Veja se e isso que precisa!
Label1.Caption := cdsGenerico.FieldByName(coluna).AsString;
GOSTEI 0
Gustavo Bretas
15/12/2011
Ou então usar o componente TDBText da paleta Data Controls.
GOSTEI 0
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;
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
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?
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
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;
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
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;
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
15/12/2011
Problema resolvido. Comando ZQuery1.FieldByName
GOSTEI 0