Visual Basic - Conexion a bases de datos dbf (dbaseIII)

Life is soft - evento anual de software empresarial
   
Vista:

Conexion a bases de datos dbf (dbaseIII)

Publicado por Antonio Belando (11 intervenciones) el 29/12/2013 23:14:56
Hola a todos, agradecería información, a ser posible con un ejemplo, de como crear una conexión a bases de datos .dbf (dBaseIII).

Y como abrir una de ellas.

Lo he intentado de la siguiente forma, pero no me funciona:
MODULO:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'Conexión ADODB global a toda la aplicación
Public cn_dbf As ADODB.Connection
'Definiciones RECORDSET globales a toda la aplicación
Public rsDatos As ADODB.Recordset
 
'Abrimos conexión ODBC
Public Sub ConexionODBC()
 
    On Error GoTo error_ConexionODBC
 
    Set cb_dbf = New ADODB.Connection
    With cn_dbf
        .ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};DriverID=277;Dbq=App.Path;"
'        .ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};DriverID=277;Dbq=C:\Gesabb\313;"
        .ConnectionTimeout = 10
        .Open
        .CursorLocation = adUseClient
    End With
 
    Exit Sub
 
error_ConexionODBC:
    MsgBox Error$
End Sub
 
'Cerramos conexión ODBC
Public Sub DesconexionODBC()
 
    On Error Resume Next
 
    cn_dbf.Close
    Set cn_dbf = Nothing
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Promedios
- Permisos a usuarios
- Validar el rut