Problemas con consulta ADO

[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