En DSN er et sæt af instruktioner , der anvendes til tilslutning til eksterne databaser . DSNs indeholder datastrukturer , der beskriver forbindelsen til databasen , såsom navnet på den database , placering , brugernavn og adgangskode til at forbinde med databasen. Systemadministratorer kan oprette DSNs ved hjælp af ODBC Admin værktøjet i kontrolpanelet i Windows. Programmører kan oprette DSN datastrukturer ved hjælp af en programmeringssprog som Visual Basic og Windows API. Oprettelse DSNs bruger VB og Windows API kræver en vis viden om sådanne begreber , men efter du har fået denne viden , er det simpelthen kræver et par trin og linjer af kode. Instruktioner
1

Open Visual Basic 6 .
2

Vælg "Standard EXE " fra det nye projekt listen. Dette vil placere en primær VB formular på skærmen , samt vise VB ToolBox .
3

Vælg " Button " fra VB ToolBox og slip den på din primære VB Form . Dette vil placere en kommandoknap på din formular .
4

Gå til den øverste menubjælke , klik på " Project" og derefter klikke på "Tilføj Module ". Dette vil tilføje en standard kode modul i VB6 projekt
5

Skriv eller kopiere og indsætte følgende kode : .

Option Explicit

' Konstant erklæring < br >

Private Const ODBC_ADD_DSN = 1 ' Add datakilde

Private Const ODBC_CONFIG_DSN = 2' sætter ( edit ) datakilde

Private Const ODBC_REMOVE_DSN = 3 'Fjern datakilde
< p > Privat Const vbAPINull As Long = 0 & ' NULL Pointer

' Function Erklær

# Hvis WIN32 Så

Private Erklær Funktion SQLConfigDataSource Lib " Odbccp32.dll " _ < br >

( ByVal hwndParent As Long , ByVal fRequest As Long , _

ByVal lpszDriver As String , ByVal lpszAttributes As String ) _

As Long

# Else < br >

Private Erklær Funktion 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å tilbage til din primære VB Form og dobbeltklik på kommando -knappen. Dette vil åbne op kommandoen knappens klik begivenheden procedure
7

Skriv eller kopiere og indsætte følgende kode blokken mellem Private Sub Command_button1 og End Sub : .

# Hvis WIN32 Derefter < br >

Dim intRet As Long

# Else

Dim intRet As Integer

# End If

Dim strDriver As String
< p> Dim strAttributes As String

' Sæt chaufføren til SQL Server , fordi det er mest almindelig.

strDriver = " SQL Server "

' Indstil attributterne afgrænset af null .

"se driver dokumentationen for en komplet

' liste over understøttede attributter.

strAttributes =" SERVER = SomeServer "& Chr $ (0)
< p > strAttributes = strAttributes & " DESCRIPTION = Temp DSN " & Chr $ (0)

strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ (0)

strAttributes = strAttributes & " DATABASE = pubs " & Chr $ (0)

' for at vise dialogen , brug Form1.Hwnd stedet for vbAPINull .

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes )
p Hvis intRet Så

MsgBox " DSN Oprettet"

Else

MsgBox "Opret Failed "

End If < br >