------=_NextPart_000_0039_01C64C20.90526060
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_003A_01C64C20.9054D160"
------=_NextPart_001_003A_01C64C20.9054D160
Content-Type: text/plain;
charset="US-ASCII"
Content-Transfer-Encoding: 7bit
Hello,
I have a MySQL database on a remote host that I am connecting to using
MyODBC version 3.51.11 and MS Access 2002. I just moved this dataabase from
a Windows host to a Linux host and now I'm have trouble on client machines
creating a recordset. I have no problem on any of 5 different machines in my
office but I'm getting the error on a number of my clients computers in
other locations. I am not able to reproduce the error so I'm having a heck
of a time tryiing to resolve the problem. I installed MyODBC 3.51.12 and got
the same results. I have indicated and highlighted the error that is
occuring and where it occurs in the following code sample.
The error occurs on the rs.open in the following code. I would appreciate
some help in why this may be occuring as I am fresh out of ideas on why this
is happening.
Thanks very much
Vic
Dim objRsShows As ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error GoTo ErrorHandler
Set objRsShows = New ADODB.Recordset
objRsShows.ActiveConnection = CurrentProject.Connection
objRsShows.CursorType = adOpenForwardOnly
objRsShows.LockType = adLockOptimistic
objRsShows.Open ("Select WebLoginName, WebPassword From tblEventMaster")
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=www.dbhost.com;" _
& "DATABASE=myDatabase;" _
& "UID=myUID;" _
& "PWD=myPW;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.CursorLocation = adUseClient
conn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If IsNull(objRsShows.Fields("WebLoginName")) _
Or IsNull(objRsShows.Fields("WebPassword")) Then
MsgBox "Please supply Web Site Logon Information!", vbCritical,
"Show Secretary"
Exit Sub
End If
' *** The following statement produces the error code 3709 "The
connection cannot be used to perform this operation. It is either closed or
invalid in this context.
rs.Open "SELECT LoginName, UserPassword FROM user WHERE LoginName = '" &
objRsShows.Fields("WebLoginName") & "'", conn, adOpenStatic,
adLockOptimistic
MsgBox "recordset created", vbInformation, "Show Secretary"
------=_NextPart_001_003A_01C64C20.9054D160
Content-Type: text/html;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE id=3DridTitle>Clear Day</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<STYLE>BODY {
MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 10px; COLOR: #0033cc; =
FONT-FAMILY: Arial, Helvetica
}
</STYLE>
<META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR></HEAD>
<BODY id=3DridBody background=3Dcid:875214920 [at] 20032006-11D1>
<P><SPAN class=3D875214920-20032006>Hello,</SPAN></P>
<P><SPAN class=3D875214920-20032006>I have a MySQL database on a remote =
host that
I am connecting to using MyODBC version 3.51.11 and MS Access =
2002. I
just moved this dataabase from a Windows host to a Linux host and now =
I'm have
trouble on client machines creating a recordset. I have no problem on =
any of 5
different machines in my office but I'm getting the error on a number of =
my
clients computers in other locations. I am not able to reproduce =
the error
so I'm having a heck of a time tryiing to resolve the problem. I =
installed
MyODBC 3.51.12 and got the same results. I have indicated and =
highlighted the
error that is occuring and where it occurs in the following code
sample.</SPAN></P>
<P><SPAN class=3D875214920-20032006>The error occurs on the rs.open in =
the
following code. I would appreciate some help in why this may be occuring =
as I am
fresh out of ideas on why this is happening.</SPAN></P>
<P><SPAN class=3D875214920-20032006>Thanks very much</SPAN></P>
<P><SPAN class=3D875214920-20032006>Vic</SPAN></P>
<P><SPAN class=3D875214920-20032006><FONT =
color=3D#000000> Dim
objRsShows As ADODB.Recordset<BR> Dim conn =
As
ADODB.Connection <BR> Set conn =
=3D New
ADODB.Connection<BR></FONT></SPAN><FONT color=3D#000000><SPAN
class=3D875214920-20032006> On Error GoTo
ErrorHandler<BR></SPAN></FONT><SPAN class=3D875214920-20032006><FONT
color=3D#000000></FONT></SPAN></P>
<P><SPAN class=3D875214920-20032006><FONT =
color=3D#000000> Set
objRsShows =3D New ADODB.Recordset<BR>
objRsShows.ActiveConnection =3D =
CurrentProject.Connection<BR>
objRsShows.CursorType =3D adOpenForwardOnly<BR>
objRsShows.LockType =3D adLockOptimistic<BR> =
objRsShows.Open
("Select WebLoginName, WebPassword From =
tblEventMaster")<BR></P></FONT></SPAN>
<P><SPAN class=3D875214920-20032006><FONT =
color=3D#000000>
conn.ConnectionString =3D "DRIVER=3D{MySQL ODBC 3.51 Driver};"
_<BR> =
&
"SERVER=3Dwww.dbhost.com;"
_<BR> =
&
"DATABASE=3DmyDatabase;"
_<BR> =
&
"UID=3DmyUID;"
_<BR> =
&
"PWD=3DmyPW;"
_<BR> =
&
"OPTION=3D" & 1 + 2 + 8 + 32 + 2048 + 16384</FONT></SPAN></P>
<P><SPAN class=3D875214920-20032006><FONT =
color=3D#000000>
conn.CursorLocation =3D adUseClient<BR>
conn.Open<BR> Dim rs As =
ADODB.Recordset<BR>
Set rs =3D New =
ADODB.Recordset<BR> <BR>
If IsNull(objRsShows.Fields("WebLoginName"))
_<BR> Or
IsNull(objRsShows.Fields("WebPassword"))
Then<BR> MsgBox "Please supply =
Web
Site Logon Information!", vbCritical, "Show
Secretary"<BR> Exit
Sub<BR> End If<BR></FONT></SPAN></P>
<P><SPAN class=3D875214920-20032006><FONT color=3D#000000> <FONT
color=3D#0000ff> <STRONG> ' *** The following =
statement
produces the error code 3709 "The connection cannot be used to perform =
this
operation. </STRONG></FONT></FONT></SPAN><SPAN =
class=3D875214920-20032006><FONT
color=3D#000000><FONT color=3D#0000ff><STRONG>It is either closed or =
invalid in this
context.</STRONG></FONT> </FONT></SPAN></P>
<P><SPAN class=3D875214920-20032006></SPAN><SPAN =
class=3D875214920-20032006><FONT
color=3D#000000> rs.Open "SELECT LoginName, =
UserPassword FROM
user WHERE LoginName =3D '" & objRsShows.Fields("WebLoginName") =
& "'",
conn, adOpenStatic, adLockOptimistic<BR> MsgBox =
"recordset
created", vbInformation, "Show =
Secretary"<BR></FONT></P></SPAN></BODY></HTML>
------=_NextPart_001_003A_01C64C20.9054D160--
------=_NextPart_000_0039_01C64C20.90526060--
