Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 241
  • Last Modified:

Adding an ODBC connection

Hello,

I have a toolbar that needs to do some SQL Database lookups from 50 user desktops.  I need to create an ODBC connection for each the first time the user needs to use it.

The toolbar starts at startup and needs to check to see if the ODBC connection is there
If not, i need to create it as a system ODBC connection

I have tried to add the keys using group policy but it is not working for some reason.

Any help is greatly appreciated!!!! ----  URGENT!

Eric
0
posae
Asked:
posae
  • 3
  • 3
1 Solution
 
posaeAuthor Commented:
Oh Yea...the app is in VB6
0
 
mirtheilCommented:
You can use SQLConfigDataSource ODBC API call.  Here's a link that shows how to do it for Access but can be modified for other databases:
http://support.microsoft.com/?kbid=231156
0
 
posaeAuthor Commented:
thanks mirtheil...what attributes do I have to include?
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
mirtheilCommented:
It depends on the DBMS you are using.  You'll basically include all of the keyword pairs that make up a DSN.  
0
 
posaeAuthor Commented:
This is what I have in the code and it keeps erroring out...any ideas?

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

Private Function Build_SystemDSN()
Dim ReturnValue As Integer
Dim Driver As String
Dim Attributes As String


   Driver = "SQL Server" & Chr(0)
   Attributes = "SERVER=samcoapps" & Chr(0)
   Attributes = Attributes & "DESCRIPTION=New DSN" & Chr(0)
   Attributes = Attributes & "DSN=DSN_TEMP" & Chr(0)
   Attributes = Attributes & "DATABASE=CRM" & Chr(0)
   
   ret = SQLConfigDataSource(0, 4, Driver, Attributes)
   
   'ret is equal to 1 on success and 0 if there is an error
   If ret <> 1 Then
       MsgBox "DSN Creation Failed"
   End If

End Function


0
 
mirtheilCommented:
Here's a link to some code.  I haven't worked with SQL Server.  THe code below did create the DSN for me (but I can't test the DSN since I don't have SQL Server installed)
http://www.freevbcode.com/ShowCode.Asp?ID=502

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now