Un DSN es un conjunto de instrucciones que se utilizan para la conexión a bases de datos externas. DSN contienen estructuras de datos que describen la conexión con la base de datos, tal como el nombre de la base de datos, ubicación, nombre de usuario y la contraseña para la conexión con la base de datos. Los administradores del sistema pueden crear DSN utilizando la herramienta Administrador de ODBC en el panel de control en Windows. Los programadores pueden crear estructuras de datos DSN utilizando un lenguaje de programación como Visual Basic y la API de Windows. La creación de DSN utilizando VB y la API de Windows requiere un cierto conocimiento de tales conceptos, pero después de que haya adquirido ese conocimiento, sino que simplemente requiere unos pocos pasos y líneas de código.
Instrucciones
1 Abra Visual Basic 6.
2 Seleccione "EXE estándar" de la nueva lista de proyectos. Esto colocará un formulario de VB principal en la pantalla, así como mostrar el cuadro de herramientas de VB.
3 Seleccionar "botón" de la VB caja de herramientas y soltarlo en su formulario de VB principal. Esto colocará un botón de comando en el formulario.
4 Ir a la barra de menú superior, haga clic en "Proyecto" y haga clic en "Agregar módulo". Esto añadirá un módulo de código estándar en su proyecto de VB6.
5 Escribe o copia y pega el siguiente código:
Option Explicit
'Constant Declaration
Private Const ODBC_ADD_DSN = 1 'Añadir fuente de datos
Private Const ODBC_CONFIG_DSN = 2 'Configurar (editar) de origen de datos
Private Const ODBC_REMOVE_DSN = 3 'Eliminar fuente de datos
Private Const vbAPINull As Long = 0 & 'puntero NULL
'Declare Function
Entonces #If WIN32
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
(ByVal hwndParent As Long, ByVal fRequest As Long, _
ByVal lpszDriver como secuencia, de ByVal como secuencia lpszAttributes) _
As Long
#Más
Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
(ByVal hwndParent como número entero, ByVal fRequest como número entero, ByVal _
lpszDriver As String, ByVal lpszAttributes como secuencia) como número entero
#Terminara si
6 Vuelve a tu formulario de VB principal y haga doble clic en el botón de comando. Esto abrirá el procedimiento de evento Click del botón de comando.
7 Escribe o copia y pega el siguiente bloque de código en el medio Private Sub Command_button1 y End Sub:
Si WIN32 Entonces
Dim intRet As Long
#Más
Dim intRet como número entero
#Terminara si
Dim como secuencia strDriver
strAttributes Dim como secuencia
'Establecer el controlador de SQL Server, ya que es más común.
strDriver = "SQL Server"
'Establecer los atributos delimitados por nula.
'Véase la documentación del controlador para una completa
'Lista de atributos soportados.
strAttributes = "server = SomeServer" & Chr $ (0)
strAttributes = strAttributes y "description = Temperatura DSN" & Chr $ (0)
strAttributes = strAttributes y "DSN = DSN_TEMP" & Chr $ (0)
strAttributes = strAttributes y "BASE DE DATOS = bares" & Chr $ (0)
'Para mostrar de diálogo, utilice Form1.hWnd en lugar de vbAPINull.
intRet = SQLConfigDataSource (vbAPINull, ODBC_ADD_DSN, _
strDriver, strAttributes)
Si intRet Entonces
MsgBox "DSN Creado"
Más
MsgBox "Crear Failed"
Terminara si