Add data from access form into mysql database

Question

0.00/5 (No votes)

See more:

Hi, I have access application allowing users to add accounts, currently the program add,update,deletes information from a linked mdb table. What I can't figure out is how to also add a link to mysql database in order have information in both the mdb and mysql update-to-date.

I created a link to mysql table (called accounts1), and tried to add code to create a dao.recordset but am completely lost.

Also in my Insert query for the last field company, on my access form I have check boxes but on mysql table has numbers associated with each type of company, how do I converted the checkbox marked to a company. (for exmaple if checkbox is marked for 'Fed mutual' the company is assigned '2' on the mysql databse)

What I have tried:

<pre>Private Sub AddCmdButon_Click()
    
    ValidateCmdButton_Click
    
    If Me.ProcessFlagTBox = False Then
       Dim dbs1 As Database
       Dim aTable As Recordset
       Dim srchKey As String
       Set dbs1 = CurrentDb
       Set aTable = dbs1.OpenRecordset("Accounts", dbOpenDynaset)
       srchKey = "[ShortDescription] = '" & Me.ShortDescriptionTBox & "'"
       aTable.FindFirst srchKey
       
       Dim db As DAO.Database
       Dim rstAccounts As DAO.Recordset
       Dim strSQL As String
       Set db = CurrentDb
       strSQL = strSQL = INSERT INTO accounts1 ('ShortDesc', 'Description',     'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAICPLS', 'Company')
                VALUES ('UCase(Me.ShortDescriptionTBox)', 'UCase(Me.DescriptionTBox)', 'UCase(Me.MajorAccountTBox)', 'UCase(Me.DivRegionTBox)', 'UCase(Me.CostCodeTBox)',
                'UCase(Me.LOBTBox)', 'UCase(Me.StateTBox)', 'Me.[NAIC-PageLineSubLineTBox]', '????';
       Set rstAccounts = db.OpenRecordset(strSQL)
       
       If aTable.NoMatch = True Then
          ' Record not found (Add it)
          aTable.AddNew
          aTable![ShortDescription] = UCase(Me.ShortDescriptionTBox)
          aTable![Description] = UCase(Me.DescriptionTBox)
          aTable![MajorAccount] = UCase(Me.MajorAccountTBox)
          aTable![DivReg] = UCase(Me.DivRegionTBox)
          aTable![CostCenter] = UCase(Me.CostCodeTBox)
          aTable.Update
          MsgBox "The record was successfully added.", vbOKOnly, "INFORMATIONAL MESSAGE BOX"
          ClearCmdButton_Click
          Me.DescrComboBoxCBox.Requery
          Me.DescrComboBoxCBox1.Requery
         Else
          ' Record found (Duplicate)
          MsgBox "The record already exist on file. ", vbOKOnly, "INFORMATIONAL MESSAGE BOX"
       End If
       aTable.Close
       dbs1.Close
    End If
    

End Sub

Posted 18-Apr-19 5:56am

Member 14315552

Updated 18-Apr-19 9:06am

Add a Solution

2 solutions

Solution 1

Google: Access VBA create table link[^]

Posted 18-Apr-19 6:02am

Dave Kreskowiak

Comments

Member 14315552 18-Apr-19 12:15pm

Can you give some ideas on how to solve the issue with company field? Like in the access form there is different companies and either you check or uncheck whichever applies but in the mysql database table the company is associated with a number. What code do I use to convert the checkbox to digit?

Dave Kreskowiak 18-Apr-19 13:03pm

I couldn't tell you. I have no idea what your MySQL database structure is like nor what those values mean.

Typically, you would find one of two solutions associated with a problem like this. Either an arbitrary value is assigned to each Company or each Company has it's own record describing it in the database. In either case, there is a mapping table between the Company (recordId or value) that associates each Company that is picked with the parent record.

So, if you have a record that can be associated with multiple Companies, you would have a table for the record you are associating, a table describing the Companies, and another table mapping between the two with two columns, one for the recordId you're associating with and another holding the recordId's of the Companies you're associating it with.

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Patrice T · Accepted Answer · 2019-04-18T09:07:00

This is not correct vba syntax

VB

strSQL = strSQL = INSERT INTO accounts1 ('ShortDesc', 'Description',     'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAICPLS', 'Company')
                VALUES ('UCase(Me.ShortDescriptionTBox)', 'UCase(Me.DescriptionTBox)', 'UCase(Me.MajorAccountTBox)', 'UCase(Me.DivRegionTBox)', 'UCase(Me.CostCodeTBox)',
                'UCase(Me.LOBTBox)', 'UCase(Me.StateTBox)', 'Me.[NAIC-PageLineSubLineTBox]', '????';

And this is not a correct sql statement either.
SQL Tutorial[^]
SQL INSERT INTO Statement[^]

And as I understand it, it is also subject to SQL injection vulnerability.
Never build an SQL query by concatenating strings. Sooner or later, you will do it with user inputs, and this opens door to a vulnerability named "SQL injection", it is dangerous for your database and error prone.
A single quote in a name and your program crash. If a user input a name like "Brian O'Conner" can crash your app, it is an SQL injection vulnerability, and the crash is the least of the problems, a malicious user input and it is promoted to SQL commands with all credentials.
SQL injection - Wikipedia[^]
SQL Injection[^]
SQL Injection Attacks by Example[^]
PHP: SQL Injection - Manual[^]
SQL Injection Prevention Cheat Sheet - OWASP[^]
How can I explain SQL injection without technical jargon? - Information Security Stack Exchange[^]