Buenas tardes compañeros mi inquietud es la siguiente:
Estoy conectandome a una BD de VFP 9.0 desde mi aplicación en VB.NET ya pude realizar la conexión a la misma y ejecutar algunas consultas, ahora tengo un SP en VFP y deseo ejecutarlo desde mi aplicación, pero no tengo idea como sería la forma de hacerlo, mi código de conexión y consultas es el siguiente:
De esta manera realizo consultas pero necesito ejecutar el SP con parametros que obtengo desde mi aplicación VB.NET
Agradesco sus comentarios y observaciones al respecto.
Gracias.
Estoy conectandome a una BD de VFP 9.0 desde mi aplicación en VB.NET ya pude realizar la conexión a la misma y ejecutar algunas consultas, ahora tengo un SP en VFP y deseo ejecutarlo desde mi aplicación, pero no tengo idea como sería la forma de hacerlo, mi código de conexión y consultas es el siguiente:
Código vb:
Ver original
'Funcion de Conexion con FOX Public Function ConexionFOX(ByRef FOXdbConnI As OdbcConnection) As Boolean Dim FOXsConn As String FOXsConn = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=I:\VFP\CONTABLE\DATA\CONTABLE.DBC;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=YES" Try FOXdbConnI = New Odbc.OdbcConnection(FOXsConn) FOXdbConnI.Open() Return True Catch ex As Exception MessageBox.Show("Se ha producido un error al realizar la Conexión con la Base De Datos de FOXPRO:" & vbCrLf & ex.Message) Return False Exit Function End Try End Function
Código vb:
Ver original
'Consulta a FOX Public Sub ConsultaFox(ByVal FOXsSelect As String, ByRef FOXdt As DataTable) Dim FOXda As OdbcDataAdapter Dim FOXds As DataSet FOXdt = New DataTable FOXds = New DataSet Try FOXda = New Odbc.OdbcDataAdapter(FOXsSelect, FOXdbConn) FOXda.Fill(FOXds) FOXdt = FOXds.Tables(0) Catch ex As Exception MessageBox.Show("Error al abrir la base de datos" & vbCrLf & ex.Message) End Try End Sub
De esta manera realizo consultas pero necesito ejecutar el SP con parametros que obtengo desde mi aplicación VB.NET
Agradesco sus comentarios y observaciones al respecto.
Gracias.