Como criar e remover um DSN no Visual Basic

1. Simplicidade do cliente. O usuário não precisa se preocupar sobre como configurar um DSN, nomeando-corretamente, configurando opções etc.. Tudo isso pode ser feito dinamicamente pelo aplicativo.
2. Ele resolve muitos mecanismo JET conexão e cache de problemas de seqüência de conexão.
3. Aumenta a flexibilidade do aplicativo.

Voltar para o início

Exemplo passo a passo

1. Inicie um novo projeto.
2. Na guia Avançado da caixa de diálogo Opções no menu Ferramentas, defina um argumento de compilação condicional chamada Win32 igual a 1 se usando o Visual Basic 4.0 de 32 bits ou 0 se usando o Visual Basic 4.0 16 bits.
3. Adicione dois CommandButtons ao formulário padrão.
4. Adicione o seguinte código para a declaração geral:

         Option Explicit
   
         'Constant Declaration
         Private Const ODBC_ADD_DSN = 1        ' Add data source
         Private Const ODBC_CONFIG_DSN = 2     ' Configure (edit) data source
         Private Const ODBC_REMOVE_DSN = 3     ' Remove data source
         Private Const vbAPINull As Long = 0&  ' NULL Pointer
   
         'Function Declare
         #If WIN32 Then
   
             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
         #Else
             Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
             (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
             lpszDriver As String, ByVal lpszAttributes As String) As Integer
         #End If
   					

5. Adicionar o seguinte código ao evento Click de Command1:

         #If WIN32 Then
             Dim intRet As Long
         #Else
             Dim intRet As Integer
         #End If
         Dim strDriver As String
         Dim strAttributes As String
   
         'Set the driver to SQL Server because it is most common.
         strDriver = "SQL Server"
         'Set the attributes delimited by null.
         'See driver documentation for a complete
         'list of supported attributes.
         strAttributes = "SERVER=SomeServer" & Chr$(0)
         strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)
         strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
         strAttributes = strAttributes & "DATABASE=pubs" & Chr$(0)
         'To show dialog, use Form1.Hwnd instead of vbAPINull.
         intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
         strDriver, strAttributes)
         If intRet Then
             MsgBox "DSN Created"
         Else
             MsgBox "Create Failed"
         End If
   					

6. Adicionar o seguinte código ao evento Click do Command2:

         #If WIN32 Then
             Dim intRet As Long
         #Else
             Dim intRet As Integer
         #End If
         Dim strDriver As String
         Dim strAttributes As String
   
         'Set the driver to SQL Server because most common.
         strDriver = "SQL Server"
         'Set the attributes delimited by null.
         'See driver documentation for a complete list of attributes.
         strAttributes = "DSN=DSN_TEMP" & Chr$(0)
         'To show dialog, use Form1.Hwnd instead of vbAPINull.
         intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, _
         strDriver, strAttributes)
         If intRet Then
             MsgBox "DSN Deleted"
         Else
             MsgBox "Delete Failed"
         End If
   					

7. Execute o projeto.
8. Clique em Command1 para adicionar um DSN chamado DSN_TEMP.
9. Clique em Command2 para remover o DSN chamado DSN_TEMP.

Voltar para o início