Un DSN è un insieme di istruzioni utilizzate per la connessione a database esterni. DSNs contengono strutture di dati che descrivono la connessione al database, come il nome del database, posizione, nome utente e password per la connessione con il database. Gli amministratori di sistema possono creare DSN utilizzando lo strumento Amministratore ODBC nel Pannello di controllo su Windows. I programmatori possono creare strutture di dati DSN utilizzando un linguaggio di programmazione come Visual Basic e l'API di Windows. Creazione di DSN utilizzando VB e l'API di Windows richiede una certa conoscenza di tali concetti, ma dopo aver acquisito questa conoscenza, richiede semplicemente un paio di passi e linee di codice.

istruzione

1 Aprire Visual Basic 6.

2 Selezionare "EXE standard" dal nuovo elenco di progetti. Questo metterà un modulo VB principale sullo schermo, così come visualizzare il VB Casella degli strumenti.

3 Selezionare "Button" dal VB Casella degli strumenti e rilasciarlo nel form VB principale. Questo metterà un pulsante di comando nel form.

4 Vai alla barra dei menu in alto, cliccare su "Progetto" e quindi fare clic su "Aggiungi modulo". In questo modo aggiungere un modulo di codice standard nel progetto VB6.

5 Digitare o copiare e incollare il seguente codice:

Option Explicit

'Constant Declaration

Private Const ODBC_ADD_DSN = 1 'Aggiungi origine dati

Private Const ODBC_CONFIG_DSN = 2 'Configure (modifica) La fonte dei dati

Private Const ODBC_REMOVE_DSN = 3 'eliminare la sorgente dei dati

Private Const vbAPINull As Long = 0 & 'puntatore NULL

'Declare Function

#If WIN32 Poi

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _

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

ByVal lpszDriver As String, ByVal lpszAttributes As String) _

As Long

#Altro

Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _

(ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _

lpszDriver As String, ByVal lpszAttributes come stringa) come Integer

#Finisci se

6 Torna al form VB principale e fare doppio clic sul pulsante di comando. Si aprirà routine evento clic del pulsante di comando.

7 Digitare o copiare e incollare il seguente blocco di codice tra Private Sub Command_button1 e End Sub:

Se WIN32 Poi

Dim intRet As Long

#Altro

Dim intRet As Integer

#Finisci se

Dim strDriver As String

strAttributes Dim come stringa

'Impostare il driver per SQL Server, perché è più comune.

strDriver = "SQL Server"

'Impostare gli attributi delimitate da nulla.

'Vedere la documentazione del driver per un completo

'Elenco degli attributi supportati.

strAttributes = "server = UnServer" & Chr $ (0)

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

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

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

'Per mostrare finestra di dialogo, utilizzare Form1.hWnd invece di vbAPINull.

intRet = SQLConfigDataSource (vbAPINull, ODBC_ADD_DSN, _

strDriver, strAttributes)

Se intRet Poi

MsgBox "DSN Creato"

Altro

MsgBox "Crea riuscita"

Finisci se