Ayuda con store procedure
Me llamo doris y soy de monclova coah, y tengo una pregunta para ti, espero me puedas ayudar y de antemano gracias.
Estoy programando en visual basic tengo un reporte que puede personalizar el usuario osea el selecciona de una lista los campos de una tabla los cuales desea que aparezcan en el reporte, ¿cuál es la sintaxis del store procedure para seleccionar los campos de la tabla que le llegan como parámetros al store?
Estoy programando en visual basic tengo un reporte que puede personalizar el usuario osea el selecciona de una lista los campos de una tabla los cuales desea que aparezcan en el reporte, ¿cuál es la sintaxis del store procedure para seleccionar los campos de la tabla que le llegan como parámetros al store?
3 Respuestas
Respuesta de shark3000
1
Te envío un ejemplo de store procedure.. ojala te sirva...
'DECLARACIÓN DE VARIABLES GLOBALES
Dim Cmd, CmdAccess As ADODB.Command
Dim Rs, RsAccess As ADODB.Recordset
Dim strCnn, opa As String
Dim strSQL, StrSqlAccess As String
Dim param1 As Parameter, param2 As Parameter, param3 As Parameter
Dim provStr As String
'INICIALIZAMOS LA CONEXIÓN AL SQL SERVER
Set mconsql = New ADODB.Connection
strCnn = "PROVIDER=MSDASQL;dsn=CON_SQL;uid=sys;pwd="
With mconsql
.ConnectionString = strCnn
.CursorLocation = adUseClient
.Open
End With
'CREO UN OBJETO COMMAND PARA ENVIAR PARAMETROS AL PROC ALMACENADO
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = mconsql
' EL NOMBRE DEL PROCEDIMIENTO ALMACENADO
Cmd.CommandText = "user.proc"
Cmd.CommandType = adCmdStoredProc
'MI PROC ALMACENADO RECIBE 2 PARAMETROS DE ENTRADA,
' AQUI LOS CREO
Set param1 = Cmd.CreateParameter("input1", adSingle, adParamInput)
Cmd.Parameters.Append param1
Set param2 = Cmd.CreateParameter("input2", adSingle, adParamInput)
Cmd.Parameters.Append param2
' LES PONGO VALORES A LOS PARAMETROS
param1.Value = Trim(T_ANOMES.Text)
param2.Value = Trim(T_COORD.Text)
'EL PROC ME DEVUELVE UN RECORDSET QUE LO ALMACENO EN UNA TABL DE ACCESS
Set Rs = New ADODB.Recordset
Rs.CursorType = adOpenStatic
Rs.LockType = adLockReadOnly
Set RsAccess = New ADODB.Recordset
'AQUI HAGO LA LLAMADA AL PROCEDIMIENTO
Set Rs = Cmd.Execute
'DECLARACIÓN DE VARIABLES GLOBALES
Dim Cmd, CmdAccess As ADODB.Command
Dim Rs, RsAccess As ADODB.Recordset
Dim strCnn, opa As String
Dim strSQL, StrSqlAccess As String
Dim param1 As Parameter, param2 As Parameter, param3 As Parameter
Dim provStr As String
'INICIALIZAMOS LA CONEXIÓN AL SQL SERVER
Set mconsql = New ADODB.Connection
strCnn = "PROVIDER=MSDASQL;dsn=CON_SQL;uid=sys;pwd="
With mconsql
.ConnectionString = strCnn
.CursorLocation = adUseClient
.Open
End With
'CREO UN OBJETO COMMAND PARA ENVIAR PARAMETROS AL PROC ALMACENADO
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = mconsql
' EL NOMBRE DEL PROCEDIMIENTO ALMACENADO
Cmd.CommandText = "user.proc"
Cmd.CommandType = adCmdStoredProc
'MI PROC ALMACENADO RECIBE 2 PARAMETROS DE ENTRADA,
' AQUI LOS CREO
Set param1 = Cmd.CreateParameter("input1", adSingle, adParamInput)
Cmd.Parameters.Append param1
Set param2 = Cmd.CreateParameter("input2", adSingle, adParamInput)
Cmd.Parameters.Append param2
' LES PONGO VALORES A LOS PARAMETROS
param1.Value = Trim(T_ANOMES.Text)
param2.Value = Trim(T_COORD.Text)
'EL PROC ME DEVUELVE UN RECORDSET QUE LO ALMACENO EN UNA TABL DE ACCESS
Set Rs = New ADODB.Recordset
Rs.CursorType = adOpenStatic
Rs.LockType = adLockReadOnly
Set RsAccess = New ADODB.Recordset
'AQUI HAGO LA LLAMADA AL PROCEDIMIENTO
Set Rs = Cmd.Execute
Respuesta de lddelgado
1
Doris, lo que me preguntas sinceramente no te lo puedo contestar ya que no lo he hecho.
Respuesta de softgen
1
No te puedo ayudar pero si te daré información:
Esta es la página de el guille que es bastante buena en este tema:
http://guille.costasol.net/indice.asp
o entra a :
www.planetsource.com\vb
Ok.
Esta es la página de el guille que es bastante buena en este tema:
http://guille.costasol.net/indice.asp
o entra a :
www.planetsource.com\vb
Ok.