How TO Create/Delete Microsoft Access Driver (*.Mdb) DSN at RUNTIME

[chandu_hyd]

Please Send Me Reply

[Stevie]

Declare the following in a module :

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

' SQLConfigDataSource consts
Public Const ODBC_ADD_DSN = 1          ' Add user data source.
Public Const ODBC_CONFIG_DSN = 2       ' Configure user data source.
Public Const ODBC_REMOVE_DSN = 3       ' Remove user data source.
Public Const ODBC_ADD_SYS_DSN = 4      ' Add system data source
Public Const ODBC_CONFIG_SYS_DSN = 5   ' Configure system data source
Public Const ODBC_REMOVE_SYS_DSN = 6   ' Remove system data source

Use the declared API with the following :

' Set to one of SQLConfigDataSource consts
intAction = 1

' Set the DSN Name
strDSN = "Some_DSN_Name"

' Set the DB Path
strDBPath = "c:\temp\database.mdb"

' Set the Driver info
strDriver = "Microsoft Access Driver (*.mdb)" & Chr(0)

' Set the Attributes
strAttributes = "DSN=" & strDSNName & Chr(0)
strAttributes = strAttributes & "Uid=" & Chr(0) & "pwd=" & Chr(0)
strAttributes = strAttributes & "DBQ=" & strDBPath & Chr(0)

lngRetVal = SQLConfigDataSource(0, intAction, strDriver, strAttributes)

Hope this helps.