FoxPress – Junio 2005

 

Accede a FireBird por OLE DB

 

 

                       Por Mikel Chavarria
 

Hay muchos sistemas de acceder a datos de una Base de Datos. Quizás el más tradicional es ODBC pero también se puede acceder por los API’s propios de la Base de Datos y por OLE DB.

 

Esta última tecnología patrocinada por Microsoft está ultimamente siendo superada por los Drivers .NET pero hasta que se incluyan en los sitemas operativos todavía le queda un poco.

 

De FireBird ya se ha hablado bastantes veces y en su favor tiene ser una de las Bases de Datos Open Source emergentes que más fuerza van tomando.

 

Un Driver OLE DB puede ser el de Zstyle Group que te lo puedes bajar sin cargo desde http://www.zstyle.dp.ua/eng/iboledb_prod.htm

 

Instala el Driver

 

1.- Baja el fichero anterior.

 

2.- Descomprime el fichero IBOLE.DLL y copialo al directorio de Windows.

 

3.- A continuación debes registrarlo con regsrv32.exe o con el fichero bat que viene en el zip que te has bajado de la web y que se llama ibolereg.bat

 

Para trabajar con el driver OLEDB tenemos previamente que crearnos un origen de datos OLEDB y para eso tenemos que actuar de una forma un poco rocambolesca.

 

   1.- Create un acceso directo en el monitor a un fichero de texto llamado: mirogen.txt

   2.- Cambiale la extension por .UDL y verás que cambia el icono asociado.

   3.- Al hacer click sobre esa extensión verás la imagen que se muestra a continuación.

 

 

 

 

A continuación, el código para conectarnos sería:

 

close all

 

CLEAR

sConnStr="Provider=IBOLE.Provider.v4;Password=masterkey;Persist Security Info=True;Data Source=c:\Archivos de Programa\Firebird\Firebird_1_5\examples\Employee.fdb"

 

*Create and Open Connection Object

OBJdbConn = CreateObject("ADODB.Connection")

OBJdbConn.Open(sConnStr)

 

sql = "Select * From Employee"

 

rs = OBJdbConn.Execute(sql)

For i = 0 to RS.Fields.Count - 1

 

    ? rs.Fields.Item(1).VALUE + " " + rs.Fields.Item(2).VALUE

      rs.MOVENEXT

endFor

 

rs.Close

OBJdbConn.Close

 

Como no es el objetivo del artículo introducirnos por extenso en OLE DB sino unicamente su uso con FireBird. Nos quedamos con esto.

 

FoxPress – Junio de 2005