Contar campos de una tabla por medio de un parametro!!

[Zakio14]

Pura Vida Foro! Tengo una duda, trabajo con firebird y delphi7.
mi consulta es: tengo una tabla(Tabla1) con un campo (Id_socio)y en la aplicacion un boton(Boton1) y un Edit(Edit1). Quiero consultar Tabla1 y contar por medio de un parametro(Edit1) recorrer la tabla y ver cuantos registros tiene un socio, con el ID que contiene el (Edit1) . Espero que entiendan mi pregunta... gracias .....

[reevil]

Código SQL [-]

SELECT COUNT(*) FROM tabla WHERE Id_socio = "valor_de:Edit11"

en mysql eso funciona, en firebird desconosco

[[RONPABLO]]

me imagino que el query es algo como

Código SQL [-]

select * from Tabla1 where id_socio = :id

in en delphi algo como

Código Delphi [-]
TTabla1.Close;
TTabla1.ParamByName('id').asString := Edit1.text;
TTabla1.open;
TTabla1.First;
TTabla1.Last;
TTabla1.RecordCount;

[[egostar]]

Creo que esto seria suficiente amigo [RONPABLO]

Código Delphi [-]
TTabla1.Close;
TTabla1.ParamByName('id').asString := Edit1.text;
TTabla1.open;
ShowMessage(inttostr(TTabla1.RecordCount));

Salud OS

[[RONPABLO]]

en Firebird no lo es tanto, particularmente a mi nunca me dio el valor real sin ir desde el primer registro hasta el ultimo.... lo mismo en el momento de ver una barra vertical de un DbGrib, hasta que no voy al último registro no se ve proporcional la barra de desplazamiento, cosa que no ocurria con Paradox, cabe anotar que yo no trabajo con componentes TTable, lo hago con IBXTable o con MDOTable

[[Lepe]]

Código Delphi [-]
TTabla1.Close;
TTabla1.ParamByName('id').asString := Edit1.text;
TTabla1.open;

TTabla1.Last;
TTabla1.RecordCount;

El First sobra, cuando se abre un consulta, se situa en el primer registro.

Saludos

[Zakio14]

Pura Vida Foro!!
Gracias por sus respuestas fue de gran ayuda.... me funciono de maravilla!!

[[egostar]]

Empezado por RONPABLO

en Firebird no lo es tanto, particularmente a mi nunca me dio el valor real sin ir desde el primer registro hasta el ultimo.... lo mismo en el momento de ver una barra vertical de un DbGrib, hasta que no voy al último registro no se ve proporcional la barra de desplazamiento, cosa que no ocurria con Paradox, cabe anotar que yo no trabajo con componentes TTable, lo hago con IBXTable o con MDOTable

Bueno, en eso tienes razón no leí correctamente el hilo y me fui con la finta de TTable, en todo caso lo que yo hago con los IBX es usar un IBQuery con la siguiente consulta.

Código SQL [-]
SELECT COUNT(*) FROM TABLA

Y en Delphi recupero el valor desde ese Query.

Código Delphi [-]
//Obtengo el número de registros de la tabla
function TForm1.NumRegistros:string;
begin
  IBQuery1.Open;
  Result := IBQuery1.Fields[0].AsString;
  IBQuery1.Close;
end;

//Al abrir la tabla muestro Registro X de Y
procedure TForm1.IBTable1AfterOpen(DataSet: TDataSet);
begin
  Label1.Caption := 'Registro ' + InttoStr(IBTable1.RecNo) + ' de ' + NumRegistros;
end;

//Cuando navego en la tabla actualizo el valor
procedure TForm1.IBTable1AfterScroll(DataSet: TDataSet);
begin
  Label1.Caption := 'Registro ' + InttoStr(IBTable1.RecNo) + ' de ' + NumRegistros;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IBTable1.Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  IBTable1.Open;
end;

Salud OS

[[RONPABLO]]

en todo caso lo que yo hago con los IBX es usar un IBQuery con la siguiente consulta.

Si, así es mejor

[rastafarey]

Usa execute statement y lansas la consulta sobre la tabla rdb$relations relacionada con rdb$realtionfields y listo