Procedimientos almacenados desde VB
-
Hola Amigos
espero qeu alguien me pueda ayudar quiero hacer los siguiente tengo dos data grid dtg1 y dtg2 , en el primero tengo una relacion de personas con un codigo identificatorio (key unico), y otros datos en la segunda vacio , de tal forma que al seleccionar una fila en dg1 este pase a dg2 y si lo elimino de dtg2 regrese a dtg1
para cargar el dtg1 uso un procedimiento almacenado el cual se una tabla se relaciona con otras y da las columnas que muestro
--
cIdempresa='23'
cFecha = '15/04/2012'
cseccion= '30000'
Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = cnxRRHH
.CommandType = adCmdStoredProc ''adCmdTable '
.CommandText = "DBO.PA_ROL_TURNOS"
Set Prm1 = .CreateParameter("FECHA", adVarChar, adParamInput, 10, dFecha)
.Parameters.Append Prm1
Set Prm1 = .CreateParameter("EMPRESA", adVarChar, adParamInput, 2, cIdEmpresa)
.Parameters.Append Prm1
Set Prm1 = .CreateParameter("SECCION", adVarChar, adParamInput, 5, cSeccion)
.Parameters.Append Prm1
Set rs_listaActivos = .Execute
End With
'
Set dtg1.DataSource = rs_ListaActivos
--
cuando cargo el formulario aparece como quiero mostrar los datos sin problema
pero cuando selecciono una fila para pasarlo a dtg2 no desaparece del dtg1 por tanto recurro, trato de Actualizar el dtg1
rs_ListaActivos.requery
para volver a cargar la data y me vota error falta los parametros "@Fecha" para cargar la informacion
terminando el programa
Como debo actualizar el dtg1 para que me actualize la informacion?
que error esto cometiendo al hacer el llamado del requery
Nota.
si vuelvo a correr el programa los datos me lo nuestra como debe ser es decir si el total de dtg1 es 58 filas, despues de intentar pasar una fila a la dg2 y donde me sale el error , el dg1 queda en 57 y dg2 en 1, , en resumen hace lo que quiero.
Gracias por su colaboracion
