llamar storeprocedure hola a todos tengo un storeprocedure en SQL S 2000 y tengo visual basic 2005, tengo el siguiente codigo que en teoria manda llamar bien otro storeprocedure, pero al intentar llamar de otra base no manda error pero no lo ejecuta, ya verifique la conexión y está esta bien.
Les pongo el código por que en verdad no encuentro por donde este el error.
Option Explicit On
Imports System.Data.SqlClient
Public Class SP_DifNomina
Private oConn As New Odbc.OdbcConnection
Private SQL_Sicoss As SqlConnection
Private rdo As New DataAccessRDOClass.rClass_DataAccessRDO
Private Sub SP_DifNomina_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txt_Año.Text = Now.Year.ToString
txt_PeriodoNom.Text = 1
txt_CalendarioNom.Text = (Now.Month * 2) - 1
txt_TipoNomina.Text = 1
End Sub
Private Sub Procesar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Procesar.Click
Procesar.Enabled = False
Me.ControlBox = False
Dim ds As New DataTable
Dim dbCommand As New Data.Odbc.OdbcCommand
OpenConnection()
dbCommand.Connection = oConn
dbCommand.CommandTimeout = 0
Try
'OpenConnection()
dbCommand.CommandType = CommandType.StoredProcedure
dbCommand.CommandText = "{call DiferenciasNomina(?,?,?,?)}"
dbCommand.Parameters.Add("@Ano", Odbc.OdbcType.Int).Value = txt_Año.Text
dbCommand.Parameters.Add("@Periodo_ID", Odbc.OdbcType.Int).Value = txt_PeriodoNom.Text
dbCommand.Parameters.Add("@Periodo", Odbc.OdbcType.Int).Value = txt_CalendarioNom.Text
dbCommand.Parameters.Add("@TipoNomina_id", Odbc.OdbcType.Int).Value = txt_TipoNomina.Text
txt_Año.Text = ""
txt_PeriodoNom.Text = ""
txt_CalendarioNom.Text = ""
txt_TipoNomina.Text = ""
Dim numCalc As Integer = dbCommand.ExecuteNonQuery
MsgBox("Diferencia de Nómina Calculada. " & vbCrLf & _
"Calculados " & numCalc & " empleados.", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
End Try
CloseConnection()
Procesar.Enabled = True
Me.ControlBox = True
End Sub
Private Sub OpenConnection()
oConn.ConnectionString = "dsn=SandosGestion;uid=" & txt_User.Text & ";pwd=" & txt_pwd.Text & ""
oConn.Open()
End Sub
Private Sub CloseConnection()
If oConn.State = Data.ConnectionState.Open Then oConn.Close()
oConn = Nothing
End Sub
End Class
