FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
numero de orden en una vista
Muy buenas saludos a todos lo primero
Necesito crear una vista, en la qu por un lado tenga el nombre de un alumno y por otro el numero de registro, algo asi: 1 Pepe 2 Juan 3 Amaia 4...... este numero de orden no se guarda, ya que dependeria del orden que le des a la lista, no se si hoy estoy un poco mas espeso de lo normal, pero no consigo solucionarlo, a ver si a laguien se le ocurre como sacarlo. Gracias |
#2
|
||||
|
||||
Buenas.
No me ha quedado muy clara tu duda. Cuando te refires a una vista, ¿dónde quieres ver esos datos? un listview, un grid, etc Los datos que quieres mostrar (me refiero a los nombres) Cita:
No se si te podré ayudar, pero si me aclaras esto lo intentaré. No llevo demasiado programando en delphi, pero algo parecido si he tenido que hacer. Un saludo.
__________________
De lo bueno lo mejor, de lo mejor lo superior. |
#3
|
||||
|
||||
seria un algo asi
select ( ?¿?¿), nombre from Alumno order by nombre por ejemplo donde las interrogantes darian como resultado el orden que ocupa el registro en este select en concreto |
#4
|
||||
|
||||
¿ Que base de datos utilizas ?
Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#5
|
||||
|
||||
Utilizo firebird 1.5
|
#6
|
||||
|
||||
Hola.
Entonces puedes utilizar un procedimiento almacenado. Código:
SET TERM ^ ; CREATE PROCEDURE LISTA RETURNS (LINEA INTEGER, NOMBRE VARCHAR(50)) AS begin LINEA = 0; for select NOMBRE from TABLA order by NOMBRE into :NOMBRE do begin LINEA = LINEA + 1; suspend; end end ^ SET TERM ; ^ En esta Web puedes encontrar más información sobre Firebird y procedimientos almacenados http://firebird.com.mx. Aunque naturalmente la información más completa la encontrarás en la documentación del producto : http://www.ibphoenix.com/downloads/60All.zip Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). Última edición por guillotmarc fecha: 25-05-2004 a las 13:14:40. |
#7
|
||||
|
||||
Si en la base de datos no vas a guardar ese campo, no lo puedes utilizar en la consulta, o por lo menos eso creo.
Te voy a poner una posible solución mostrando los datos obtenidos por esa consulta en un 'Listview'. Seguro que hay otras soluciones, pero es la que yo utilicé para hacer unas pruebas para una aplicación. Código:
var L1 : TListItem; ..................... begin ..................... Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * FROM Alumno order by Nombre'); Query1.Open; Query1.First; while not Query1.Eof do begin L1:=ListView1.Items.Add; L1.Caption:=inttostr(ListView1.Items.Count); L1.SubItems.Add(Query1.FieldByName('Nombre').AsString); Query1.Next; end; ..................... Espero que te funcione. Un saludo.
__________________
De lo bueno lo mejor, de lo mejor lo superior. |
#8
|
||||
|
||||
Buscando información de otro tipo, encontré este hilo, que aunque es antiguo, y ya lo podeis tener resuelto, se podría resolver de esta manera.
Poner un campo calculado que se el Recno del dataset que se está poniendo. Hay una pega: Sólo vale para consultas o tablas que se vean enteras y no se ordenen por un indice que no sea el primario. En las consultas el Recno es la posición del registro en la lista de los mismos. En las tablas, es el nº de registro físico, por lo que si tienes un indice activo que no se primary key puede que no coincidan el nº de registro con la posición del registro en la lista de los mismos. Además, si se filtra ( tanto querys como tablas ) se pierde la referencia. Yo utilizo este dato (recno ) para sacar las filas pintadas alternativamente con otro color de fondo Código:
procedure TFormMain.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if ((Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0) and (not (gdSelected in State)) then (Sender as TDBGrid).Canvas.Brush.Color:=clinactivecaptionText; (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State); end; Un saludo
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino - |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|