Sigueme en Facebook Sigueme en Twitter Sigueme en Instagram Sigueme en Youtube
JC Mouse Bolivia
Index / .Net / Visual Basic / Conexion Visual Basic a Firebird

Conexion Visual Basic a Firebird

Autor jc mouse martes, mayo 1, 2012

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.

VBNET project

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

Tags

Si te ha gustado podrías compartirlo o dejar un comentario. ¡Muchas gracias!
Autor: JC Mouse

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! :)

También Te Podría Interesar

Abre una aplicación swing java desde el navegador de forma segura

Abre una aplicación swing java desde el navegador de forma segura

Los mejores días del marco de java swing se han ido. Las aplicaciones de escritorio perdieron popularidad y todo está fo...

CUF: Código Único en Kotlin

CUF: Código Único en Kotlin

En este post implementamos en lenguaje Kotlin (lenguaje de programación de tipado estático que corre sobre la máquina vi...

Crear PopupMenu (Ventana Emergente)

Crear PopupMenu (Ventana Emergente)

En este tutorial crearemos una aplicación android que nos permitirá abrir un PopupMenu de donde podremos seleccionar una...

3 en raya java con MVC y Netbeans

3 en raya java con MVC y Netbeans

Modelo Vista Controlador (MVC) es un patrón de arquitectura de software que separa los datos de una aplicación, la inter...

Uso de Tiles para crear fondo para aplicaciones

Uso de Tiles para crear fondo para aplicaciones

Un Tile o azulejo, es una parte seccionada de una imagen, por ejemplo la imagen de abajo (chica anime) esta dividida en...

Encriptación por el método bífido

Encriptación por el método bífido

El método Bífido es un cifrado fraccionario. Es decir que cada letra viene representada por una o más letras o símbolos,...

3 comentarios en “Conexion Visual Basic a Firebird”

  1. Gaby Castañeda dice:

    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

  2. Gabriela Castañeda dice:

    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

    1. Luis Acosta dice:

      La ip la declaras asi(ejemplo):

      192.168.1.1:c:\datos microsip\basededatos.fdb

      Saludos.

Los comentarios estan cerrados

Comparte lo que sabes

Categorias

Últimas entradas

Quasar es un proyecto Open Source basado en el Framework Vue que nos permite desarrollar proyectos de todo tipo, por eje...

Continuando el post de «Introducción a Retrofit» donde realizamos una breve preparación a lo que es el uso de la librerí...

Editar un documento PDF no es tan sencillo como editar un archivo de texto por ejemplo, para editar archivos PDFs necesi...

¿Alguna vez tuviste la necesidad de hacer una captura de pantalla de una página web? Si es así, seguramente buscaste y d...

Herramientas

Generador de Enlaces a Whatsapp