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.
'Query DB and populate data in specified worksheet starting row/Col in active workbook Sub SQLSrvDB_LowLevel_ReadRecSet(strSQL As String, strWksh As String, intstartRow As Integer, intStartCol As Integer) Dim time1, time2, time3, time4 'Used for timing response time Dim destRng As Range 'Instantiate Record Set Set privADORecSet = New ADODB.Recordset 'Query DB On Error Resume Next time1 = Time privADORecSet.Open Source:=strSQL, ActiveConnection:=privADOConnDB, CursorType:=adOpenStatic, LockType:=adLockReadOnly If Err.Number <> 0 Then MsgBox Err.Description time2 = Time 'Populate RawData worksheet time3 = Time Set destRng = Range(Worksheets(strWksh).Cells(intstartRow, intStartCol), _ Worksheets(strWksh).Cells(privADORecSet.RecordCount, privADORecSet.Fields.Count - 1)) destRng.CopyFromRecordset privADORecSet time4 = Time 'Close the objects privADORecSet.Close 'Recover memory Set privADORecSet = Nothing Set destRng = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|push and Pull replication||31||46|
|SQL Query to sum values on tickets where one or more ticket lines contain a list of values, grouped by that list of values.||7||26|
|removing rows from sql result set where some column values are repeated||1||24|
|Need quicker response from an Execption table||11||19|