بکاپ گیری از اطلاعات مهم

با سلام خدمت دوستان عزیز
برای پشتیبان گیری از اطلاعات مهم چندین نکته را در نظر داشته باشید.
1-دلیل اصلی پشتیبان گیری میتواند دو نکته اساسی باشد . اول ترس از دست دادن اطلاعات به هر دلیلی مثل خراب شدن پایگاه داده. دوم بالا رفتن حجم اطلاعات پایگاه داده و ذخیره سازی اطلاعات قدیمی با ایجاد پایگاه جدید.
2- گاهی پیش می آید که پایگاه داده ما خصوصا در اس کیو ال به هر دلیلی مثل خرابی هارد سیستم , دچار خرابی و اختلال شود.
3-گاهی کل سیستم کامپیوتری به هر دلیلی ممکن است از بین برود.

پس سعی کنید اطلاعات پشتیبان گیری را در دو سیستم یا دو هارد مجزا و یا در محیط امن اینترنتی نگه داری نمائید.
حد اقل کار ممکن این است که اطلاعات جدید و ویرایش اطلاعات قدیمی در دو بانک مجزا ذخیره سازی شود. مثلا بانک اصلی ما اس کیو ال هست و بانک پشتیبان ما اکسس هست و اطلاعات مهم مثل میزان بدهکاری و بستانکاری در آن ذخیره شود. یا میزان سهمیه استفاده شده و هر گونه اطلاعاتی که از اهمیت خیلی بالایی برخوردار است.
البته تا جای ممکن حجم اطلاعات بانک پشتیبان را با حذف اطلاعات اضافی پایین بیاورید مثلا ساعت و تاریخ و کاربر و ... را وارد نکنید.
برای بروز رسانی یکباره اطلاعات در پایگاه داده اکسس از کدهای زیر میتوانید استفاده کنید.

Dim KalaYabConA As New ADODB.Connection
Dim KalaYabRecA As New ADODB.Recordset
KalaYabConA.Open ConnectionStringSQL
KalaYabRecA.CursorLocation = adUseClient
KalaYabRecA.Open "SELECT *" & " FROM moshtari " & " WHERE [delete] =" & 0 & " ORDER BY namMoshtari ASC ", KalaYabConA, adOpenStatic, adLockOptimistic




Dim KalaYabConACCESS As New ADODB.Connection
Dim KalaYabRecACCESS As New ADODB.Recordset
KalaYabConACCESS.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DbAddress.accdb;Persist Security Info=False;Jet OLEDB:Database Password=yourpass"


KalaYabRecACCESS.CursorLocation = adUseClient
KalaYabRecACCESS.Open "DELETE * FROM Kala", KalaYabConACCESS, 2, 3 'اين قسمت بسيار خطرناک است خيلي دقت شود چون کل اطلاعات قبلي پاک ميشه


KalaYabRecACCESS.Open "SELECT *" & " FROM Kala " & "", KalaYabConACCESS, adOpenStatic, adLockOptimistic
Dim abi As Integer
KalaYabRecA.MoveFirst
For abi = 1 To KalaYabRecA.RecordCount
KalaYabRecACCESS.AddNew
KalaYabRecACCESS.Fields("KalaName") = Trim(KalaYabRecA.Fields("KalaName"))
KalaYabRecACCESS.Fields("GheymatForoosh") = KalaYabRecA.Fields("GheymatF")
KalaYabRecACCESS.Fields("KalaCode") = KalaYabRecA.Fields("ID")
KalaYabRecACCESS.Fields("Barcod") = KalaYabRecA.Fields("Barcode")
KalaYabRecACCESS.Update
KalaYabRecA.MoveNext
DoEvents
darsad.Caption = "%" & (Val(abi) * 100) \ (Val(KalaYabRecA.RecordCount))
II.Caption = abi & "of" & KalaYabRecA.RecordCount
Next abi