
15/10/2009, 14:36
|
 | | | Fecha de Ingreso: junio-2007 Ubicación: Shikasta
Mensajes: 1.272
Antigüedad: 17 años, 8 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'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.
__________________ "SELECT * FROM Mujeres WHERE situacion NOT IN ('CASADAS','CON HIJOS','ATORMENTADAS','CUASI-ENNOVIADAS') AND personalidad <> 'INTENSA'" |