0

Hello,
I'm a bit new to VB (actually use VBA), but would like to get some knowlegde about class module. One thing I was thinking of would be to create a class module which take cares of the connection to the MYSQL database.
Please let me know if you have some bit of code to start me off.
Thank you

NB: I use ADO 2.8 or lower

1
Contributor
1
Reply
2
Views
8 Years
Discussion Span
Last Post by mysqproject
0

I use the following code in Access to connect to a mysql database using ADO 2.8 and a system DNS:
If anybody have ideas to improve it, please let me know. For instance, I'm not sure how to handle the error event withing the class module!

in a class module named clsMYSQL, I have the follwoing code:

Option Compare Database
Option Explicit

Public Cnxn As ADODB.Connection
Public cmdChange As ADODB.Command
Public rstList As ADODB.Recordset
Private strCnxn As String
Private myAddUseServer As Boolean 'default=false
Public Property Let IsCursorLocationAddUseServer(Value As Boolean)

myAddUseServer = Value
End Property
Public Property Get IsCursorLocationAddUseServer() As Boolean
IsCursorLocationAddUseServer = myAddUseServer
End Property
Private Sub Class_Initialize()

'define path to connection
strCnxn = "DSN=MySQLMasterAtWork"
'opens connection password and user name already define
Set Cnxn = New ADODB.Connection

If myAddUseServer = False Then
Cnxn.CursorLocation = adUseClient
Else
Cnxn.CursorLocation = adUseServer
End If
Cnxn.Open strCnxn
End Sub

Private Sub Class_Terminate()

Set Cnxn = Nothing
End Sub

Sub MySQL_UPDATE(mySQLcmd As String)
'will work for SQL request which demands no feedback, ie UPDATE and INSERT and DELETE Requests
Cnxn.Execute mySQLcmd, , adExecuteNoRecords
End Sub


Function MySQL_SELECT(mySQLcmd As String) As Boolean
'Dim mySQL As clsMYSQL use that thread in thec cfode
'Set mySQL = New clsMYSQL

Set cmdChange = New ADODB.Command

With cmdChange
.ActiveConnection = Cnxn
.CommandText = mySQLcmd
End With

Set rstList = New ADODB.Recordset
If Cnxn.CursorLocation = adUseClient Then
rstList.CursorType = adOpenStatic
Else
rstList.CursorType = adOpenDynamic
End If

Set rstList = cmdChange.Execute


If rstList.EOF = True And rstList.BOF = True Then 'SEND VALUE in form
'Note: The BOF and EOF properties are set to True if you open an empty Recordset.RecordCount property is zero.
MySQL_SELECT = False
Else
MySQL_SELECT = True

Set cmdChange = Nothing
'Set rstList = Nothing
End If
End Function

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.