To be honest, I don't remember if it does show up there, but it still works. Have you tried to connect to the database using your new DSN? Rick Rose -------Original Message------- From: [EMAIL PROTECTED] Date: 10/14/04 00:46:17 To: [EMAIL PROTECTED] Subject: Re: [vbhelp] Creating an ODBC Source programatically Thanks for your feedback Matt. Currently I am using RDO to connect to the data source and for each client pc i have to manually create the ODBC for them. So I tried the codes given below by copying it into a module, modified the dsn name and path and run it but I cant see the datasource created under the user dsn of the ODBC. Can you guide me on how Rick's code works? Maybe I had misunderstood it as I thought that the CreateDSN module will create the datasource. If i had misunderstood the function of codes, then sorry about that. Thanks. --- "Unicorn.PC.Support" <[EMAIL PROTECTED]> wrote: > obelix, > > There is no real functional difference between VB5 > and VB6 for what you are > discussing. > Their are however differences in DAO or ADO > > Rick's code creates the ODBC connection using the > API, and as such VB5 and > VB6 are functionally identical. > > If you are having problems with any of the code > posted, perhaps you could > post your implementation of it so that we can see > what you are doing and > perhaps try it out ourselves to find the problem > area. > > Matt > . > ----- Original Message ----- > From: "obelix asterix" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Thursday, October 14, 2004 10:18 AM > Subject: RE: [vbhelp] Creating an ODBC Source > programatically > > > > > > Thanks for the feedback. May I know how can I > create > > the datasource automatically in my ODBC by using > > VB5 ? Besides the coding given below is there an > > alternative way to auto create ? > > Thanks for all the help and feedback provided. > > > > --- Rick Rose <[EMAIL PROTECTED]> wrote: > > > > > You didn't leave anything out. It was written > in > > > VB6, that might be the > > > problem. > > > > > > Rick Rose > > > -------Original Message------- > > > > > > From: [EMAIL PROTECTED] > > > Date: 10/12/04 22:29:27 > > > To: [EMAIL PROTECTED] > > > Subject: RE: [vbhelp] Creating an ODBC Source > > > programatically > > > > > > Hi, found this topic quite interesting as > currently > > > my > > > case is same like Daniel as I have to manually > setup > > > the access database in my ODBC. > > > I tried the codes given below, but I cant create > it. > > > There is no error prompted out. Currently, I'm > using > > > VB5 and Ms Access 97. The only output i can see > is, > > > the variable "blnRetVal" returns as False. I > cant > > > see > > > the access database being setup in my ODBC under > > > User > > > DSN. I have passed in the correct DSN name and > also > > > the full path on where my database is stored. > Did i > > > leave something out ? > > > --- Daniel Magliola <[EMAIL PROTECTED]> > > > wrote: > > > > > > > Rick, > > > > > > > > Thanks a lot for your answer! > > > > It was very helpful. > > > > I have one more about this. > > > > Do you know if there's an API (or any way, > > > actually) > > > > to display the "Manage > > > > ODBC Drivers" screen? I mean the one you > usually > > > use > > > > in Windows to set-up > > > > ODBC DSNs. > > > > > > > > I've seen a couple of software products > display > > > that > > > > screen, for the > > > > convenience of the user, so that they don't > have > > > to > > > > manually navigate there. > > > > > > > > Thanks in Advance > > > > Daniel > > > > > > > > > -----Mensaje original----- > > > > > De: Rick Rose [mailto:[EMAIL PROTECTED] > > > > > Enviado el: Monday, September 27, 2004 15:50 > > > > > Para: [EMAIL PROTECTED] > > > > > Asunto: Re: [vbhelp] Creating an ODBC Source > > > > programatically > > > > > > > > > > > > > > > This will create an ODBC DSN for an Access > > > > database. > > > > > > > > > > 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 > > > > > > > > > > Public Function CreateAccessDSN(DSNName As > > > String, > > > > DatabaseFullPath As > > > > > String) _ > > > > > As Boolean > > > > > Dim sAttributes As String > > > > > sAttributes = "DSN=" & DSNName > > > > > sAttributes = sAttributes & "DBQ=" & > > > > DatabaseFullPath > > > > > CreateAccessDSN = CreateDSN("Microsoft > > > Access > > > > Driver (*.mdb)", > > > > > sAttributes) > > > > > End Function > > > > > > > > > > Public Function CreateDSN(Driver As String, > > > > Attributes As String) > > > > > As Boolean > > > > > CreateDSN = SQLConfigDataSource(0&, 1, > > > Driver, > > > > Attributes) > > > > > End Function > > > > > > > > > > Public Sub Create() > > > > > Dim blnRetVal As Boolean > > > > > blnRetVal = CreateAccessDSN("DSNName", > > > > "C:\myDatabase.mdb") > > > > > End Sub > > > > > > > > > > > > > > > Rick Rose > > > > > -------Original Message------- > > > > > > > > > > From: [EMAIL PROTECTED] > > > > > Date: 09/27/04 11:14:05 > > > > > To: [EMAIL PROTECTED] > > > > > Subject: [vbhelp] Creating an ODBC Source > > > > programatically > > > > > > > > > > Dear Group: > > > > > > > > > > I've faced this problem several times > already, > > > and > > > > i've never found a > > > > > "civilized" solution... > > > > > > > > > > I have to create an ODBC Source > programatically. > > > > I've seen > > > > > several programs > > > > > do this, they create their own ODBC sources > > > > instead of making you create > > > > > them manually, but i've never found the way > to > > > do > > > > it. > > > > > > > > > > I seriously want to believe there's a better > way > > > > than manually writing > > > > > Hard-coded values to the Registry (inside > > > > HKLM\Software\ODBC\ODBC.INI). > > > > > > > > > > Does anyone know how to go around doing > this? > > > > > I imagine this will be different for every > > > driver. > > > > The one i'm most > > > > > interested in is IBM "Client Access" (or > > > "iSeries > > > > Access"), but any driver > > > > > will do, it will point me in the right > direction > > > > at least. > === message truncated === _______________________________ Do you Yahoo!? Declare Yourself - Register online to vote today! http://vote.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> $9.95 domain names from Yahoo!. Register anything. http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/k7folB/TM --------------------------------------------------------------------~-> '// ======================================================= Rules : http://ReliableAnswers.com/List/Rules.asp Home : http://groups.yahoo.com/group/vbHelp/ ======================================================= Post : [EMAIL PROTECTED] Join : [EMAIL PROTECTED] Leave : [EMAIL PROTECTED] '// ======================================================= Yahoo! Groups Links
[Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor --------------------~--> $9.95 domain names from Yahoo!. Register anything. http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/k7folB/TM --------------------------------------------------------------------~-> '// ======================================================= Rules : http://ReliableAnswers.com/List/Rules.asp Home : http://groups.yahoo.com/group/vbHelp/ ======================================================= Post : [EMAIL PROTECTED] Join : [EMAIL PROTECTED] Leave : [EMAIL PROTECTED] '// ======================================================= Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/vbhelp/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
