Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   Conectar Firebird 1.5 con Visual Basic 6.0 (http://www.forosdelweb.com/f69/conectar-firebird-1-5-con-visual-basic-6-0-a-577839/)

christianfb 19/04/2008 15:45

Conectar Firebird 1.5 con Visual Basic 6.0
 
Por favor me si puedes ayudar por este medio, cual el método para conectar Firebird con VB6, porque sigo todos los pasos de conexion y me aparece un mensaje:

Administrador de controladores ODBC. No se encuentra el nombre del origen de los datos y no se especificó ningún controlador predeterminado

los pasos que sigo son:


Ahora vamos a crear las variables de ADO, para trabajar.

Public db As ADODB.Connection
Public Conexion As String

Dim usuario As String
Dim Password As String
Dim BaseD As String
Dim Driver As String

Driver = "Firebird/InterBase(r) driver"
usuario = "SYSDBA"
Password = "masterkey"
BaseD = "Factura" ' Alias de la BD

Conexion = "DRIVER=" & Driver & "; UID=" & usuario & "; PWD=" & Password & "; DBNAME=" & BaseD & ";"

Set db = New ADODB.Connection
db.Open Conexion ' conectamos la BD

y para desconectar

db.Close
Set db = Nothing

De antemano te agradezco la atención a la presenta.

Atte
Christian Benavides

mjasso 14/02/2009 00:33

Respuesta: Conectar Firebird 1.5 con Visual Basic 6.0
 
pegunta tonta pero obligatoria ¿ya instalste el odbc ?, porque eso es lo que te esta diciendo el error


Cita:

Iniciado por christianfb (Mensaje 2371028)
Por favor me si puedes ayudar por este medio, cual el método para conectar Firebird con VB6, porque sigo todos los pasos de conexion y me aparece un mensaje:

Administrador de controladores ODBC. No se encuentra el nombre del origen de los datos y no se especificó ningún controlador predeterminado

los pasos que sigo son:


Ahora vamos a crear las variables de ADO, para trabajar.

Public db As ADODB.Connection
Public Conexion As String

Dim usuario As String
Dim Password As String
Dim BaseD As String
Dim Driver As String

Driver = "Firebird/InterBase(r) driver"
usuario = "SYSDBA"
Password = "masterkey"
BaseD = "Factura" ' Alias de la BD

Conexion = "DRIVER=" & Driver & "; UID=" & usuario & "; PWD=" & Password & "; DBNAME=" & BaseD & ";"

Set db = New ADODB.Connection
db.Open Conexion ' conectamos la BD

y para desconectar

db.Close
Set db = Nothing

De antemano te agradezco la atención a la presenta.

Atte
Christian Benavides



La zona horaria es GMT -6. Ahora son las 01:39.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.