Problema Coneccion a BD Visual FOX PRO
Batusai240
11 de Mayo del 2005
hola buenas tengo un problema, TEngo una aplicacion creada en Visual basic.NET 2005 y necesito conectar una base de DAtos VISUAL FOX PRO a esta alicacion pero tiene que ser mediante codigo y la verdad es que he buscado informacion acerca de est tema y en todos lados hay ayuda pero sobre conectar desde visualbasic.net a una base de datos ACCES utilizando el OLEDB mas en este caso se tiene que utilizar el control ODBC y no hay informacion acerca e este tema por lo que se me hace imposible hacer mi proyeto. POR favor podrian ayudarme
DIOS LOS BENDIGA
BATUSAI240
DIOS LOS BENDIGA
BATUSAI240
sgomez
11 de Mayo del 2005
En la solucion agregáte una referencia COM a MICROSOFT ACTIVEX DATA OBJECT LIBRARY y después podés usar este ejemplo:
Public Function AbrirTablaDBF(Tabla As String) As ADODB.Recordset
Dim conexion As New ADODB.Connection
Dim recordsetlocal As New ADODB.Recordset
conexion.Open ConnectionString:="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Tabla & ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
recordsetlocal.Open "select * from " & Tabla, conexion, adOpenKeyset, adLockPessimistic
Set AbrirTablaDBF = recordsetlocal
End Function
Public Function AbrirTablaDBF(Tabla As String) As ADODB.Recordset
Dim conexion As New ADODB.Connection
Dim recordsetlocal As New ADODB.Recordset
conexion.Open ConnectionString:="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Tabla & ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
recordsetlocal.Open "select * from " & Tabla, conexion, adOpenKeyset, adLockPessimistic
Set AbrirTablaDBF = recordsetlocal
End Function