-
-
Declare the following in a module :
Code:
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 :
Code:
' 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. :)
