CtrateRemoveDNS

Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
(ByVal hwndParent As Long, ByVal fRequest As Long, _
ByVal lpszDriver As String, ByVal lpszAttributes _
As String) As Long

'Il parametro hwndParent corrisponde all'handle della finestra

'padre (es. Form1.hwnd)

'Il paramtero fRequest indica l'operazione da compiere:


ODBC_ADD_DSN 1 Aggiunge un DSN
ODBC_CONFIG_DSN 2 Modifica un DSN esistente
ODBC_REMOVE_DSN 3 Rimuove un DSN

'Il parametro lpszDriver specifica il driver da utilizzare per

'il database per esempio "SQL Server".

'Il parametro lpszAttributes definisce il collegamento DSN dove

'ogni parametro deve essere separato da un carattere NULL, per

'esempio :


lpszAttributes = "DSN=dbTemp" & Chr$(0) & "DATABASE=pubs" _
& Chr$(0) & "UID=sa" & Chr$(0) & "PWD=" & Chr$(0)

'La funzione restituisce 0 se non e' avvenuto nessun errore e

'l'operazione ha avuto successo.

'Se si utilizza il VB a 16-bit l'utilizzo della funzione

'rimangono uguali ma si dovra' dichiarare la funzione nel modo

'seguente:


Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
(ByVal hwndParent As Integer, ByVal fRequest _
As Integer, ByVal lpszDriver As String, ByVal _
lpszAttributes As String) As Integer
Usando la versione a 32-bit del VB e' possibile fare una
connessione ODBC attraverso la definizione del DSN.
E' possibile creare dinamicamente e rimuovere un
Data Source Name (DSN) direttamente da codice VB usando la
funzione SQLConfigDataSource delle API-ODBC.

Per prima cosa si dovra' dichiarare la funzione
SQLConfigDataSource nel modo seguente: