[Resolvido] Resultado Consulta em edit ou label...

[Jessica_Priscila 0]

[RESOLVIDO]

 

Olá,

 

Tenho um banco access, em um form do delphi quero que o usuario digite em um campo DBEdit ex: cod_funcionário e no label apareça o nome do funcionário, na verdade eu consegui fazer aparecer, mas quando vou inserir um novo registro aparece a msg de erro: Operador Faltando.....até dá p/ inserir, mas da esse erro....o q estou fazendo d errado? :(

 

Código:

 

procedure TFRMviagem.DBEdit7Exit(Sender: TObject);

begin

 

dm_principal.pesquisa(' SELECT Placa FROM placa WHERE COD_placa='+ DBEdit8.Text );

 

if DM_principal.rs.Recordset.RecordCount <> 0 then {Recordeset = Resultado da consulta; recordcount = Total de registros encontrados}

label17.Caption := DM_principal.RS.FieldValues['placa']

else

label17.Caption := 'Motorista não Informado !';

end;

 

end.

[ZueRa 0]

Olá Jessica.

Tente assim:

 

procedure TFRMviagem.DBEdit7Exit(Sender: TObject);
  begin
	dm_principal.pesquisa('SELECT Placa FROM placa WHERE COD_placa ='+ QuotedStr(DBEdit8.Text));
  if (DM_principal.rs.Recordset.RecordCount <> 0) then
	begin
	  label17.Caption := DM_principal.RS.FieldValues['placa'];
	end
	else
	  label17.Caption := 'Motorista não Informado !';
	end;

end.

Abraço!

[Jerfs 1]

Olá Jessica Priscila...

 

Se não der certo o que o nosso amigo passou, tente o comando Locate...

[Jessica_Priscila 0]

Olá Obrigada p/ responderem..Tentei o Código que o ZueRa mandou...deu um erro: "Tipo de dados incompatível na expressão de critério"....

[Jerfs 1]

quer tentar da forma que eu te disse!? eu te ajudo!

[Jessica_Priscila 0]

Como ficaria c/ o Locate?

algo tipo:

ADOquery1.Locate.....

?

 

eu to usando um adoquery (pesquisa) p/ fazer a consulta....

 

 

Abraços.

[Jessica_Priscila 0]

opa, quero...toda ajuda é bem vinda...

[Jerfs 1]

adiciona ae jfs_dev@hotmail.com, a gente conversa!

[ZueRa 0]

Olá Obrigada p/ responderem..Tentei o Código que o ZueRa mandou...deu um erro: "Tipo de dados incompatível na expressão de critério"....

Olá Jessica.

Em qual linha se deu este erro?

 

Abraço.

[Jessica_Priscila 0]

Brigadão pela ajuda...fiz como você me falou Jeferson, no final coloquei uma parte que outra pessoa me falou e deu certinho....

 

with DM_principal.Tviagens do

begin

DM_principal.ADOQuery1.Close;

DM_principal.ADOQuery1.SQL.Clear;

DM_principal.ADOQuery1.SQL.Add('select * from motorista where cod_motorista like'+ QuotedStr (DBEdit7.Text));

DM_principal.adoquery1.Open;

 

label16.Caption := DM_principal.ADOQuery1.FieldByName ('motorista').AsString;

[ZueRa 0]

Brigadão pela ajuda...fiz como você me falou, no final coloquei uma parte que outra pessoa me falou e deu certinho....

 

with DM_principal.Tviagens do

begin

DM_principal.ADOQuery1.Close;

DM_principal.ADOQuery1.SQL.Clear;

DM_principal.ADOQuery1.SQL.Add('select * from motorista where cod_motorista like'+ QuotedStr (DBEdit7.Text));

DM_principal.adoquery1.Open;

 

label16.Caption := DM_principal.ADOQuery1.FieldByName ('motorista').AsString;

Mas poste aí todo o código e o erro que o Delphi apresenta quando você tenta compilar.

 

Abraço.

[Jessica_Priscila 0]

Como o meu amigo Jefferson disse:

quando você usa with DM_Principal.Tviagens do... não precisa usar o endereçamento para os comandos....

 

assim:

 

*with DM_principal.ADOQuery1 do

begin

Close;

Clear;

SQL.Add('select * from motorista where cod_motorista like'+ QuotedStr (DBEdit7.Text));

Open;

 

eu coloquei....mas naverdade na precisa.....

abraçoss

[Jessica_Priscila 0]

ZueRA,

 

 

Na verdade...axo que era nessa parte

 

dm_principal.pesquisa('SELECT Placa FROM placa WHERE COD_placa ='+ QuotedStr(DBEdit8.Text));

 

por q depois q eu coloquei o "QUOTESTR" dava o erro: "Tipo de dados incompatível na expressão de critério"....dae o Jeferson me deu algumas dicas

e deu ceu certo....

 

Abraços

[ZueRa 0]

Realmente não precisa, pois você já está fazendo referência (neste caso) à tabela. Tudo que fizeres estará dentro do bloco.

Exemplo:

with Table do
//tudo aqui digitado estará fazendo referência a Table
begin
Open;
Close;
end;

Mas então resolveu o problema?

Se NÃO poste todo o código de onde há o erro e o aviso que o Delphi mostra quando você vai compilar.

 

Abraço.

 

Editado:

Então tire o QuotedStr e faça o teste ;)

[Yoshi 1]

Tenta assim broder

 

DM_principal.ADOQuery1.Active = false;
DM_principal.ADOQuery1.SQL.Clear;
DM_principal.ADOQuery1.SQL.Add('select * from motorista where cod_motorista like '+ QuotedStr (DBEdit7.Text));
DM_principal.ADOQuery1.Active = true;

 

ou assim

 

DM_principal.ADOQuery1.Active = false;
DM_principal.ADOQuery1.SQL.Clear;
DM_principal.ADOQuery1.SQL.Add('select * from motorista where cod_motorista = '+ DBEdit7.Text);
DM_principal.ADOQuery1.Active = true;

 

Flw T+