473,785 Members | 2,272 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Displaying Records on a MS Access 2000 form (frontend) using MySQL (backend)

2 New Member
Hi all,

I am having difficulty displaying records on a frontend MS Access 2000 form using a MySQL backend. The following code works well with the Jet database engine but doesn't work properly using the MySQL backend database. All records are displayed on the form using the Jet, but only one record appears using MySQL. Perhaps it just needs some tweaking to work with MySQL. Any advice would be great. Thanks

Function HelpDesc(HelpFr m As Integer)
i = 0
j = 0
StrHelp = "Help not found"
strHelpSection = "Help not found"
strAccessSQL = "SELECT * from tbl_ADMIN_FormH elp Where (CtlFlag = Yes) and ID = " & HelpFrm
GetCurrentDatab ase
Set rsAccessControl = db.OpenRecordse t(strAccessSQL)
If rsAccessControl .RecordCount = 1 Then
strSQLUpdate = rsAccessControl ("ID")
strHelpSection = "Waiting....... ........."
strHelpSection = "Section Name : " & rsAccessControl .Fields("CtlCap tion") & vbCrLf & vbCrLf
StrHelp = vbCrLf
StrHelp = StrHelp & Trim(rsAccessCo ntrol.Fields("C tlDesc")) & vbCrLf
StrHelp = StrHelp & Trim(rsAccessCo ntrol.Fields("C ltBusinessRule" )) & vbCrLf
strAccessSQL = "Select * from qry_ControlTab where tbl_admin_FormH elp.id = " & HelpFrm & " or tbl_admin_FormH elp.Ctltype = " & HelpFrm
GetCurrentDatab ase
Set rsAccessControl = db.OpenRecordse t(strAccessSQL)
i = 0
For j = 0 To rsAccessControl .RecordCount - 1
strSelected = rsAccessControl .Fields("tbl_Ad min_ControlHelp .CtlType").Valu e

If IsNull(rsAccess Control.Fields( "CtlDesc")) = False Or IsNull(rsAccess Control.Fields( "CltBusinessRul e")) = False Then
i = i + 1
If strSelected = "104" Then
'StrHelp = StrHelp & vbCrLf & i & ". Button Name : " & rsAccessControl .Fields("CtlCap tion") & " " & vbCrLf
StrHelp = StrHelp & vbCrLf & i & " . " & rsAccessControl .Fields("CtlCap tion") & " : " & vbCrLf
Else
'StrHelp = StrHelp & i & ". Label Name : " & rsAccessControl .Fields("CtlCap tion") & " " & vbCrLf
StrHelp = StrHelp & i & " . " & rsAccessControl .Fields("CtlCap tion") & " : " & vbCrLf
End If
If IsNull(rsAccess Control.Fields( "CtlDesc")) = False Then
StrHelp = StrHelp & " " & rsAccessControl .Fields("CtlDes c") & vbCrLf
Else
StrHelp = StrHelp & vbCrLf
End If
If IsNull(rsAccess Control.Fields( "CltBusinessRul e")) = False Then
StrHelp = StrHelp & " " & rsAccessControl .Fields("CltBus inessRule") & vbCrLf & vbCrLf
Else
StrHelp = StrHelp & vbCrLf
End If
End If


rsAccessControl .MoveNext
Next
rsAccessControl .Close
DoCmd.OpenForm "frm_Gen_sfrm_H elp", acNormal, , , acFormReadOnly, acDialog
Else
DoCmd.OpenForm "frm_Gen_sfrm_H elp", acNormal, , , acFormReadOnly, acDialog
End If

End Function
Nov 20 '07 #1
0 1465

Sign in to post your reply or Sign up for a free account.

Similar topics

0
1469
by: Jason Gyetko | last post by:
I have a software application with an Access front end and an Access backend to house the data. Recently I converted the backend to MySQL. The Access frontend works fine connecting to the MySQL backend. The issue I have now is that I also have a syncronized database on a PDA. I was using ActiveSync and Pocket Access to create the database on the PDA and keep it syncronized with my PC (backend) database. I'm using eVB programs to...
28
4062
by: Lee Rouse | last post by:
Hello all, This is going to be a rather lengthy "question". I have an Access 2k database, separated front end/back end. Front end copies are on about 30 workstations and used frequently during the work day. The backend has a table called CLIENTS with approximately 6000 client records. Changes to data in the table are made via a frontend db Form which has CLIENTS as its record source.
13
7498
by: Manuel Lopez | last post by:
I have a puzzling form timer problem that I didn't experience prior to Access 2003 (though I'm not sure access 2003 is to blame). Here's the situation: a computer has two access 2003 databases on it, a frontend and a backend. Case 1: If vba code on the frontend updates many rows (360,000) on the backend, a form's timer event (from the frontend) will stop firing until the user gives the form focus. (Note that the update itself always...
5
1694
by: Bob Dydd | last post by:
Hi Everybody I have an Access 2000 MDB with the Usual FrontEnd/BackEnd Arrangement. The program depends on being able link to "Inbox" in Ms Outlook 2000. This is easy enough to do from the FrontEnd and has been OK while me and the missus have been using the program ourselves. Now We want to be able to give the program to others who mainly do not have MS Access installed., or if they do, have no idea what it is
37
5245
by: jasmith | last post by:
How will Access fair in a year? Two years? .... The new version of Access seems to service non programmers as a wizard interface to quickly create databases via a fancy wizard. Furthermore, why would you even continue to use Access as a backend when you have a much superior option in SQL express? What about as a future front-end development tool? Let's get serious. Microsoft continues to publish numerous articles and videos on how you...
6
2777
by: gerbski | last post by:
Hi all, I am relatively new to ADO, but up to now I got things working the way I wanted. But now I've run into somethng really annoying. I am working in MS Access. I am using an Access frontend separately from a backend. The tables from the backend database are linked in the frontend database. In the frontend there is a Form with a listbox in it. The listbox rowsource is a query that selects all the records from a (linked)
4
2347
by: ThePhenix | last post by:
Hi everybody, I have recently been doing a conversion for my boss for a access 2000 database (both front and backend) to a MSSQL backend. I finished the conversion today (as quite a lot of the code / queries ran slow due to access running the queries locally rather than on the server). And tested it on my and my boss's machine with no problems so he gave the go ahead to update everybody to our new mssql 2000 backend with the modified...
0
938
by: John Kirkpatrick | last post by:
Hi all, I am having difficulty displaying records on a frontend MS Access 2000 form using a MySQL backend. The following code works well with the Jet database engine but doesn't work properly using the MySQL backend database. All records are displayed on the form using the Jet, but only one record appears using MySQL. Perhaps it just needs some tweaking to work with MySQL. Any advice would be great. Thanks Function HelpDesc(HelpFrm As...
2
3743
by: Steve | last post by:
I have zero experience with ODBC. If I have an Access frontend connected to a SQL Database using ODBC, are the tables connected like a frontend/backend Access database where the the tables you see in the frontend are only "copies" of the tables in the backend? Or ar the tables "real" tables connected to the SQL tables in some manner? If the latter, can an Access table have more fields than the SQL table it is linked to? The reason for my...
0
9647
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
10356
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
10161
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
9958
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
8986
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
6743
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
5390
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
5523
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
2
3662
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.