ADO y CLIPPER

02/07/2003 - 08:41 por Franci | Informe spam
Hola Grupo,
¿alguien sabe cómo puedo realizar una conexión a base de datos Clipper
con ADO?

Muchas gracias de antemano

________________
Franci Guerrero
 

Leer las respuestas

#1 Softjaen
02/07/2003 - 09:45 | Informe spam
"Franci" preguntó:

¿alguien sabe cómo puedo realizar una conexión a base de
datos Clipper con ADO?




Hola, Franci:

Nunca he programado en Clipper, pero tengo entendido que las bases de datos
son archivos dBASE. Si no estoy equivocado, prueba a utilizar el ISAM de
dBASE del motor Microsoft Jet. El siguiente ejemplo, abrirá un supuesto
archivo de «Clientes.dbf» versión dBASE III:

' Declaramos variables objeto
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Establecemos la conexión con el archivo dBASE
' especificando, solamente, la carpeta donde se
' encuentra
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\Mis documentos"

' Puedes utilizar también «dBASE IV;» y «dBASE 5.0;»,
' dependiendo de la versión del archivo
.Properties("Extended Properties") = "dBASE III;"

' Abrimos la conexión
.Open
End With

' Creamos un nuevo objeto «Recordset» para abrir el
' archivo dBASE
Set rst = New ADODB.Recordset
With rst
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "Clientes.dbf", cnn, , , adCmdTable
End With

Si quieres ver los datos en un control «DataGrid», coloca dicho control en
un formulario y ejecuta la siguiente sentencia:

Set DataGrid1.DataSource = rst

Ya tienes abierto el archivo dBASE donde podrás añadir, modificar y eliminar
los registros.

En cuanto a los campo tipo MEMO, asegúrate que los archivos DBT estén en la
misma carpeta que los archivos de base de datos DBF.

Un saludo.

Enrique Martínez
[MS MVP - VB]

Preguntas similares