SQL con parametros Delphi 7

[orodriguezca]

1. La instrucción DataModule1.ADOQuery1.ExecSQL está demás. ExecSQL o sus equivalentes en otros dataset se utilizan cuando la consulta no devuelve un conjunto de resultados, por ejemplo en una instrucción Update o Delete.

2. El operador SQL LIKE, en la mayoría de los motores de bases de datos, requiere que el segundo operando (en este caso NCli) sea de tipo alfanumérico, por lo que es posible que tu código trabaje bien de la siguiente manera:

Código Delphi [-]
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('SELECT * FROM CLIENTE WHERE CLAVE LIKE :Nclie');
  DataModule1.ADOQuery1.Parameters.ParamValues['NCLie'] := Edit1.Text;  //No convetimos a integer 
  // No se requiere esta instrucción: DataModule1.ADOQuery1.ExecSQL;
  DataModule1.ADOQuery1.Open;

Espero te sirva.

[Jose Carlos Rey]

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

[ozsWizzard]

Como diría Casimiro...

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ozsWizzard]

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;

[Jose Carlos Rey]

Que tal, buen dia de nuevo por aqui. gracias a su ayuda y comentarios que me han hecho; les comento que le busque de una forma de otra y nada no arroja informacion en DBGrid. en ocasiones daba errores, cambie los campos de consulta y nada. Para entonces de buscar y buscar siempre en la misma tabla decidi cambiar a otra, la sorpresa fue que la consulta si se realizaba. Por lo que asumo que es la tabla la que arroja el error.
La estructura de la tabla CLIENTEy en especifico del campo que intente consultar ("CLAVE") es "Texto" y el motor de la BD es MS SQL server 2008 no tengo idea de como realizar esta consulta dado que el campo en especifico no muestra nada en consulta y es precisamente el que requiero para obtener la informacion

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Try
      Begin
        If Edit1.Text<>Null Then
          Begin
            DataModule1.ADOQuery1.Close;
            DataModule1.ADOQuery1.SQL.Clear;
            DataModule1.ADOQuery1.Prepared;
            DataModule1.ADOQuery1.SQL.Add('SELECT * FROM INVENTARIO A WHERE A.CVE_ART=:ID');
            DataModule1.ADOQuery1.Parameters.ParamByName('ID').Value := Edit1.Text;
            DataModule1.ADOQuery1.ParamCheck:=True;
            DataModule1.ADOQuery1.Open;
            Form2 := TForm2.Create(Self);
            Form2.Show;
          End
        Else
      End
    Except
      ShowMessage('Lo siento no pude abrir la base de datos');
    End
End;

Esta es la nueva consulta en la cual he cambiado a la tabla de INVENTARIO y el campo CVE_ART y funciona muy bien pero no es la tabla que requiero consultar.
Alguien que tenga alguna idea?
Saludos

[Jose Carlos Rey]

Que tal, buen dia de nuevo por aqui. gracias a su ayuda y comentarios que me han hecho; les comento que le busque de una forma de otra y nada no arroja informacion en DBGrid. en ocasiones daba errores, cambie los campos de consulta y nada. Para entonces de buscar y buscar siempre en la misma tabla decidi cambiar a otra, la sorpresa fue que la consulta si se realizaba. Por lo que asumo que es la tabla la que arroja el error.
La estructura de la tabla CLIENTE y en especifico del campo que intente consultar ("CLAVE") es "Texto" y el motor de la BD es MS SQL server 2008 no tengo idea de como realizar esta consulta dado que el campo en especifico no muestra nada en consulta y es precisamente el que requiero para obtener la informacion

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Try
      Begin
        If Edit1.Text<>Null Then
          Begin
            DataModule1.ADOQuery1.Close;
            DataModule1.ADOQuery1.SQL.Clear;
            DataModule1.ADOQuery1.Prepared;
            DataModule1.ADOQuery1.SQL.Add('SELECT * FROM INVENTARIO A WHERE A.CVE_ART=:ID');
            DataModule1.ADOQuery1.Parameters.ParamByName('ID').Value := Edit1.Text;
            DataModule1.ADOQuery1.ParamCheck:=True;
            DataModule1.ADOQuery1.Open;
            Form2 := TForm2.Create(Self);
            Form2.Show;
          End
        Else
      End
    Except
      ShowMessage('Lo siento no pude abrir la base de datos');
    End
End;

Esta es la nueva consulta en la cual he cambiado a la tabla de INVENTARIO y el campo CVE_ART y funciona muy bien pero no es la tabla que requiero consultar.
Alguien que tenga alguna idea?
Saludos

[Jose Carlos Rey]

Nuevamente entro para solicitar de su ayuda como amablemente lo han hecho. en el mensaje anterior les comente que cambiando de tabla se hacia la consulta sin problema. Encontré también que el campo en especifico esta marcado como TEXTO (imagino que string) y de longitud 10. regrese la tabla y campo inicial de la consulta y dado que el tamaño del campo es 10 decidí ingresar en el Edit1 (en ejecución) los espacios correspondientes junto con el numero de cliente por ejemplo 105 lo ingrese como ' 105' (claro sin las comillas) dejando los campos como parte de la cadena a fin de completar los 10 del largo del campo y trabajo ya la consulta. Ahora la pregunta es como recorto en tiempo de ejecución ese molesto espacio espacio espacio espacio,,,, numero para tener los 10 dígitos? si me explico, solo ingresar los dígitos del cliente.

Gracias

[ozsWizzard]

Si el campo es texto, debería de ir entre comillas. Para ponerle las comillas yo uso la función QuotedStr:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Try
      Begin
        If Edit1.Text<>Null Then
          Begin
            DataModule1.ADOQuery1.Close;
            DataModule1.ADOQuery1.SQL.Clear;
            DataModule1.ADOQuery1.Prepared;
            DataModule1.ADOQuery1.SQL.Add('SELECT * FROM CLIENTE A WHERE A.CLAVE= ' + QuotedStr(Edit1.Text));
            DataModule1.ADOQuery1.ParamCheck:=True;
            DataModule1.ADOQuery1.Open;
            Form2 := TForm2.Create(Self);
            Form2.Show;
          End
        Else
      End
    Except
      ShowMessage('Lo siento no pude abrir la base de datos');
    End
End;

[ecfisa]

Hola José.

Empezado por Jose Carlos Rey

...
Ahora la pregunta es como recorto en tiempo de ejecución ese molesto espacio espacio espacio espacio,,,, numero para tener los 10 dígitos?
...

Si lo que buscas es quitar los espacios que previamente agregaste a la izquierda del texto del TEdit, podes usar la función TrimLeft

Código Delphi [-]
  ...
  Edit1.Text:= TrimLeft(Edit1.Text);
  ...

También te puede resultar interesante revisar las funciones Trim y TrimRight

Saludos

[roman]

Empezado por Jose Carlos Rey

Nuevamente entro para solicitar de su ayuda como amablemente lo han hecho. en el mensaje anterior les comente que cambiando de tabla se hacia la consulta sin problema. Encontré también que el campo en especifico esta marcado como TEXTO (imagino que string) y de longitud 10. regrese la tabla y campo inicial de la consulta y dado que el tamaño del campo es 10 decidí ingresar en el Edit1 (en ejecución) los espacios correspondientes junto con el numero de cliente por ejemplo 105 lo ingrese como ' 105' (claro sin las comillas) dejando los campos como parte de la cadena a fin de completar los 10 del largo del campo y trabajo ya la consulta. Ahora la pregunta es como recorto en tiempo de ejecución ese molesto espacio espacio espacio espacio,,,, numero para tener los 10 dígitos? si me explico, solo ingresar los dígitos del cliente.

Habría que ver primero porqué un campo cuyos valores son numéricos está definido como texto.

Una alternativa a la que te ofrece ecfisa podría ser la función LTRIM de SQL Server:

Código Delphi [-]
DataModule1.ADOQuery1.SQL.Add('SELECT * FROM INVENTARIO A WHERE LTRIM(A.CVE_ART)=:ID');

Es decir, en lugar de llenar los espacios faltantes en el valor del parámetro, quitamos los espacios sobrantes del valor del campo.

// Saludos

[TiammatMX]

Empezado por Jose Carlos Rey

Que tal, buen dia de nuevo por aqui. gracias a su ayuda y comentarios que me han hecho; les comento que le busque de una forma de otra y nada no arroja informacion en DBGrid. en ocasiones daba errores, cambie los campos de consulta y nada. Para entonces de buscar y buscar siempre en la misma tabla decidi cambiar a otra, la sorpresa fue que la consulta si se realizaba. Por lo que asumo que es la tabla la que arroja el error.
La estructura de la tabla CLIENTE y en especifico del campo que intente consultar ("CLAVE") es "Texto" y el motor de la BD es MS SQL server 2008 no tengo idea de como realizar esta consulta dado que el campo en especifico no muestra nada en consulta y es precisamente el que requiero para obtener la informacion

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Try
      Begin
        If Edit1.Text<>Null Then
          Begin
            DataModule1.ADOQuery1.Close;
            DataModule1.ADOQuery1.SQL.Clear;
            DataModule1.ADOQuery1.Prepared;
            DataModule1.ADOQuery1.SQL.Add('SELECT * FROM INVENTARIO A WHERE A.CVE_ART=:ID');
            DataModule1.ADOQuery1.Parameters.ParamByName('ID').Value := Edit1.Text;
            DataModule1.ADOQuery1.ParamCheck:=True;
            DataModule1.ADOQuery1.Open;
            Form2 := TForm2.Create(Self);
            Form2.Show;
          End
        Else
      End
    Except
      ShowMessage('Lo siento no pude abrir la base de datos');
    End
End;

Esta es la nueva consulta en la cual he cambiado a la tabla de INVENTARIO y el campo CVE_ART y funciona muy bien pero no es la tabla que requiero consultar.
Alguien que tenga alguna idea?
Saludos

De entrada, yo tengo dos sugerencias:

1.- ¿Funciona PERFECTAMENTE en MS SQLServer la consulta que quieres hacer? Es decir, si te vas al manejador de SQLServer, abres una ventana de query, tecleas la consulta y la ejecutas, ¿te arroja los resultados que necesitas?

2.- No consignas qué versión de MS SQLServer utilizas, pero en la 2002 y 2008 R2 hay un error que hace que los parámetros que envías a una consulta NO SE 'TRADUZCAN' ADECUADAMENTE dentro del motor, y para ésto DEBES necesariamente "armar" tu consulta en modo texto respetando los tipos de columna de la(s) tabla(s).

3.- ¿Limpias tu TADOQuery después de ejecutarlo? ¿Eliminas los parámetros? También puede ser 'algo' que se quede pendiente...

Creo que con ésto podrías resolver ésta duda. Si no, buscaremos otra posible solución.