Ver Mensaje Individual
  #5  
Antiguo 23-07-2014
Avatar de ozsWizzard
ozsWizzard ozsWizzard is offline
Miembro
 
Registrado: may 2004
Ubicación: Murcia
Posts: 190
Reputación: 20
ozsWizzard Va por buen camino
Lo primero: ¿Clave es numérico o alfanumérico?.

El LIKE no me cuadra mucho siendo numérico, la verdad. Yo dejaría la consulta A).

Por otra arte, en la asignación te has hecho un lío, creo. Usas una variable que se llama igual que el parámetro que no te sirve para nada, y aunque fuera el parámetro, el valor lo compruebas antes de asignarle un valor...

Bueno, mira a ver si ésto te sirve:
Código Delphi [-]
begin
   If Edit1.Text <>'' Then
   Begin
      Try         
         DataModule1.ADOQuery1.SQL.Clear;         
         DataModule1.ADOQuery1.SQL.Add('SELECT * FROM CLIENTE WHERE CLAVE=:NClie'); 
         DataModule1.ADOQuery1.Parameters.ParamValues['NCLie'].AsInteger := StrToInt(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;
__________________
La Madurez se llama...
~~~Gaia~~~
Responder Con Cita