|
Gracias por tu aportación, intente lo que me has recomendado y obtengo el mismo resultado. Pondre el código completo. Quizas ahí este el error y no lo note.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
NClie : integer;
begin
If Edit1.Text <>'' Then
Begin
Try
NClie := StrToInt(Edit1.Text);
DataModule1.ADOQuery1.SQL.Clear;
ShowMessage('El valor de la variable es:'+' '+IntToStr(NClie)); <---- Agregue esta ventana para ver el valor que lleva NCLie y es correcto
A) DataModule1.ADOQuery1.SQL.Add('SELECT * FROM CLIENTE WHERE CLAVE=:NClie'); <---- En esta parte le cambie el LIKE por el WHERE
B) DataModule1.ADOQuery1.SQL.Add('SELECT * FROM CLIENTE WHERE CLAVE LIKE :Nclie'); <---- El DBGrid esta vacio con LIKE o WHERE
DataModule1.ADOQuery1.Parameters.ParamValues['NCLie'] := Edit1.Text;;
DataModule1.ADOQuery1.Open;
Form2 := TForm2.Create(Self);
Form2.ShowModal;
Except
ShowMessage('Lo siento no puedo abrir la base de datos');
End
End
Else
end;
Gracias por su atención
|