Insert a BD VFP 9.0 Desde VB.NET 2005

[Carlojas]

Compañeros Buenos Dias:
Mi inquietud es la siguiente desde mi aplicación debo realizar algunos registros a una BD de FoxPro 9.0, las funciones de conexion y registro que estoy utilizando son las siguientes:

Código VB:

Public Function ConexionFoxOledb() As Boolean
        Dim sCFox As String
        sCFox = "Provider=vfpoledb;Data Source=D:\Sipartmo\Contable\DATA\CONTABLE.DBC;Collating Sequence=machine;" & CnFox.State
        Try
            CnFox.CommandTimeout = 1000
            CnFox.Open(sCFox)
            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 - OLEDB:" & vbCrLf & ex.Message)
            Return False
            Exit Function
        End Try
    End Function
 
'Insert
  Public Function ExecuteFox(ByVal Fconsulta As String) As String
        Dim Estado As Integer
        Try
            CnFox.Execute(Fconsulta)
            Estado = 1
            Return True
        Catch ex As Exception
            MessageBox.Show("Se Ha Producido Un Error Al Ejecutar La Consulta:" & vbCrLf & ex.Message)
            Estado = 0
            Return False
            Exit Function
        End Try
        Return Estado
    End Function
 

y Lo ejecuto de esta forma:

Código VB:

rConsulta = "INSERT INTO salarti VALUES (" & CStr(MaximoSalida) & ",'" & Registro("Fecha_sal") & "'," & CStr(Registro("ValorTotal")) & ",'" & Me.sreferencia.Text & "'," & CStr(Me.scliente.Text) & ",'1','" & UserAct & "'," & CStr(Me.cmbtsalidas.SelectedIndex) & ",'','','')"
If ExecuteFox(rConsulta) > 0 Then
     MsgBox("INSERT OK")
End If
 

Obviamente invoco la función de Conexion Con FoxPro. Para extraer los datos no hay ningún problema los puedo visualizar bien, pero a la hora de registrar datos no hace absolutamente nada, es mas no indica ningún mensaje de erro.

Les agradesco si me pueden colaborar al respecto, si estoy haciendo algo mal por favor me lo indican.


Saludos.

[maycolalvarez]

has probado con executenonquery?

[Carlojas]

Pero el Objeto CnFox que utilizo no tiene esta propiedad.



Saludos y Gracias Por Tu respuesta.

[Carlojas]

Buenas tardes compañeros al fin pude solucionarlo modificando las funciones de la siguiente manera:

Código VB:

'Funcion De Conexion Con FOX - ODBC
    Public Function ConexionFoxOdbc(ByRef FOXdbConnI As OdbcConnection) As Boolean
        Dim FOXsConn As String
        FOXsConn = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=D:\Sipartmo\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 - ODBC:" & vbCrLf & ex.Message)
            Return False
            Exit Function
        End Try
    End Function
 
 
  'Función Para Realizar Insert En FoxPro
    Public Function ExecuteFox(ByVal cSQL As String) As Boolean
        Dim Estado As Boolean
        If cSQL <> vbNullString Then
            Comando = New Odbc.OdbcCommand(cSQL, FOXdbConn)
            Try
                Comando.ExecuteNonQuery()
                Estado = True
            Catch ex As Exception
                MessageBox.Show("Error Al Ejecutar La Consulta" & vbCrLf & ex.Message)
                Estado = False
            End Try
        End If
        Return Estado
    End Function
 

Saludos.