Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 239
  • 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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
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

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

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