En DSN är en uppsättning instruktioner som används för att ansluta till externa databaser . DSN innehåller datastrukturer som beskriver kopplingen till databasen , till exempel namnet på databasen , plats , användarnamn och lösenord för att ansluta till databasen . Systemadministratörer kan skapa DSNs hjälp av ODBC Admin verktyg i kontrollpanelen i Windows . Programmerare kan skapa DSN datastrukturer som använder ett programmeringsspråk som Visual Basic och Windows API . Skapa DSN med VB och Windows API kräver viss kunskap om sådana begrepp , men efter att du har fått den kunskapen , det kräver bara ett par steg och rader av kod . Instruktioner
1
Öppna Visual Basic 6 .
2
Välj " Standard EXE " från det nya projektet listan . Detta kommer att placera ett huvud VB formulär på skärmen , samt visa VB Toolbox .
3
Välj " Button " från VB verktygslåda och släpp den på din huvudsakliga VB formulär . Detta kommer att placera en kommandoknapp på formuläret .
4
Gå till menyraden , klicka på " Projekt " och klicka sedan på " Lägg till modul . " Detta kommer att lägga till en standard kod modul i VB6 projekt
5
Skriv eller kopiera och klistra in följande kod : .
Option Explicit
" Konstant förklaring
Private Const ODBC_ADD_DSN = 1 ' Lägg datakälla
Private Const ODBC_CONFIG_DSN = 2 ' Configure ( edit ) datakälla
Private Const ODBC_REMOVE_DSN = 3 ' Ta bort datakälla
Private Const vbAPINull As Long = 0 & ' nollpekare
" Function Deklarera
# Om WIN32 Sedan
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
6
Gå tillbaka till din huvudsakliga VB formulär och dubbelklicka på kommandoknappen . Detta kommer att öppna upp kommandoknappen s förfarande klickhändelsen
7
Skriv eller kopiera och klistra in följande kod blocket mellan Private Sub Command_button1 och End Sub : .
# Om WIN32 Därefter
Dim intRet As Long
# Else
Dim intRet As Integer
End # Om
Dim strDriver As String
Dim strAttributes As String
" Ställ föraren att SQL Server eftersom det är vanligast .
strDriver = " SQL Server "
" Ställ in attributen avgränsas av null .
"se drivrutinsdokumentation en komplett
' lista över attribut .
strAttributes = " server = SomeServer " & Chr $ ( 0 ) katalog
strAttributes = strAttributes & " DESCRIPTION = Temp DSN " & Chr $ ( 0 ) katalog
strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ ( 0 ) katalog
strAttributes = strAttributes & "database = pubar " & Chr $ ( 0 ) katalog
" för att visa dialogrutan , använder Form1.Hwnd istället för vbAPINull .
intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _
strDriver , strAttributes ) katalog p Om intRet Sedan
MsgBox " DSN Skapad "
Else
MsgBox " Skapa Failed "
End If
Addera ditt
