Ver Mensaje Individual
  #4 (permalink)  
Antiguo 15/10/2009, 14:36
Avatar de Carlojas
Carlojas
 
Fecha de Ingreso: junio-2007
Ubicación: Shikasta
Mensajes: 1.272
Antigüedad: 16 años, 11 meses
Puntos: 49
Respuesta: Insert a BD VFP 9.0 Desde VB.NET 2005

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

Código VB:
Ver original
  1. 'Funcion De Conexion Con FOX - ODBC
  2.    Public Function ConexionFoxOdbc(ByRef FOXdbConnI As OdbcConnection) As Boolean
  3.         Dim FOXsConn As String
  4.         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"
  5.         Try
  6.             FOXdbConnI = New Odbc.OdbcConnection(FOXsConn)
  7.             FOXdbConnI.Open()
  8.             Return True
  9.         Catch ex As Exception
  10.             MessageBox.Show("Se ha producido un error al realizar la Conexión con la Base De Datos de FOXPRO - ODBC:" & vbCrLf & ex.Message)
  11.             Return False
  12.             Exit Function
  13.         End Try
  14.     End Function
  15.  
  16.  
  17.   'Función Para Realizar Insert En FoxPro
  18.    Public Function ExecuteFox(ByVal cSQL As String) As Boolean
  19.         Dim Estado As Boolean
  20.         If cSQL <> vbNullString Then
  21.             Comando = New Odbc.OdbcCommand(cSQL, FOXdbConn)
  22.             Try
  23.                 Comando.ExecuteNonQuery()
  24.                 Estado = True
  25.             Catch ex As Exception
  26.                 MessageBox.Show("Error Al Ejecutar La Consulta" & vbCrLf & ex.Message)
  27.                 Estado = False
  28.             End Try
  29.         End If
  30.         Return Estado
  31.     End Function

Saludos.
__________________
"SELECT * FROM Mujeres WHERE situacion NOT IN ('CASADAS','CON HIJOS','ATORMENTADAS','CUASI-ENNOVIADAS') AND personalidad <> 'INTENSA'"