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:
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 = NothingEnd Sub
Valora esta pregunta
0