En este tutorial nos conectaremos a una base de datos de Firebird utilizando el lenguaje de Visual Basic, el proyecto se realiza sin interfaz de usuario para simplificar las cosas, el IDE que se utiliza es VS2008.
¿Que necesitamos?
– Visual Studio 2008 o superior
– Firebird última versión
– Firebird ADO.NET Data Provider.
– Conocimientos básicos de Visual Basic
– Una base de datos de firebird creada en nuestra PC
Comencemos.
1. Lo primero que debemos tener es una base de datos creada en nuestra PC, si no sabes como crear una pasate por este otro tutorial [Firebird iSQL], la base de datos se llamara TEST.FDB y solo contendra una tabla la cual es
01 CREATE TABLE persona( 02 id varchar(4) primary key, 03 nombre varchar(60) 04 );
Añade también algunos datos.
2. En VS crea un nuevo proyecto en consola y añade una clase «dbconexion.vb«, ahora debes añadir una referencia al conector de firebird, para eso, clic derecho sobre el proyecto y elige la opción «Add Reference…«, despues elige la pestaña «Browse» y busca en disco la DLL FirebirdSql.Data.FirebirdClient.dll que descargaste.
3. En la clase dbconexion.vb escribe el siguiente código:
01 Imports FirebirdSql.Data.FirebirdClient 02 03 Public Class dbconexion 04 05 Dim Conexion As New FbConnection 06 Dim fb_string As FbConnectionStringBuilder = New FbConnectionStringBuilder 07 08 Public Sub conectar() 09 ' Se forma la cadena de conexion 10 fb_string.ServerType = FbServerType.Default 11 fb_string.UserID = "sysdba" 12 fb_string.Password = "masterkey" 13 fb_string.Dialect = 3 14 fb_string.Database = "e:\firebird_db\test.fdb" 15 fb_string.Pooling = False 16 ' se realiza la conexion 17 Try 18 Conexion.ConnectionString = fb_string.ToString 19 Conexion.Open() 20 21 If Conexion.State = ConnectionState.Open Then 22 Console.WriteLine("Conexión a [" & fb_string.Database & "] establecida") 23 End If 24 25 Catch err As FbException 26 Console.WriteLine("Error: No se pudo realizar la conexión a [" & fb_string.Database & "]") 27 Console.WriteLine(err.Message) 28 End Try 29 30 End Sub 31 32 Public Sub Desconectar() 33 If (ConnectionState.Open) Then 34 Conexion.Close() 35 Console.WriteLine("Conexión a [" & fb_string.Database & "] cerrada") 36 End If 37 End Sub 38 39 Public Sub Consulta() 40 Dim sql As String = "SELECT * FROM persona" 41 Dim cmd As New FbCommand(sql, Conexion) 42 Dim fbdatareader As FbDataReader = cmd.ExecuteReader 43 44 While (fbdatareader.Read) 45 Dim id As String = fbdatareader.GetString(0) 46 Dim nombre As String = fbdatareader.GetString(1) 47 Console.WriteLine("" & id & " | " & nombre) 48 End While 49 50 End Sub 51 End Class
4. Para terminar en Module1.vb implementamos nuestra clase de conexion de la siguiente manera:
01 Module Module1 02 03 Sub Main() 04 05 Dim dbc As New dbconexion 06 dbc.conectar() 07 dbc.Consulta() 08 Console.WriteLine("Presione una tecla para terminar") 09 Console.ReadKey() 10 dbc.Desconectar() 11 12 End Sub 13 14 End Module
Ejecuta el proyecto y debes tener algo parecido a esto:
Conexión a [e:\firebird_db\test.fdb] establecida 6655 | Charly Manson 9876 | Marilin Garcia 7621 | Enanitos Rojos Presione una tecla para terminar
FIN
Yo soy yo :) JC Mouse, Soy orgullosamente boliviano soy fundador y CEO de la web jc-Mouse.net uno de las pocas web en emprendimiento y tecnología en Bolivia.
Toda la información que encuentres en este sitio es y sera completamente gratis siempre, puedes copiar, descargar y re-publicar si así lo deseas en otros blogs o sitios web, solo te pido a cambio que dejes una referencia a esta web. Esto nos ayuda a crecer y seguir aportando. Bye
Enjoy! :)
En este tutorial, veremos un poco más de lo que son las texturas en libGDX y dos maneras de añadirlas a nuestros juegos,...
En este tutorial crearemos un componente swing para java que podremos usar en cualquiera de nuestros proyectos, el compo...
Video Tutorial que muestra una de las maneras de utilizar y mostrar imagenes en iReport, pasando estas como parametros d...
Para terminar el tutorial, debemos unir tanto la VISTA como el MODELO y para eso esta el CONTROLADOR. o.O El controlador...
Problema: Se extrae registros de una base de datos y se desea mostrar estos en un control JTable utilizando un DefaultTa...
En este tutorial veremos lo fácil que es personalizar las pestañas de un JTabbedPane con unas cuantas lineas de código y...
Los comentarios estan cerrados
Si trabajas con redes sociales (RRSS) a continuación te muestro tres herramintas gratuitas que te ayudaran a la hora de...
Por lo general se usan transacciones a nivel base de datos y posteriormente se llaman estos a través de procedimientos a...
En este post, aprenderemos como conectar Visual Basic 6 con SQL Server, abrir una tabla, leer su contenido y mostrar est...
Lo que veremos en este post es la configuración del driver para PHP de SQL Server que ha creado Microsoft el cual permit...
Hola, me fue de gran utilidad este Post, pero quisiera saber de que manera puedo llenar un CheckListBox con los registros obtenidos de la Consulta, si me los muestra en la Ventana de MS-Dos pero no logro que los muestre en el CheckListBox ya que el usuario debera seleccionar en base a los registros seleccionado se armara otra consulta
Hola, muchas gracias y FELICIDADES!!! por esta información me ha sido de gran utilidad, solo tengo una duda, le agregamos el parámetro Datasource ( con la finalidad de especificar el nombre del equipo/servidor que tiene la Base de Datos de Firebird ):
fb_string.UserID = «SYSDBA»
fb_string.Password = «masterkey»
fb_string.Database = «e:\firebird_db\test.fdb»
fb_string.DataSource = localhost —>>> ESTE SE LO AGREGAMOS
fb_string.Pooling = False
Pero si le ponemos la IP no responde, por favor podrías ayudarnos a saber que parámetro es el que debemos de indicarle para que la conexión sea por la IP mas no por el nombre del servidor.
Tambien no se si se pueda brincar el Firewall ya que si lo tiene activo marca un error
La aplicacion la desarrollamos en Visual Studio 2008.
De antemano agradezco mucho el apoyo.
Saludos Cordiales desde México
Gabriela Castañeda
La ip la declaras asi(ejemplo):
192.168.1.1:c:\datos microsip\basededatos.fdb
Saludos.