Un DSN è un insieme di istruzioni utilizzate per la connessione a database esterni . DSNs contengono strutture dati che descrivono la connessione al database, ad esempio 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 di amministrazione ODBC nel pannello di controllo in Windows . I programmatori possono creare strutture di dati DSN utilizzando un linguaggio di programmazione come Visual Basic e l'API di Windows . Creazione DSN utilizzando VB e l'API di Windows richiede qualche conoscenza di tali concetti , ma dopo che hai acquisito questa conoscenza , richiede semplicemente un paio di passi e righe di codice . Istruzioni
1

Aprire Visual Basic 6 .
2

Seleziona " EXE standard " dal nuovo elenco di progetti . Questo metterà un modulo principale VB sullo schermo , così come visualizzare la casella degli strumenti di VB .
3

Seleziona " Button " dal VB Toolbox a nel form VB principale. Questo metterà un pulsante di comando nel form.
4

Vai alla barra dei menu in alto , fare clic su "Progetto" e quindi fare clic su " Aggiungi modulo ". Verrà aggiunto un modulo di codice standard nel progetto VB6
5 Tipo

o copiare e incollare il seguente codice: .

Option Explicit

' dichiarazione di costante < br

privato Const ODBC_ADD_DSN > = 1 ' Aggiungi origine dati

privato ODBC_CONFIG_DSN Const = 2' Configurazione di dati ( edit) fonte

privato Const ODBC_REMOVE_DSN = 3 ' eliminare la sorgente dei dati

private Const vbAPINull As Long = 0 & ' puntatore NULL

' Declare Function

# Se WIN32 Poi

private Declare Function SQLConfigDataSource Lib " Odbccp32.dll " _

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

lpszDriver come stringa, lpszAttributes ByVal come stringa ) _

As Long

# Else

private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _

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

lpszDriver come stringa, lpszAttributes ByVal come stringa ) As Integer

# End If
6

Torna al modulo VB principale e fare doppio clic sul pulsante di comando . Questo aprirà routine evento Click del pulsante di comando
7 Tipo

o copiare e incollare il seguente blocco di codice tra Command_button1 Private Sub ed End Sub : .

# Se WIN32 Poi

Dim intRet As Long

# Else

Dim intRet As Integer

# End If

Dim strDriver Come
String

Dim strAttributes As String

' impostare il driver di SQL Server , perché è più comune .

strDriver = " SQL Server "

' impostare gli attributi delimitato da nulla .

Vedere documentazione del driver per una completa

' elenco degli attributi supportati .

strAttributes = "server = unserver " & Chr $ ( 0 ) per

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

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

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

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

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes ) per

intRet Poi

MsgBox " Creazione DSN "

Else

MsgBox " Creazione non riuscita "

End If

• Come separare una stringa in VBA 
• Come utilizzare il metodo SearchEx in VB6