Problemas con consulta ADO

[[eduarcol]]

Lo mas seguro es que sea como dice Delphius, esta haciendo un open sin haber llenado el parametro. Cambia el open desde donde lo tienes a la linea despues que asignas el parametro.

[spyfenix]

que tal

miren aqui les dejo mi codigo de como lo tengo actualmente y que me sigue marcando el mimso error

Código Delphi [-]
qryPorNombre.Parameters.ParamByName('pNombre').Value := TRIM(edtInfo.Text);
      qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value;
      if  aMatricula <> 0 Then
      begin
        While Not qryPorNombre.Eof Do
        begin
          //grdBusqueda.cells[0, grdBusqueda.RowCount -1] := qryPorNombrenombres.Values;
          grdBusqueda.cells[1, grdBusqueda.RowCount -1] := qryPorNombrecelular.AsString;
          grdBusqueda.cells[2, grdBusqueda.RowCount -1] := qryPorNombretelefono.AsString;
          grdBusqueda.cells[3, grdBusqueda.RowCount -1] := qryPorNombresemestre.AsString;
          grdBusqueda.cells[4, grdBusqueda.RowCount -1] := qryPorNombregrupo.AsString;
          grdBusqueda.cells[5, grdBusqueda.RowCount -1] := DateToStr(qryPorNombrecumple.Value);
          qryPorNombre.Next;
        end;
      end

gracias, saludos

[[Delphius]]

Hola spyfenix,
¿En qué línea se te produce el error?
Viendo ahora el código... creo que se debe a que no tienes definido el tipo de datos:

Código Delphi [-]
ADOquery1.Parameters.ParamByName('pNombre').DataType := ftString;

Fijate si es eso.
Si te sigue saliendo el error habría que fijarse bien si estás escribiendo bien la consulta, o si el nombre del parámetro coincide con el de la consulta.

Saludos,

[spyfenix]

Que tal Delphius

mira modifique este codigo como dices de esta forma :

Código Delphi [-]
      qryPorNombre.Parameters.ParamByName('pNombre').DataType := ftString;
      qryPorNombre.Parameters.ParamByName('pNombre').Value    := TRIM(edtInfo.Text);
      qryPorNombre.Open;

y mi consulta la tengo de esta forma :

Código SQL [-]
SELECT nombres, apellido1, apellido2, sexo ,edad ,matricula , grupo, carrera,semestre, cumple, celular, telefono
  FROM  miembros
 WHERE nombres = Nombre

el error se me presenta cuando quiero abrir el Qry me marca el error que ya sabes.

:S

que mas podria ser ??

muchas graias Delphius

[[Delphius]]

spyfenix, pues la verdad es que me dejaste mal parado. No se a que podría deberse el error... ¿Podrías poner el error tal cual, en inglés? ¿O es que te lo arroja en español?

¿La SQL la tienes asignada en modo diseño? ¿O la ingresas por código?

Me gustaría ver todo el código completo, porque viendo lo que expones no soy capaz de saber la solución.

Saludos,

[[Caral]]

Hola

Código Delphi [-]
qryPorNombre.Close; // por si se quiere repetir la consulta ya que hay un add
qryPorNombre.Sql.Text:= 'SELECT nombres, apellido1, apellido2, sexo ,edad ,matricula , grupo, carrera,semestre, cumple, celular, telefono';
qryPorNombre.Sql.Add('FROM  miembros  WHERE nombres = :Nombre');
qryPorNombre.Parameters.ParamByName('Nombre').Value := TRIM(edtInfo.Text);
qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value; // esto tiene que estar en la casilla de verificacion
      if  aMatricula <> 0 Then
      begin
        While Not qryPorNombre.Eof Do
        begin
          //grdBusqueda.cells[0, grdBusqueda.RowCount -1] := qryPorNombrenombres.Values;
          grdBusqueda.cells[1, grdBusqueda.RowCount -1] := qryPorNombrecelular.AsString;
          grdBusqueda.cells[2, grdBusqueda.RowCount -1] := qryPorNombretelefono.AsString;
          grdBusqueda.cells[3, grdBusqueda.RowCount -1] := qryPorNombresemestre.AsString;
          grdBusqueda.cells[4, grdBusqueda.RowCount -1] := qryPorNombregrupo.AsString;
          grdBusqueda.cells[5, grdBusqueda.RowCount -1] := DateToStr(qryPorNombrecumple.Value);
          qryPorNombre.Next;
        end;
      end

o lo mismo sin parametros:

Código Delphi [-]
qryPorNombre.Close; // por si se quiere repetir la consulta ya que hay un add
qryPorNombre.Sql.Text:= 'SELECT nombres, apellido1, apellido2, sexo ,edad ,matricula , grupo, carrera,semestre, cumple, celular, telefono';
qryPorNombre.Sql.Add('FROM  miembros  WHERE nombres = '+ TRIM(edtInfo.Text));
qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value; // esto tiene que estar en la casilla de verificacion
      if  aMatricula <> 0 Then
      begin
        While Not qryPorNombre.Eof Do
        begin
          //grdBusqueda.cells[0, grdBusqueda.RowCount -1] := qryPorNombrenombres.Values;
          grdBusqueda.cells[1, grdBusqueda.RowCount -1] := qryPorNombrecelular.AsString;
          grdBusqueda.cells[2, grdBusqueda.RowCount -1] := qryPorNombretelefono.AsString;
          grdBusqueda.cells[3, grdBusqueda.RowCount -1] := qryPorNombresemestre.AsString;
          grdBusqueda.cells[4, grdBusqueda.RowCount -1] := qryPorNombregrupo.AsString;
          grdBusqueda.cells[5, grdBusqueda.RowCount -1] := DateToStr(qryPorNombrecumple.Value);
          qryPorNombre.Next;
        end;
      end

Saludos

[spyfenix]

Exelente, Muchas Gracias Caral
Ya Quedo Esto Resueltom Te Agradesco Mucho Por El Codigo..
Y Muchas Gracias A Todos Por Su Ayuda.

Saludos A Todos ...
Gracias