FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Query, como saber el numero de Registros ?
hola amigos, Sabes tengo una rutina en donde hago un filtro por medio
de un query, y necesito saber cuantos registros cumplieron la condicion de ese query, como puedo obtener ese dato ? mi rutina es esta: DATa.q1.close; DATa.Q1.SQL.Clear; DATA.q1.SQL.Add('SELECT * FROM '+#34+cruta+#34+' WHERE fecha between '+#34+sfechaini+#34+' and '+#34+sfechafin+#34' ORDER BY numempleado'); DATA.Q1.OPEN; y en otro procedimiento es lo siguiente : while not data.q1.Eof DO BEGIN CNT:=CNT+1; CADENA:='9999000000@'+copy(edit1.text,1,1); cad2:=RELLENACONCEROS(data.TCHECANumempleado.VALUE,8); CAD3:=COPY(CAD2,8,1); CAD2:=COPY(CAD2,3,5); CADENA:=CADENA+CAD2+CAD3; Present:= Now; DecodeDate(data.q1Fecha.value, Year, Month, Day); CAD2:=IntToStr(MONTH); CAD2:=RELLENACONCEROS(CAD2,2); CADENA:=CADENA+CAD2; CAD2:=IntToStr(Day); CAD2:=RELLENACONCEROS(CAD2,2); CADENA:=CADENA+CAD2; DecodeTime(data.q1Hora.value, Hour, Min, Sec, MSec); CAD2:=IntToStr(HOUR); CAD2:=RELLENACONCEROS(CAD2,2); CADENA:=CADENA+CAD2; CAD2:=IntToStr(MIN); CAD2:=RELLENACONCEROS(CAD2,2); CADENA:=CADENA+CAD2+'1'; WRITELN(F, Cadena); data.q1.Next; END; closeFILE(f); // CERRAR EL ARCHIVO MUY IMPORTANTE memo1.Lines.Add('Archivo Reloj.dat Creado con Exito'); memo1.Lines.Add('Para Incorporarlo o Importarlo de su'); memo1.Lines.Add('Sistema de Nomina, Entre y Ejecute ese Proceso '); biniciar.enabled:=false; bpreparar.SetFocus; Te agradezco mucho tu ayuda. Saludos |
|
|
|