Un DSN est un ensemble d'instructions utilisés pour la connexion aux bases de données externes. DSN contiennent des structures de données qui décrivent la connexion à la base de données , telles que le nom de la base de données , le lieu, nom d'utilisateur et mot de passe pour la connexion avec la base de données . Les administrateurs système peuvent créer des DSN en utilisant l'outil ODBC Admin dans le panneau de contrôle de Windows. Les programmeurs peuvent créer des structures de données DSN en utilisant un langage de programmation comme Visual Basic et l'API Windows. Créer DSN en utilisant VB et l'API Windows nécessite une certaine connaissance de ces concepts , mais une fois que vous avez acquis cette connaissance , il faut simplement quelques étapes et de lignes de code . Instructions
1
Ouvrez Visual Basic 6 .
2
Sélectionnez " EXE standard " de la nouvelle liste de projets . Cela placera un formulaire VB principal sur l'écran, ainsi que l'affichage de la boîte à outils VB .
3
Sélectionnez "Button" du VB boîte à outils et déposez-le sur votre principale formulaire VB . Cela permet de placer un bouton de commande sur le formulaire.
4
Allez dans la barre de menu du haut , cliquez sur "Project" puis cliquez sur " Ajouter un module . " Cela va ajouter un module de code standard dans votre projet VB6
5 Type de
ou copier et coller le code suivant : .
Option Explicit
«Déclaration Constant < br >
Private Const ODBC_ADD_DSN = 1 "Ajouter la source de données
Private Const ODBC_CONFIG_DSN = 2 ' données configure ( edit ) Source
Private Const ODBC_REMOVE_DSN = 3' éliminer la source des données
< p> vbAPINull Private Const en fonction long = 0 & 'NULL Pointer
«déclarer
# Si WIN32 Puis
Private Declare Function SQLConfigDataSource Lib" odbccp32.dll "_ < br >
( hwndParent ByVal As Long , ByVal fRequest As Long , ByVal _
lpszDriver comme corde, lpszAttributes ByVal As String ) _
As Long
# Else
Private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _
( hwndParent ByVal As Integer , ByVal fRequest As Integer , ByVal _
lpszDriver comme corde, lpszAttributes ByVal As String ) As Integer
# End If
6
Retour à votre principale formulaire VB et double- cliquez sur le bouton de commande. Cela permettra d'ouvrir clic la procédure d'événement du bouton de commande
7 Type de
ou copier et coller le bloc de code suivant entre les deux sous Command_button1 et End Private Sub : .
# Si WIN32 Puis
intRet As long
# Else
intRet As Integer
# End If
strDriver Dim As String
< p> strAttributes Dim As String
« définir le pilote de SQL Server, car il est plus fréquent .
strDriver =" SQL Server "
' Définir les attributs délimité par null .
' Voir la documentation du pilote pour une complète
«liste des attributs pris en charge .
strAttributes = " server = someserver "& Chr $ (0)
strAttributes = strAttributes et "Description = Temp DSN " & Chr $ (0)
strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ (0)
strAttributes = strAttributes et «base de données = pubs " & Chr $ (0)
» pour montrer dialogue , utilisez Form1.Hwnd au lieu de vbAPINull .
intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _
strDriver , strAttributes )
Si intRet Puis
MsgBox " DSN créé "
Else
MsgBox "Créer échoué"
End If
