auto create a connect to odbc system dsn

Posted on 2009-06-30
Last Modified: 2013-12-25

I want to use VB to auto create a ODBC system DSN connect tion to my SQL server, can somebody help me?


'Constant   Declaration

              Private Const ODBC_ADD_DSN = 1                         '   Add   data   source

              Private Const ODBC_CONFIG_DSN = 2                 '   Configure   (edIT)   data   source

              Private Const ODBC_REMOVE_DSN = 3                 '   Remove   data   source

              Private Const VBAPINull       As Long = 0&           '   NULL   Pointer

              Private Declare Function SQLAllocEnv Lib "odbc32.dll" (phenv&) As Integer

              'Function   Declare

                      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



  Option Explicit


  Private Sub Command1_Click()

  Dim intRet     As Long

              Dim strDriver     As String

              Dim strAttributes     As String

              Dim rc     As Integer     'ODBC   ?   ?   ?   ?   ?   ?

              Dim henv     As Long     'ODBC   ?   ?   ?   ?

                'rc   =   SQLAllocEnv(henv)   '   ?   ?ODBC   ?   ?   ?   ?


              'Set   the   driver   to   SQL   Server   because   IT   is   most   common.

              strDriver = "SQL Server"

              'Set   the   attributes   delimITed   by   null.

              'See   driver   documentation   for   a   complete

              'list   of   supported   attributes.

              strAttributes = "SERVER=TOMATO-PC" & Chr$(0)

              strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)

              strAttributes = strAttributes & "DSN=Action" & Chr$(0)

              strAttributes = strAttributes & "database=actionreport" & Chr$(0)

              strAttributes = strAttributes & "UID=sa" & Chr$(0)

              strAttributes = strAttributes & "PWD=1234" & Chr$(0)

              'To   show   dialog,   use   Form1.Hwnd   instead   of   VBAPINull.

              intRet = SQLConfigDataSource(VBAPINull, ODBC_ADD_DSN, _

              strDriver, strAttributes)

              If intRet Then

                      MsgBox "DSN   Created"


                      MsgBox "Create   Failed"

              End If

  End Sub

Open in new window

Question by:Simon Chen
  • 2
  • 2
LVL 15

Expert Comment

ID: 24745202
LVL 31

Accepted Solution

RiteshShah earned 500 total points
ID: 24745237
very good example in microsoft site.

Author Comment

by:Simon Chen
ID: 24745345
Private Const vbAPINull As Long = 0&  ' NULL Pointer

this script had error
LVL 31

Expert Comment

ID: 24745398
which script? mine or mohan's?

Author Comment

by:Simon Chen
ID: 24745418
Hi, RiteshShah


Private Const vbAPINull As Long = 0&  ' NULL Pointer

in the Microsoft example

and I change  into :Private Const vbAPINull As Long = 0

it show create successfully, but I didn't see any new DSn in the ODBC

Featured Post

Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

Question has a verified solution.

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

Suggested Solutions

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
For both online and offline retail, the cross-channel business is the most recent pattern in the B2C trade space.
Via a live example combined with referencing Books Online, show some of the information that can be extracted from the Catalog Views in SQL Server.
Via a live example, show how to backup a database, simulate a failure backup the tail of the database transaction log and perform the restore.

911 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

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now