Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.
Function Example() On Error GoTo ErrorHandler: Dim command_ As New ADODB.Command Dim rs_ As ADODB.Recordset With command_ .ActiveConnection = CurrentProject.Connection .NamedParameters = True .CommandType = adCmdText .CommandText = "SELECT t.* FROM ticket t WHERE t.id = @id" .Parameters.Append .CreateParameter("@id", adInteger, adParamInput, , 11) Set rs_ = .Execute With rs_ If .State = adStateOpen Then ' TODO: this bit! End If End With End With Tidy: Set command_ = Nothing Set rs_ = Nothing Exit Function ErrorHandler: Debug.Print Err.Description: GoTo Tidy End Function
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!