Ako vytvoriť DSN pomocou API kódex

DSN je sada inštrukcií používaných pre pripojenie k externým databázam . DSN obsahujú dátové štruktúry , ktoré popisujú pripojenie k databáze , ako je názov databázy , umiestnenie , užívateľské meno a heslo pre pripojenie k databáze . Správcovia systému môžu vytvoriť DSN pomocou nástroja Správca ODBC v ovládacom paneli systému Windows . Programátori môžu vytvoriť DSN dátové štruktúry pomocou programovací jazyk , ako je Visual Basic a Windows API . Vytvorenie DSN pomocou VB a Windows API vyžaduje určité znalosti týchto pojmov , ale potom, čo ste získali , že vedomosti , to jednoducho vyžaduje niekoľko krokov a riadkov kódu . Pokyny dovolená 1

Otvorte Visual Basic 6.
2

zvoľte " Štandardné EXE " z nového zoznamu projektov . To bude klásť hlavný VB formulár na obrazovke , rovnako ako zobrazenie VB ToolBox .
3

zvoľte " Button " z VB ToolBox a umiestnite ho na svoje hlavné VB formulár . To bude umiestniť príkazové tlačidlo do formulára .
4

Prejsť na hornej lište , kliknite na " projekt " a potom kliknite na tlačidlo " Pridať modul . " To bude pridať štandardné modulu kódu do VB6 projekt
5

Zadajte alebo skopírujte a vložte nasledujúci kód : . Konštantná deklarácia

Option Explicit

'

Private Const ODBC_ADD_DSN = 1 ' Pridať zdroj dát

Private Const ODBC_CONFIG_DSN = 2 ' Configure ( edit ) zdroje dát

Private Const ODBC_REMOVE_DSN = 3 ' Odstrániť zdroj dát

Private Const vbAPINull As Long = 0 & ' NULL Pointer

" Funkcia Declare

# Ak WIN32 Potom

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

ísť späť na hlavnú VB formulár a dvakrát kliknite na príkazové tlačidlo . Tým sa otvorí , kliknite na tlačidlo udalostnej procedúru na príkazové tlačidlo
7

Zadajte alebo skopírujte a vložte nasledujúci blok kódu medzi Private Sub Command_button1 a End Sub : .

# Ak WIN32 Then

Dim intRet As Long

# Else

Dim intRet As Integer

# End If

Dim strDriver As String

Dim strAttributes As String

'Nastavte ovládač SQL Server , pretože to je najčastejší .

strDriver = " SQL Server "

' Nastavte atribúty oddelené null .

" pozri dokumentácia ovládača kompletnú

" Zoznam podporovaných atribútov .

strAttributes = " SERVER = SomeServer " & Chr $ ( 0 )

strAttributes = strAttributes & " DESCRIPTION = Temp DSN " & Chr $ ( 0 )

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

strAttributes = strAttributes & " DATABÁZA = pubs " & Chr $ ( 0 )

" Ak chcete zobraziť dialógové okno , pomocou Form1.Hwnd miesto vbAPINull .

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes )

Ak intRet Potom

MsgBox " DSN Vytvorené "

Else

MsgBox " Môžete sa nepodarilo "

End If

• Predchádzajúca strana: Ako Oddeľte reťazec v jazyku VBA 
• Ďalšia strana: Ako používať SearchEx metódy vo VB6