Conexion a Base de Datos DBASE

[rlozano1972]

Hola:
Alguien podria decirme como me puedo conectar por medio de codigo a una base de datos DBASE dentro de VB.NET. Lo que estoy haciendo en migrar de DBASE a ACCESS.
Ya logre que en el explorador de servidor aparezca mi conexion pero al arrastrar la tabla me dice que no es posible. Tambien ya instale el proveedor de datos de ODBC .NET y nada.
Esto es lo que he intentando en codigo

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cn As New OleDb.OleDbConnection()
Dim dsClienteDB4 As New Data.DataSet()
Dim adDB4 As New OleDb.OleDbDataAdapter()
Dim con As String

con = "Provider=MSDASQL.1;Data Source=dBASE Files;Extended Properties='DSN=dBASE Files;DefaultDir=C:\Control2"
cn.ConnectionString = con
cn.Open()
End Sub


Gracias....

[Mickel]

Yo hago esto...

Dim oConn As New OleDbConnection
Dim oCmd As New OleDbCommand
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (la ruta) & ";Extended Properties=""DBASE 5.0;"";"
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = "" 'el comando
oCmd.ExecuteNonQuery()
oconn.Close()

[rlozano1972]

Muchas gracias por tu respuesta, la pondre en practica......

[Isakmtz]

En VisualStudio 2005, utilizo esta cadena de conexion:

Código:

          Dim odbcCon_Destino As New Data.Odbc.OdbcConnection()
          LstrRutaDBF_Destino = "C:\DirectorioDBF"
          odbcCon_Destino.ConnectionString = "Dsn=dBASE Files;dbq=" & LstrRutaDBF_Destino & ";defaultdir=" & LstrRutaDBF_Destino & ";driverid=533;maxbuffersize=2048;pagetimeout=5"