Problemas com consulta em SQL usanso Acess - Urgente
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
Curtidas 0
Respostas
Ilanocf
16/07/2003
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.
GOSTEI 0
Alan Marques
16/07/2003
mesmo assim não deu certo
GOSTEI 0
Einstein
16/07/2003
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;
GOSTEI 0