![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
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 |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Estructuras de parametros en delphi | jularaXD | Varios | 9 | 11-03-2014 14:54:25 |
| Parametros en ReportBuilder 14 Delphi XE2 | papycool | Impresión | 0 | 19-09-2013 22:25:12 |
| Problema con parametros en Delphi for .Net | lalosan | SQL | 3 | 27-02-2007 22:01:02 |
| Parametros Delphi 2006 | raorre | OOP | 3 | 28-07-2006 18:18:58 |
|