Fórum Problemas com consulta em SQL usanso Acess - Urgente #169727
16/07/2003
0
Amigos se puderem me ajudar estou necessitando para poder agilizar minhas consultas. usava o paradox e funcionava, no SQL Server também o pq não funciona no acess.
preciso assim que o cara digitar o endereço e numero da residencia já fazendo a eliminação dos registros que fazem parte, utilizando o onchange do edit.
qryDomicilio.Close;
qryDomicilio.SQL.Clear;
qryDomicilio.Sql.Add(´Select * from Domicilio´);
qryDomicilio.Sql.Add(´Where Endereco Like ´+QuotedStr(´¬´ + edtEndereco.text + ´¬´));
qryDomicilio.Sql.Add(´and Numero Like ´+QuotedStr(´¬´ + edtNumero.text + ´¬´));
qryDomicilio.Sql.Add(´Order By Endereco´);
qryDomicilio.Open;
Muito grato Alan
preciso assim que o cara digitar o endereço e numero da residencia já fazendo a eliminação dos registros que fazem parte, utilizando o onchange do edit.
qryDomicilio.Close;
qryDomicilio.SQL.Clear;
qryDomicilio.Sql.Add(´Select * from Domicilio´);
qryDomicilio.Sql.Add(´Where Endereco Like ´+QuotedStr(´¬´ + edtEndereco.text + ´¬´));
qryDomicilio.Sql.Add(´and Numero Like ´+QuotedStr(´¬´ + edtNumero.text + ´¬´));
qryDomicilio.Sql.Add(´Order By Endereco´);
qryDomicilio.Open;
Muito grato Alan
Alan Marques
Curtir tópico
+ 0
Responder
Posts
16/07/2003
Ilanocf
Tente assim:
With qryDomicilio Do
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM Domicilio´);
SQL.Add(WHERE Endereco=:P1 AND Numero=:P2´);
SQL.Add(´ORDER BY Endereco´);
Parameters.ParamByName(´P1´).Value:=´¬´+EdtEndereco.Text+´¬´;
Parameters.ParamByName(´P2´).Value:=´¬´+StrToIntDef(EdtNumero.Text, 0)+´¬´;
//Ou se for texto, assim: Parameters.ParamByName(´P2´).Value:=´¬´+EdtNumero.Text+´¬´;
Open;
End;
Espero ter ajudado.
Ilano.
With qryDomicilio Do
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM Domicilio´);
SQL.Add(WHERE Endereco=:P1 AND Numero=:P2´);
SQL.Add(´ORDER BY Endereco´);
Parameters.ParamByName(´P1´).Value:=´¬´+EdtEndereco.Text+´¬´;
Parameters.ParamByName(´P2´).Value:=´¬´+StrToIntDef(EdtNumero.Text, 0)+´¬´;
//Ou se for texto, assim: Parameters.ParamByName(´P2´).Value:=´¬´+EdtNumero.Text+´¬´;
Open;
End;
Espero ter ajudado.
Ilano.
Responder
Gostei + 0
17/07/2003
Alan Marques
mesmo assim não deu certo
Responder
Gostei + 0
17/07/2003
Einstein
qryDomicilio.Close;
qryDomicilio.SQL.Clear;
qryDomicilio.Sql.Add(´Select * from Domicilio´);
qryDomicilio.Sql.Add(´Where Endereco Like ´+chr(39)+´¬´ + edtEndereco.text + ´¬´+chr(39));
qryDomicilio.Sql.Add(´and Numero = ´+chr(39)+tNumero.text + ´¬´+chr(39));
qryDomicilio.Sql.Add(´Order By Endereco´);
qryDomicilio.Open;
qryDomicilio.SQL.Clear;
qryDomicilio.Sql.Add(´Select * from Domicilio´);
qryDomicilio.Sql.Add(´Where Endereco Like ´+chr(39)+´¬´ + edtEndereco.text + ´¬´+chr(39));
qryDomicilio.Sql.Add(´and Numero = ´+chr(39)+tNumero.text + ´¬´+chr(39));
qryDomicilio.Sql.Add(´Order By Endereco´);
qryDomicilio.Open;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)