Store Procedure

[yera2002]

Hola a todos:

Quiero crear un store procedure, pero tengo las siguientes preguntas...soy nueva haciendo esto.
1.- Si requiero 2 campos en la consulta del store procedure ¿Como puedo acceder a ellos?

EJ:

CREATE PROCEDURE Clientes_GetAll
AS
SELECT Id, Nombre FROM dbo.Clientes

¿Como puedo accesar desde SQL al campo Id y al campo nombre?. Vaya en Visual Basic, puedo crear un recordset y obtener esos valores, pero en el store procedure ¿Como puedo hacerlo?

2.- Si quiero recorrer todos los registros del mismo SELECT (suponiendo que me regrese más de uno) Como puedo hacerlo.

Ojala me puedan ayudar

Saludos...

[flaviovich]

Me late que tú necesitas evaluar registro a registro algún valor de tu tabla. Para eso podrías usar un cursor, pero no se recomienda usarlo.
Mejor dinos que necesitas hacer exactamente.

[yera2002]

Hola Flaviovich:

En efecto requiero manejar bastante informacion, de hecho ya lo tengo en mi aplicativo con recordset, sin embargo queria saber si se puede via Store procedure para agilizar el acceso a la informacion.
Basicamente es un mantenimiento de la base de datos, en la cual cada determinado tiempo debo borrar informacion que ya no se ocupa y por logica son varios registros.

Saludos...

[flaviovich]

OK, ese tipo de procedimientos se deben ejecutar en la misma BD.
Cual es la logica o criterio para borrar dicha informacion?
Muestranos tu tabla la estructura o algunos registros de ejemplo.

[yera2002]

Ok: Mira el proceso te lo voy a explicar mas o menos. Con un pequeño ejemplo:

Tengo 3 tablas:

Ventas
Detalle de ventas
Detalle de pagos

Esto esta en una base de datos en la tienda. La base de datos es operativa. La idea es mantener esta base de datos con tan solo 3 meses de informacion, es decir, si estamos en enero tener la informacion solamente de Noviembre, Diciembre y Enero. esto para que el acceso a datos sea más rapido. y la respuesta del servidor tambien.

Mi aplicacion ya tiene una herramienta que verifica las fechas y borra la informacion tres meses hacia atras. Ahora, el detalle es el siguiente, dependiendo de la epoca del año, la base de datos crece esto debido a las ventas que hay en la misma. En ocasiones el servidor me indica el siguiente error cuando corro esta aplicacion desde la aplicacion. "Timeout expired. The timeout period elapsed prior to completion of the operation or the server is not responding", por lo mismo la informacion se va quedando resagada y llega un momento en el que esa informacion al no depurarse se vuelve "basura". Ahora bien, yo pense que puedo crear un store procedure en la base de datos que haga toda la funcion que realiza el aplicativo, esto con el fin de mejorar el performance y evitar en medida de lo posible el error. Un ejemplo de lo que hago es:

Tabla Ventas:

Venta (PK)
Cliente
Importe
Descuento
Impuesto
Fecha

Tabla Detalle de venta
id (PK)
Venta(FK)
Articulo
Cantidad
Precio Unitario
Descuento
Impuesto

Tabla detalle de pagos
id(PK)
Venta (FK)
Forma de pago
Monto del pago
Ingreso/Egreso
Fecha

Mi aplicativo hace mas o menos lo siguiente

Dim recordsetVenta As ADODB.Recordset
Dim recordsetDetalle As ADODB.Recordset
Dim recordsetPagos As ADODB.Recordset

Set recordsetVenta = New ADODB.Recordset
recordsetVenta.CursorType = adOpenForwardOnly
recordsetVenta.LockType = adLockReadOnly

recordsetVenta.Open "SELECT venta FROM ventas WHERE fecha <= '" & Date - 100 & "'", Connection, , , adCmdText

While Not recordsetVenta.EOF
Set recordsetDetalle = New ADODB.Recordset
recordsetDetalle.CursorType = adOpenForwardOnly
recordsetDetalle.LockType = adLockReadOnly

recordsetDetalle.Open "SELECT * FROM [detalle venta] WHERE venta = " & recordsetVenta("venta"), Connection, , , adCmdText

If Not recordsetDetalle.EOF Then
Connection.Execute "DELETE FROM [detalle venta] WHERE venta = "& recordsetVenta("venta")
End If

Set recordsetPagos = New ADODB.Recordset
recordsetPagos.CursorType = adOpenForwardOnly
recordsetPagos.LockType = adLockReadOnly

recordsetPagos.Open "SELECT * FROM [detalle pagos] WHERE venta = " & recordsetVenta("venta"), Connection, , , adCmdText

If Not recordsetPagos.EOF Then
Connection.Execute "DELETE FROM [detalle pagos] WHERE venta = "& recordsetVenta("venta")
End If

Connection.Execute "DELETE FROM [ventas] WHERE venta = "& recordsetVenta("venta")

recordsetVenta.MoveNext
Wend


Estoy simulando una operacion muy sencilla, realmente la base de datos interactua con mas tablas y básicamente ese es el concepto. ¿Tienes alguna sugerencia?

[chmar]

1.- si haces un procedimento puedes usar lo siguiente para crear un record set de él

set SqlRS = server.CreateObject("ADODB.RecordSet")
set SqlRS = SqlConn.Execute("procedimiento")

2.- En caso de que te regrese varios datos puedes verlos del mismo modo como si fuera cualquier recordset ejemplo

Do While NOT SqlRS.EOF

SqlRS.MoveNext
Loop


Espero que te sirva

[yera2002]

Probaré la sugerencia

Gracias

[iislas]

¿Porque involucrar un aplicativo y no usar los JOB's para crear un procedimiento que se ejecute todos los dias y solo deje la informacion de 3 meses?

Si el procedimiento esta bien creado, debera borrar, solo la informacion DE UN DIA a la vez.

Y el decir BORRAR, quiere decir, enviar a HISTORICOS la informacion que no se desea tener en linea.

[yera2002]

Hola iislas:

Gracias por la recomendacion, como lo dije al inicio no he trabajo mucho a nivel administracion del server, por que no sabia sobre los JOB's, pero comenzaré a investigar y espero mañana poder comentarle como me fue.
Saludos....

[iislas]

Ademas recuerda, que cuando hablamos de "ELIMINAR" informacion de forma masiva (tu caso), deberia ser de forma BATCH, esto es, hacer una especie de WHILE y hacer un "borrado" por "tantos" de registros.

Saludos