'Code to be written in a Class [clsData is the class name]
Public m_dbConn As ADODB.Connection
Public m_dbCmd As ADODB.Command
'Database Connection - Connection String
Public Function InitializeConnection() As Boolean
On Error GoTo Error_Handler
Dim strWinPath As String
strWinPath = StripNulls(szBuffer)
Dim strConnection As String
m_dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\Master.mdb;Persist Security Info=False;Jet OLEDB:Database Password='samtron'"
m_dbCmd.ActiveConnection = m_dbConn
InitializeConnection = True
Exit Function
Error_Handler:
InitializeConnection = False
End Function
Public Function DoQuery(strQuery As String) As Boolean
'Command Object is being Initialized
On Error GoTo Error_Handler
With m_dbCmd
.CommandType = adCmdText
.CommandText = strQuery
.Execute
End With
DoQuery = True
Exit Function
Error_Handler:
DoQuery = False
End Function
Private Sub Class_Initialize()
Set m_dbConn = New ADODB.Connection
Set m_dbCmd = New ADODB.Command
End Sub
Private Sub Class_Terminate()
If m_dbConn.State = adStateOpen Then
m_dbConn.Close
End If
Set m_dbConn = Nothing
Set m_dbCmd = Nothing
End Sub
'Code to be written in a module
Public objData as new clsData 'Where clsData is the class name
'Function call in the forms / project
Dim strQuery as String
strQuery = "Some Valid SQL Query"
If Not g_objData.DoQuery(strQuery) Then
Msgbox "Data Not Updated" 'Some Message
else
Msgbox "Data Updated"
end if
| 