A DSN er et sett med instruksjoner som brukes for å koble til eksterne databaser . DSNs inneholder datastrukturer som beskriver tilkobling til databasen , for eksempel navnet på databasen , plassering , brukernavn og passord for tilkobling til databasen. Systemadministratorer kan opprette DSNs ved hjelp av ODBC Admin verktøy i kontrollpanelet i Windows. Programmerere kan lage DSN datastrukturer ved hjelp av et programmeringsspråk som Visual Basic og Windows API. Opprette DSNs bruker VB og Windows API krever noe kunnskap om slike begreper , men etter at du har fått denne kunnskapen , det bare krever noen få skritt og linjer med kode. Instruksjoner
en

Åpen Visual Basic 6 .
2

Velg " Standard EXE " fra det nye prosjektet listen. Dette vil plassere en hoved VB skjema på skjermen , samt vise VB verktøykasse.
3

Velg " Button" fra VB verktøykasse og slipp den på din viktigste VB Form . Dette vil plassere en kommandoknapp på skjemaet .
4

Gå til den øverste menylinjen , klikk på " Project" og deretter " Legg Module ". Dette vil legge til en standard kodemodul inn VB6 prosjektet
5

skriv eller kopier og lim inn følgende kode : .

Option Explicit

' Konstant Declaration

Private Konst ODBC_ADD_DSN = 1 'Legg datakilde

Private Konst ODBC_CONFIG_DSN = 2 ' konfigurere ( edit) datakilde

Private Konst ODBC_REMOVE_DSN = 3 ' Fjern datakilde
< p > Privat Konst vbAPINull så lenge = 0 & ' NULL Pointer

' funksjon Erklærer

# Hvis WIN32 Deretter

Private Declare Function SQLConfigDataSource Lib " Odbccp32.dll " _

( ByVal hWndParent Som Long , ByVal Frequest Som Long , _

ByVal lpszDriver Som String , ByVal lpszAttributes Som String ) _
p Som Long

# Else

Private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _

( ByVal hWndParent As Integer , ByVal Frequest As Integer , ByVal _

lpszDriver Som String , ByVal lpszAttributes Som String ) As Integer

# End If
6

Gå tilbake til hovedsiden for VB Form og dobbeltklikk på kommandoknappen . Dette vil åpne opp kommandoknappen er klikkhendelsen prosedyre
7

skriv eller kopier og lim inn følgende kode blokken i mellom Private Sub Command_button1 og End Sub: .

# Hvis WIN32 Deretter

Dim intRet Som Long

# Else

Dim intRet As Integer

# End If

Dim strDriver As String
< p> Dim strAttributes Som String

'Sett sjåføren til SQL Server fordi det er mest vanlig.

strDriver = "SQL Server "

' Sett attributter avgrenset av null .

'Se driver dokumentasjon for en komplett

' liste over støttede attributter.

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

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

strAttributes = strAttributes og " DATABASE = puber " & Chr $ ( 0 )

'For å vise dialogboksen , bruker Form1.Hwnd stedet for vbAPINull .

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes )
p Hvis intRet Deretter

MsgBox " DSN Opprettet"

Else

MsgBox " Lag Failed"

End If