Erro no select?

Delphi

05/12/2007

Olá,

Estou com erro no select abaixo:

var
ListItem : TListItem;
begin
if LV_Contatos.Selected <> nil then
begin
ListItem := LV_Contatos.Selected;
Edt_codigo.text := ListItem.Caption;
ultimo := StrToInt(edt_codigo.text);
select * from dm_contatos.tab_telefones where
dm_contatos.tab_telefonescodigo := ultimo;
end;
end;


Rsa_tche

Rsa_tche

Curtidas 0

Respostas

Martins

Martins

05/12/2007

Olá, Estou com erro no select abaixo: var ListItem : TListItem; begin if LV_Contatos.Selected <> nil then begin ListItem := LV_Contatos.Selected; Edt_codigo.text := ListItem.Caption; ultimo := StrToInt(edt_codigo.text); select * from dm_contatos.tab_telefones where dm_contatos.tab_telefonescodigo := ultimo; end; end;


SQLQuery1.SQL.Add(´Select * From Telefones where codigo =:pultimo ´); 
SQLQuery1.ParamByName(´pultimo´).AsInteger := Ultimo;


Tente algo mais ou menos assim.


GOSTEI 0
Rsa_tche

Rsa_tche

05/12/2007

olá,

criei uma query no data module e na propriedade SQL, digite o seguinte:
select * from from TELEFONES where CODIGO := ultimo

no botão coloquei o seguinte:
dm_contatos.query_telefones.open;

só que na execução da erro. O que está errado?


GOSTEI 0
Martins

Martins

05/12/2007

olá, criei uma query no data module e na propriedade SQL, digite o seguinte: select * from from TELEFONES where CODIGO := ultimo no botão coloquei o seguinte: dm_contatos.query_telefones.open; só que na execução da erro. O que está errado?


Faça o seguinte, vc já criou a query então acrecente o seguinte código ao botão, substituindo o seu.

Na query vc já tem:
Errado :arrow: select * from from TELEFONES where CODIGO := ultimo

Correto :arrow: select * from from TELEFONES where CODIGO = :ultimo

no botão.
SQLQuery1.Close;
SQLQuery1.SQL.Clear
SQLQuery1.SQL.Add(´Select * From Telefones where codigo =:pultimo ´); 
SQLQuery1.ParamByName(´pultimo´).AsInteger := Ultimo; 
SQLQuery1.Open;


Se vc não usa SQLQuery faça isso no seu componente Query.

Boa sorte.


GOSTEI 0
Martins

Martins

05/12/2007

No componente Query, vc vai colocar apenas

´Select * From Telefones´


No botão, vai ficar assim:

Query1.Close; 
Query1.SQL.Clear 
Query1.SQL.Add(´Select * From Telefones where codigo =:pultimo ´); 
Query1.ParamByName(´pultimo´).AsInteger := Ultimo; 
Query1.Open;


Boa sorte.


GOSTEI 0
Rsa_tche

Rsa_tche

05/12/2007

Olá,

Eu alterei, mas não está retornando nada. não mostra nada no form.

No botão:
var
ListItem : TListItem;
begin
if LV_Contatos.Selected <> nil then
begin
ListItem := LV_Contatos.Selected;
Edt_codigo.text := ListItem.Caption;
ultimo := StrToInt(edt_codigo.text);
dm_contatos.query_telefones.Close;
dm_contatos.query_telefones.SQL.Clear;
dm_contatos.query_telefones.SQL.Add(´Select * From Telefones where codigo =:pultimo ´);
dm_contatos.query_telefones.ParamByName(´pultimo´).AsInteger := Ultimo;
dm_contatos.query_telefones.Open;
edt_codigo.text := dm_contatos.tab_telefonescodigo.asstring;
edt_nome.text := dm_contatos.tab_telefonesnome.value;
edt_nascimento.text := dm_contatos.tab_telefonesnascimento.asstring;
edt_endereco.text := dm_contatos.tab_telefonesendereco.value;
edt_fixo.text := dm_contatos.tab_telefonesfixo.value;
edt_celular.text := dm_contatos.tab_telefonescelular.value;
edt_outros.text := dm_contatos.tab_telefonesoutros.value;
edt_outros2.text := dm_contatos.tab_telefonesoutros2.value;
edt_outros3.text := dm_contatos.tab_telefonesoutros3.value;
edt_observacoes.text := dm_contatos.tab_telefonesobservacoes.value;
edt_email.text := dm_contatos.tab_telefonesemail.value;
edt_skype.text := dm_contatos.tab_telefonesskype.value;
edt_msn.text := dm_contatos.tab_telefonesmsn.value;
end;
end;

No query:

select * from telefones


GOSTEI 0
POSTAR