ir a la posicion de un registro específico

[[BlueSteel]]

Hola a Todos...

Estoy realizando una aplicación que me permite elegir los ganadores para un concurso.

Los ganadores se sortean de acuerdo a las personas que han comprados abonos. Los datos los tengo almacenados en una tabla de SQL Server. Para realizar la elección del numero, lo que realizo primero es obtener la cantidad de abonos vendidos, para lo cual realizo un

Código SQL [-]
 
Select Count(*) from vendidos

Luego aplico un Ramdon al valor anterior, lo que me dará el Numero (posición) del Ganador.

Código Delphi [-]
Ramdon(Total_Abonos_Vendidos)

Mi consulta es como me posiciciono en el Registro que fue Sorteado ???

Se que el RecNo me entrega la posición, pero como me posiciono en el registro del valor que me entrega el Ramdon???

Salu2

[[poliburro]]

Empezado por BlueSteel

Mi consulta es como me posiciciono en el Registro que fue Sorteado ???

Se que el RecNo me entrega la posición, pero como me posiciono en el registro del valor que me entrega el Ramdon???

RecNo?, Es una función? en que versión de SQlServer está?

[[BlueSteel]]

Hola Poliburro...

Estoy en SQLServer 2000

si realizo

Código Delphi [-]
 
 Edit1.Text := IntToStr(ADQ_Select.RecNo);

me entregará la posición del registro en la cual me ubico....


pero lo que tengo como dato, es la posición... entonces lo que quiero realizar es alguna función que se posicione en la "posición", valga la redundancia, que le estoy entregando...


Sorry... pero lo estoy trabajando desde el Delphi 7..... a lo mejor eso te confundio,, y pensastes que RecNo es una función del SQL Server...

Salu2

[[poliburro]]

Código SQL [-]
 
-- =============================================
-- Create procedure basic template
-- =============================================
-- creating the store procedure
IF EXISTS (SELECT name 
    FROM   sysobjects 
    WHERE  name = N'GetIdByPos' 
    AND    type = 'P')
    DROP PROCEDURE GetIdByPos
GO
CREATE PROCEDURE GetIdByPos (@RecNo As Int, @RowId As Int Output)
 
AS

CREATE TABLE #Temporal (RecNo Int IDENTITY(1,1), 
                                    [RowId] [numeric](6, 0))
Insert 
  Into #Temporal  (rowId) 
  Select FieldId From Table
 
Select @RowId = RowId
  From #Temporal
 Where RecNo = @RecNo
 
Drop Table #Temporal

GO
Return

[[BlueSteel]]

Gracias amigo poliburro

cada vez me impresionas más.....

ahora, donde agrego esto.. y como lo utilizo desde delphi ???

Al final los datos los estoy trabajando desde un Vista, en donde tienen todos los datos que necesitaba

Salu2

[[poliburro]]

Me explico,


Este procedimiento crea una tabla temporal con una columna identity que simula el RecNo de ADO y el RowNum de Oracle.

En esta tablatemporal vas a insertar el campo id de la tabla de donde deseas sacar el registro en la posición deseada.

A este procedimiento le pasas que número de registro que deseas y te devolverá el Id correspondiente a esa posición.

con el id puedes obtener toda la fila.

Espero haber comprendido tu problema, si no, con confianza pregunta