I am not sure if this will work in VBA but an you try this?
connectionString = "Driver={MySQL ODBC 3.51
Driver};server=localhost;DB=redpath-lims;UID=;PWD="
Dim mysqlRS As New ADODB.Recordset
Set mysqlRS = New ADODB.Recordset
mysqlRS.ActiveConnection = connectionString
mysqlRS.Open "SELECT * FROM items"
-----Original Message-----
From: Eric Ellsworth
To: Victor Pendleton
Cc: '[EMAIL PROTECTED] '
Sent: 5/12/04 2:11 PM
Subject: Re: DSNless connection under DAO
Yes - the problem occurs inside the OpenDatabase call, which
unfortunately is a native
VBA function, so I can't debug it. Calling OpenConnection also prompts
this dialog to come up.
EE
Victor Pendleton wrote:
>Have you tried stepping through this code to see why the application is
>prompting you with the ODBC dialog box?
>
>-----Original Message-----
>From: Eric Ellsworth
>To: [EMAIL PROTECTED]
>Sent: 5/12/04 11:29 AM
>Subject: DSNless connection under DAO
>
>Hi,
> I am using Microsoft Access to connect to MySQL 4.0.13-nt on my
>local machine. I want to use a DSNless
>connection make sure users don't connect with more privileges than they
>should have. When I run the code below, I always get the ODBC data
>source dialog box. How can I suppress this dialog box and just
connect?
>
>Thanks,
>
>Eric
>
>
> Dim dbMySQL As Database
> Dim cnMySQL As DAO.Connection
> Dim sDSN As String
> sDSN = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};" _
> & "SERVER=127.0.0.1;" _
> & " DATABASE=redpath-lims;" _
> & "UID=" & sUsername & ";PWD=" & sPW &
>";OPTION=16386"
> Set dbMySQL = OpenDatabase("", dbDriverNoPrompt, , sDSN)
> Dim rsItems As DAO.Recordset
> Dim sItemsSQL As String
> sPatientSQL = "SELECT * FROM items;"
> Set rsPatients = cnMySQL.OpenRecordset(sItemSQL)
> With rsItems
> .AddNew
> !ItemName = "Item"
> !ItemDesc = "Test"
> .Update
> Debug.Print !patientID
> End With
>
>
>
>
--
MySQL General Mailing List
For list archives: http://lists.mysql.com/mysql
To unsubscribe: http://lists.mysql.com/[EMAIL PROTECTED]
