FoxPro/Visual FoxPro - Ayuda con la creacion de un Store Procedure para..

Saludos,

Tengo que eliminar muchos registros de una tabla en SQL, utilizando una vista desde VF

Si alguien me puede enviar un codigo, de como Yo invoco un store procedure desde VF, y que me ayuden a crear el store procedure en SQL para eliminar los registros

Este es el codigo que tengo actual para eliminar los registros, pero quiero eliminarlos con un store procedure, y no tengo la menor idea de como se hace.

La Tabla y la vistas se llaman fact_creditos


fechasss = '08/06/2005'
SELECT fact_creditos
INDEX ON fecha TO temp\fact_creditos.idx
DO WHILE !EOF()

IF DTOC(fecha) = fechasss
DELETE
=TABLEUPDATE(.T.)
ENDIF
SKIP
IF EOF()
EXIT
ENDIF
ENDDO

Hola Antonio:

Bueno para crear un SP, en SQL Server, abres el Enterprise Manager y la BD en la que vas a trabajar, en la parte de procedimiento creas un nuevo SP y el codigo seria algo asi:

CREATE PROCEDUTE sp_DELTabla
@ldFecha SMALLDATETIME = NULL

As

DELETE FROM TABLA WHERE dFECHA = @ldFECHA

GO

** Nota: No tengo el SQL aqui para probar, pero mas o menos ese seria el codigo.

Para llamar al SP desde VFP:

** Activas la conexion
lnConexion = SQLCONNECT(<Parametros de tu conexion>)

** Llamas al SP
lnResul = SQLEXEC(lnConexion, 'sp_DELTabla(08/06/2005)')

** Cierra la conexion
SQLDISCONEC()

Mas o menos ese seria el codigo para borrar registros en SQL Server a travez de un SP.

Prueba y me cuentas

Saludos

Gracias Foxperto,

Mira cree el SP, pero la conexion que estoy utilizando esta creada a nivel de ODBC

y le estoy enviado los marametros pero me da el error de:

Conection Handle

lnConexion = SQLCONNECT([nomina, rsanchez, ' '| NOMINA])

lnConexion = SQLCONNECT([Nomina, rsanchez, | NOMINA])
lnConexion = SQLCONNECT([Nomina, rsanchez, ' '| NOMINA])

? lnConexion

Me da un -1

y cuando ejecuto entoces esto

lnResul = SQLEXEC(lnConexion, 'sp_DELTabla(08/06/2005)')

me da:

Connection handle is invalid

Gracias por seguir ayudando

Att.

Antonio
Santo Domingo Rep. Dom.

Foxperto,

Ya gracias ya elimina, pero tengo unico problemas por favor dime como lo resulevo


SQLEXEC(lnConexion, "sp_DELTabla '2005-10-06'")

asi funciona , pero cuando le envio una variable a la fecha, no lo hace

fechak = '2005-10-06'

SQLEXEC(lnConexion, "sp_DELTabla fechak")

SQLEXEC(lnConexion, "sp_DELTabla 'fechak'")

SQLEXEC(lnConexion, "sp_DELTabla CTOD(fechak)")

y de ninguna forma lo hace que es lo que estoy haciendo mal,

att.
Antonio Moquete
Santo Domingo Rep. Dom.

prueba con
SQLEXEC(lnConexion, "sp_DELTabla ?fechak")

Gracias Ramon, muchas gracias, asi me funcionón ayer, lo hice, pero de esta forma :

SQLEXEC(lnConexion, "EXEC sp_DELTabla ?fechak")

Pero tengo problemas con la fecha, tengo que descomponerla asi :

STORE ThisForm.Txtfecha.Value TO fechaT

STORE SUBSTR(fechaT,1,2) TO dia1
STORE SUBSTR(fechaT,4,2) TO mes1
STORE SUBSTR(fechaT,7,4) TO ano1

FechaPeriodo11 = and1+'-'+dia1+'-'+mes1

YYYY-DD-MM

LL = SQLEXEC(lnConexion, "EXEC sp_Deltabla ?FechaPeriodo11")

? LL

1

Si no descompongo la fecha asi, LL da un valor negativo

? LL

-1

Dime como puedo resolver eso con relacion a la fecha, es que la el campo fecha en SQL esta asi : YYY-DD-MM 00:00:00

Desde ya muchas gracias, aproposito de donde eres? lo pregunto por si existe diferencia de horas, es que aqui ahora mismo son las 9:50 am, y me quedo todo el dia esperando la repuesta de los que lean las preguntas.

Saludos, nuevamente

Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

Hola Antonio:

La verdad es que Yo tambien tengo problemas con la Fecha, pero lo resuelvo de la siguiente manera:

lcFecha = Transform(dFecha) y ese es el parametro que envio al SQL.

En el SQL el parametro de Fecha del SP es tipo SMALLDATETIME, al igual que al campo que hago referencia.

Prueba a ver si te funciona.

Carlos Soto
Maracaibo Venezuela

Saludos Calos

Mira Chamo aqui conoci muchos venezolanos, ellos estaban como consultores, de SAP, para compania en la que trabajo, y de verdad son unos rolo de diablo, ajajaja, no son de pana de verdad,

Mira como entonces tu le envias el parametro Transform(dFecha)

asi:

Transform(dFecha,'9999-99-99')

Explicame

Att.
Antonio
Santo Domingo Rep. Dom.

Hola Antonio:

Realmente lo que Yo hago es lo siguiente:

lcRegistro = '@Codigo=' + cCodigo + '@Fecha:' + transform(dFecha)

lcRegistro = 'sp_Add_Tabla ' + lcRegistro

SQLEXEC(lnConexion, lcRegistro)

Aqui esta de forma resumida, pero Yo verifico para enviar solamente los registros que tienen valores, los demas no los envios, por eso creo una cadena antes desl SQLEXEC()

Prueba y me cuentas.