Fórum Erro no select? #350081
05/12/2007
0
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
Curtir tópico
+ 0Posts
05/12/2007
Martins
SQLQuery1.SQL.Add(´Select * From Telefones where codigo =:pultimo ´); SQLQuery1.ParamByName(´pultimo´).AsInteger := Ultimo;
Tente algo mais ou menos assim.
Gostei + 0
07/12/2007
Rsa_tche
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
07/12/2007
Martins
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
07/12/2007
Martins
´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
11/12/2007
Rsa_tche
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
Clique aqui para fazer login e interagir na Comunidade :)