Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Automate installation of ODBC system dsn link

Posted on 2008-10-14
1
Medium Priority
?
895 Views
Last Modified: 2013-12-17
Setting up deployment package for access front-end. it requires an installation of odbc link is there a way to automate this so i can included it in the installation package
0
Comment
Question by:david_88
1 Comment
 
LVL 58

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 2000 total points
ID: 22711749

I wrote a small VB 6.0 program to handle creating shortcuts and setting up the ODBC DSN's. The code was originally in VBA in Access, but I moved it to VB (and hence got a true standalone EXE) it was difficult to determine the Access version installed, which affected the code.

I don't remember what the exact problem was, but it was problematic at best.

JimD.
Attribute VB_Name = "OCS_DSNs"
Option Explicit           ' Require variables to be declared before being used.
 
Private Const ODBC_ADD_SYS_DSN = 4       'Add data source
Private Const ODBC_CONFIG_SYS_DSN = 5    'Configure (edit) data source
Private Const ODBC_REMOVE_SYS_DSN = 6    'Remove data source
 
Private Const vbAPINull = 0&
 
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
   
Function CreateDSNs(strDatabaseName As String) As Integer
 
   ' Using tblDSNs, Create/refresh required DSN entires for a database.
 
   Dim ws As DAO.Workspace
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   
   Dim strDriver As String
   Dim strAttributes As String
   Dim strDatabase As String
   Dim strDSN As String
   Dim intEntryCount As Integer
   Dim intNumberofDSNs As Integer
   Dim varRet As Variant
   
   'Dim pb As New Form_frm_ProgBar
   
    Set ws = DBEngine.CreateWorkspace("", "Admin", "")
    Set db = ws.OpenDatabase("P:\xxxxxx\SetClientEnv\SetClientEnv.MDB")
   Set rs = db.OpenRecordset("tblDSNs")
   intNumberofDSNs = rs.RecordCount
   intEntryCount = 0
   'pb.SetMessage "Creating/refreshing DSN Entries"
   
   With rs
      While Not .EOF
        ' Check if this entry applies to this database.
        If UCase(rs("DatabaseName")) = UCase(strDatabaseName) Then
             ' Register method can't create system DSNs
             ' only user ones.
             'DBEngine.RegisterDatabase rs("DSN"), _
             '         "SQL Server", _
             '         True, _
             '         "Description= xxxxxxx - " & strDatabase & _
             '         Chr(13) & "Server=" & rs("Server") & _
             '         Chr(13) & "Database=" & strDatabase & _
             '         Chr(13) & "Network=DBMSSOCN" & _
             '         Chr(13) & "Trusted_Connection=Yes"
    
            strDriver = "SQL Server" & Chr(0)
            strAttributes = "DSN=" & rs("DSN") & Chr(0)
            strAttributes = strAttributes & "Description= xxxxxxx - " & rs("Database") & Chr(0)
            strAttributes = strAttributes & "Server=" & rs("Server") & Chr(0)
            strAttributes = strAttributes & "Database=" & rs("Database") & Chr(0)
            strAttributes = strAttributes & "Network=DBMSSOCN" & Chr(0)
            strAttributes = strAttributes & "Trusted_Connection=Yes" & Chr(0)
       
            varRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, strDriver, strAttributes)
       
            If varRet <> 1 Then
              MsgBox "DSN Creation Failed"
              GoTo CreateDSNs_Err
            End If
        End If
        
        intEntryCount = intEntryCount + 1
        'pb.SetBarPercent (intEntryCount / intNumberofDSNs) * 100
        
        rs.MoveNext
      Wend
   End With
   
   CreateDSNs = True
   
CreateDSNs_End:
   On Error Resume Next
   
   If Not rs Is Nothing Then
    rs.Close
    Set rs = Nothing
   End If
   
    If Not db Is Nothing Then
        db.Close
        Set db = Nothing
    End If
    
    If Not ws Is Nothing Then
        ws.Close
        Set ws = Nothing
    End If
   
   Exit Function
 
   
CreateDSNs_Err:
   CreateDSNs = False
   GoTo CreateDSNs_End
 
End Function

Open in new window

0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Explore the ways to Unlock VBA Project Password Excel 2010 & 2013 documents. Go through the article and perform the steps carefully to remove VBA Excel .xls file.
Steps to fix “Unable to mount database. (hr=0x80004005, ec=1108)”.
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…

916 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question