Sección de códigos , trucos y ejemplos para visual basic

37 - Crear un Dsn usando la función Api SQLConfigDataSource

Rutina en Visual basic que usa la función Api SQLConfigDataSource, para crear una Dsn de sistema o un Dsn de usuario.

Para el ejemplo seguir los siguientes pasos:

Colocar los siguientes controles en un formulario, mas o menos como la siguiente imagen:

6 controles TextBox: El Text1 es el path de la base de datos1. El text2 es la descripción del Dsn. El Text3 es el nombre del orígen de datos. El Text4 es el Driver. El Text5 es el nombre de usuario y el Text6 es la contraseña para el Dsn.

Colocar también un Command1 que ejecuta la función y crea el Dsn.

Vista previa del ejemplo que utiliza el Api SQLConfigDataSource para crear un Dsn

Código fuente del formulario

'Declaración de la función Api SQLConfigDataSource para 32 bits '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _ ByVal hwndParent As Long, _ ByVal Frequest As Long, _ ByVal LpszDriver As String, _ ByVal lpszAttributes As String) As Long '///Declaración de constantes que utiliza el Api SQLConfigDataSource ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Agrega Private Const ODBC_ADD_DSN = 1 ' Configura o edita el dsn Private Const ODBC_CONFIG_DSN = 2 ' Elimina el Dsn Private Const ODBC_REMOVE_DSN = 3 ' Puntero de tipo Null Private Const vbApiNull As Long = 0& Private Sub Command1_Click() Dim base As String ' Valor de retorno que para crear el DSN Dim intRet As Long Dim StrDriver As String Dim StrAttributes As String Dim TDriver As Integer 'Define Base base = Text1 'seleccionar tipo de Driver 'SQL Server o Microsoft Access Driver StrDriver = Text4 ' Asignamos los parámetros separador por null StrAttributes = "SERVER=SomeSerVer" & Chr$(0) StrAttributes = StrAttributes & "DESCRIPTION=DSN" & Text2 & Chr$(0) StrAttributes = StrAttributes & "DSN=DSN" & Text3 & Chr$(0) StrAttributes = StrAttributes & "DATABASE=pubs" & Chr$(0) StrAttributes = StrAttributes & "DBQ=C:\base_De_Datos.mdb" & Chr$(0) StrAttributes = StrAttributes & "UID=" & Text5 & Chr$(0) StrAttributes = StrAttributes & "PWD=" & Text6 & Chr$(0) ' Para Mostar el cuadro de diálogo, pasarle a _ SQLConfigDataSource Form1.Hwnd en vez de vbAPINULL intRet = SQLConfigDataSource(vbApiNull, ODBC_ADD_DSN, StrDriver, StrAttributes) 'Si SQLConfigDataSource devuelve un 0 hubo un error. If intRet Then 'Dsn creado correctamente MsgBox "Proceso Terminado", vbInformation, "Listo..." Else 'Error al crear el Dsn MsgBox "No se pudo crear la DSN" End If End Sub

Nota: si se desea abrir el cuadro de diálogo de windows " Administrador de orígenes de datos ODBC " para verificar o poder configurar el dsn desde aquí, se puede utilizar el shell de windows de la siguiente forma

Ejemplo:

Call Shell("rundll32.exe shell32.dll,Control_RunDLL ODBCCP32.cpl @2, 5")

Vista pervia del diálogo de windows para configurar ODBC

Recursos vb 6.0 - Enlaces Relacionados

Buscar en Recursos vb