Como criar e remover um DSN no Visual Basic

1. Simplicidade do cliente. O utilizador não é necessário preocupar em configurar um DSN de nomenclatura correctamente, configurar opções, etc.. Tudo que isto pode ser feito dinamicamente pela aplicação.
2. Este procedimento resolve muitos ligação do motor JET e cadeia cache problemas de ligação.
3. Aumenta a flexibilidade da aplicação.

Voltar ao topo

Exemplo passo a passo

1. Inicie um novo projecto.
2. No separador Avançadas da caixa de diálogo Opções no menu Ferramentas, defina um argumento de compilação condicional denominado Win32 igual a 1 se utilizar o Visual Basic 4.0 32-bit ou 0 se utilizar o Visual Basic 4.0 16-bit.
3. Adicione dois CommandButtons ao formulário predefinido.
4. Adicione o seguinte código ao General Declarations:

         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. Adicione o seguinte código para o evento clicar 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. Adicione o seguinte código para o evento clicar de 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 projecto.
8. Clique em Command1 para adicionar um DSN chamado DSN_TEMP.
9. Clique em Command2 para remover o DSN chamado DSN_TEMP.

Voltar ao topo