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