Een DSN is een reeks instructies voor het aansluiten van externe databases . DSN bevatten gegevensstructuren die de verbinding beschrijven de database, zoals de naam van de database , locatie , gebruikersnaam en wachtwoord voor verbinding met de database. Systeembeheerders kunnen DSN's met behulp van de ODBC Admin instrument in het configuratiescherm in Windows te creëren . Programmeurs kunnen DSN datastructuren met behulp van een programmeertaal zoals Visual Basic en de Windows API te creëren . Het creëren van DSN behulp van VB en de Windows API vereist enige kennis van dergelijke concepten , maar nadat je hebt opgedaan die kennis , het vereist alleen een paar stappen en regels code . Instructies
1 Open Visual Basic 6 . Kopen van 2 Selecteer " Standard EXE " uit het nieuwe project lijst . Dit zal een belangrijke VB -formulier op het scherm , evenals weer de VB ToolBox .
3 Selecteer " Button " van het VB ToolBox en zet het op je hoofd VB Form plaatsen. Dit zal een opdracht knop plaatsen op uw formulier .
4 Ga naar de top menubalk op "Project " en klik vervolgens op "Module toevoegen . " Dit zal een standaard code -module toe te voegen in uw VB6 project
5 Typ of kopieer en plak de volgende code : . Option Explicit
' Constant Verklaring < br Private Const ODBC_ADD_DSN > = 1 ' Add gegevensbron Private Const ODBC_CONFIG_DSN
= 2 ' Configure ( edit) gegevensbron Private Const ODBC_REMOVE_DSN
= 3 ' Verwijder gegevensbron
Private Const vbAPINull As Long = 0 & ' NULL Pointer
' Functie Declare
# Als WIN32 Private Declare Function dan
SQLConfigDataSource Lib " Odbccp32.dll " _ < br > ( ByVal hwndParent zoals lang, ByVal frequest zoals lang, _ ByVal lpszDriver
als Koord , ByVal lpszAttributes als Koord ) _
As Long
# Else < br > Private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _
( ByVal hwndParent As Integer , ByVal frequest als Geheel , lpszDriver ByVal _
als Koord , ByVal lpszAttributes als Koord ) As Integer # End
als
6 Ga terug naar uw belangrijkste VB Vorm en dubbelklik op de opdracht knop . Dit zal gebeurtenisprocedure klikken van de opdrachtknop te openen up
7 Typ of kopieer en plak de volgende code blok in tussen Private Sub Command_button1 en End Sub : .
# Als WIN32 Dan < br Dim intRet As Long
# Else > Dim intRet
als Geheel
# End If Dim strDriver
als Koord
Dim strAttributes als Koord
' Stel de bestuurder naar SQL Server , want het is het meest gebruikelijk . strDriver
= " SQL Server "
' Stel de attributen afgebakend door null .
' documentatie driver Zie voor een complete
' lijst met ondersteunde attributen . strAttributes
= " SERVER = een_server " & Chr $ ( 0 )
strAttributes = strAttributes & " DESCRIPTION = Temp DSN " & Chr $ ( 0 ) strAttributes
= strAttributes & " DSN = DSN_TEMP " & Chr $ ( 0 ) strAttributes
= strAttributes & " DATABASE = pubs " & Chr $ ( 0 )
' Om het dialoogvenster te tonen , gebruiken in plaats van vbAPINull Form1.Hwnd . intRet
= SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _ strDriver
, strAttributes ) op Als intRet dan MsgBox " DSN Gemaakt "
Else MsgBox
" Maak Failed " End
Als < br >
|
