Ein DSN ist ein Satz von Anweisungen für den Anschluss an externe Datenbanken verwendet. DSN enthalten Datenstrukturen , die die Verbindung zur Datenbank zu beschreiben , wie der Name der Datenbank , location , Benutzername und Kennwort für die Verbindung mit der Datenbank. Systemadministratoren können DSN mit dem ODBC- Admin -Tool in der Systemsteuerung unter Windows . Programmierer können DSN Datenstrukturen mit einer Programmiersprache wie Visual Basic und der Windows-API . Erstellen DSNs mit VB und die Windows-API erfordert einiges Wissen über solche Konzepte , aber nachdem Sie dieses Wissen gesammelt haben , bedarf es lediglich ein paar Schritte und Zeilen Code. Anleitung
1
Öffnen Sie Visual Basic 6 .
2
Wählen Sie "Standard EXE" aus dem neuen Projekt -Liste. Dadurch wird ein Haupt- VB-Formular auf dem Bildschirm , sowie die Anzeige der VB ToolBox .
3
auswählen "Button" aus dem VB Toolbox, und legen Sie es auf Ihrem Haupt- VB-Formular . Dies wird eine Befehlsschaltfläche auf das Formular platzieren.
4
Zum Anfang Menüleiste auf "Projekt" und klicken Sie dann auf " Modul hinzufügen ". Damit wird ein Standard-Code -Modul in Ihrem VB6 Projekt
5
Typ oder Kopieren und fügen Sie den folgenden Code: .
Option Explicit
' Constant Erklärung
private Const ODBC_ADD_DSN = 1 'Add Datenquelle
private Const ODBC_CONFIG_DSN = 2' Configure (edit) Datenquelle
private Const ODBC_REMOVE_DSN = 3 ' entfernen Datenquelle
< p> private Const vbAPINull As Long = 0 & ' NULL Pointer
' Declare Function
# Wenn WIN32 Dann
private Declare Function Lib SQLConfigDataSource " 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
6
zurück zu Ihrem wichtigsten VB-Formular und doppelklicken Sie auf die Befehlsschaltfläche. Dies eröffnet die Befehlsschaltfläche Click -Ereignisprozedur
7
Typ oder Kopieren und fügen Sie den folgenden Code in Block zwischen Private Sub und End Sub Command_button1 : .
# Wenn WIN32 Dann
Dim intRet As Long
# Else
Dim intRet As Integer
# End If Dim
strDriver As String
< p> Dim strAttributes As String
' Legen Sie die Treiber für SQL Server, da es am meisten verbreitet ist .
strDriver = "SQL Server"
' die Attribute begrenzten Set von null .
Liste der unterstützten Attribute ' Treiber-Dokumentation für ein komplettes
Siehe' .
strAttributes = " SERVER = einserver " & Chr $ (0)
strAttributes = strAttributes & "Description = Temp DSN " & Chr $ (0)
strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ (0)
strAttributes = strAttributes & " DATABASE = Pubs " & Chr $ (0)
'To Dialog anzuzeigen, verwenden Sie Form1.hWnd statt vbAPINull .
intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _
strDriver , strAttributes )
Wenn intRet Dann
MsgBox " DSN Erstellt "
Else MsgBox
End "Failed schaffen" Wenn
