• Home
 · 
• Graphics
 · 
• Create / Delete DSN

Create / Delete DSN

Create / Delete DSN

API Declarations


' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 25/11/98
' * Time : 15:07
' * Module Name : DSN_Module
' * Module Filename : DSN.bas
' **********************************************************************
' * Comments : Some functions for DSN
' *
' *
' **********************************************************************

Option Explicit

'Declarations Used to Generate DSN
Private Const ODBC_ADD_DSN = 1 ' Add data source
Private Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3 ' Remove data source
Private Const vbAPINull As Long = 0& ' NULL Pointer

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





Rate Create / Delete DSN

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : [email protected]
   ' * Date             : 25/11/98
   ' * Time             : 15:07
   ' * Module Name      : DSN_Module
   ' * Module Filename  : DSN.bas
   ' * Procedure Name   : CreateDSN
   ' * Parameters       :
   ' *                    sDSN As String
   ' **********************************************************************
   ' * Comments         : Create a DSN
   ' *
   ' *
   ' **********************************************************************

   Dim nRet                As Long
   Dim sDriver             As String
   Dim sAttributes         As String

   sDriver = "Oracle73 Ver 2.5"
   sAttributes = "Server=pressdb.world" & Chr$(0)
   sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)
   sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
   sAttributes = sAttributes & "DATABASE=DB" & Chr$(0)
   sAttributes = sAttributes & "UID=Waty" & Chr$(0)
   sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)

   DBEngine.RegisterDatabase "kiki", "Oracle73 Ver 2.5", True, sAttributes

   'nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, sDriver, sAttributes)

End Sub

Public Sub DeleteDSN(sDSN As String)
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : [email protected]
   ' * Date             : 25/11/98
   ' * Time             : 15:08
   ' * Module Name      : DSN_Module
   ' * Module Filename  : DSN.bas
   ' * Procedure Name   : DeleteDSN
   ' * Parameters       :
   ' *                    sDSN As String
   ' **********************************************************************
   ' * Comments         : Delete a DSN
   ' *
   ' *
   ' **********************************************************************


   Dim nRet                As Long
   Dim sDriver             As String
   Dim sAttributes         As String

   sDriver = "Oracle73 Ver 2.5"
   sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)

   nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes)

End Sub