" كل ما تود معرفته "

ربنا يباركلك ويكرمك

ويزيدك من علمه

جزاك الله خيرا وبلتوفيقك دائما

بارك الله فيك .. والف الف شكر يا اخي

جزاك الله خير

مشاركة جميلة من الجميع و لكن احب ان انوه علي ان جميع الروابط لا تعمل فارجو التاكد من الروابط مرة اخري

جزاك الله خيرا أخى ولكن المشكلة أن برنامج تشغيل ملفات rm لا يعمل إلا إذا كان ال Real player معد على الجهاز لماذا ؟

ولو حاولت غير ذلك يطلع خطأ

الف شكر ..

يزاك الله الف خير

ياخبير متألق دائم

تحياتى لكم جميعاً

مشكور جدا اخي ، ولكن سؤالي اين برنامج تحميل الصور (ما هو تعريف الحقل الذي سيتم تحميل صورة به وما هو الكود للإضافة)

أي برنامج أخ basharss ممكن توضح ما تريد

الله عليكم فقد ابدعتم حقا

السلام عليكم

دخلت أقولها لك : جزلكم الله خيراً

تحياتي

ماشاء الله عليك

الله يبارك فيك ويزيدك من نعيمة

اممممممممممميييييييييييين

كما عودتنا و مشكووووور

اخ HnHn

جزاك الله خير الجزاء

ورزقك من علمه ،، لأنك استخدمت العلم فيما ينفع المسلمين

تحياتي لك ،، ولمنتدى الفريق العربي والأعضاء جميعاً

أخي الحبيب هاني

كنت محتار حقيقي في البحث عن طرق عمل نسخة احتياطية وكذلك الاسترجاع للنسخة والحمد لله وجدته هنا في ذلك الموضوع القيم وفعلاً كتبت الكود كما يلي

في زر عمل نسخة احتياطية backup

Dim je As New JRO.JetEngine
If db.State = adStateOpen Then db.Close
If Dir(App.Path & "\Backup\Backup.bak") <> "" Then Kill App.Path & "\Backup\Backup.bak"
If Dir(App.Path & "\sairlines.mdb") = "" Then Exit Sub

je.CompactDatabase "Data Source=" & App.Path & "\sairlines.mdb;Jet.OLEDB.4.0;", "Data Source=" & App.Path & "\Backup\Backup.bak;Jet.OLEDB.4.0;"
MsgBox "تمت عمل النسخة الاحتياطية ", vbInformation, "برنامج الصادر والوارد"

Call Form_Load

ولكن عند التنفيذ تظهر لي الرسالة التالية " لا يتوافق تنسيق سلسلة التهيئة مع مواصفات OLE DB " فلا أدري ما هي المشكلة هذا الأمر الأول

ثانيا

ياريت عاوز أعرف الطريقة التي بها يتم عمل النسخة الاحتياطية على مجلد معين على C وليس على نفس مسار البرنامج أي البديل عن جملة APP.PATH

ثالثاً

كيف يمكن للبرنامج أي يقوم بعمل نسخة احتياطية تلقائياً كل شهر أو كل سنة على نفس المجلد اللى على C أي تلقائياً مع التاريخ

ولك جزيل الشكر والعرفان أخي الحبيب

أخوك أحمـــــــــــــــد

B)

اخي الكريم هل حددت المكتبة التالية أذا لم تفعل فأفعل ذلك

اما بالنسبة للمسار APP.PATH فستكون الشفرة كالتالي

Dim je As New JRO.JetEngine
If db.State = adStateOpen Then db.Close
If Dir("C:\Backup\Backup.bak") <> "" Then Kill "C:\Backup\Backup.bak"
If Dir("C:\sairlines.mdb") = "" Then Exit Sub
je.CompactDatabase "Data Source="C:\sairlines.mdb;Jet.OLEDB.4.0;", "Data Source= "C:\Backup\Backup.bak;Jet.OLEDB.4.0;"

وهكذا مع البقية

اما بالنسبة

اقتباس

كيف يمكن للبرنامج أي يقوم بعمل نسخة احتياطية تلقائياً كل شهر أو كل سنة على نفس المجلد اللى على C أي تلقائياً مع التاريخ

يمكنك ان تضع استعلام بالتاريخ لمقارنته مع تاريخ الجهاز عند خدث تحميل الفورم (للواجهة البدائية) ... وذلك سينتج عنه اظهار رسالة لك تخبرك وجوب عمل نسخة احتياطية من البيانات بعد ان تضع شرط الفترة التي تريد أن تظهر لك هذه الرسالة

ارفق المثال أو النماذج التي تحوي عملية النسخ الاحتياطي مع القاعدة للرؤية الشفرة

أخي هاني

في المشاركة رقم 66 وضحت لك الكود الموجود بالكامل في زر backup الذي يقوم بعمل النسخة الاحتياطية وإليك الكود الموجود في الصفحة الرئيسية للبرنامج وقد احتوت على فتح قاعدة البيانات

Calendar = vbCalHijri
Dim SqlStr As String
Dim s As String
Dim s1 As String
Dim SqlStr1 As String
Dim SqlStr2 As String
pw = 0
If db.State = adStateOpen Then db.Close
s = "provider = microsoft.jet.OLEDB.4.0;"
s = s & "data source =" & App.Path & "\sairlines.mdb"
db.ConnectionString = s
db.CursorLocation = adUseClient
db.Open

وأيضاً الكود الموجود في form_load للنافذة التي بها زر عمل النسخة الاحتياطية وهو

Dim SqlStr As String
Dim SqlStr1 As String
Dim SqlStr2 As String
Dim Mydate As Date
Calendar = vbCalHijri
Mydate = Date
SqlStr = "Select * From user_tab"
If rs.State = adStateOpen Then rs.Close
rs.Open SqlStr, db, adOpenDynamic, adLockOptimistic

SqlStr1 = "Select * From import"
If rs1.State = adStateOpen Then rs1.Close
rs1.Open SqlStr1, db, adOpenDynamic, adLockOptimistic

SqlStr2 = "Select * From export"
If rs2.State = adStateOpen Then rs2.Close

rs2.Open SqlStr2, db, adOpenDynamic, adLockOptimistic
'MsgBox (Date)
'MsgBox (rs1![datefollow])
'MsgBox (rs2![datefollow2exp])
nam = Form6.Combo2.Text
main.Caption = "ÇáãÓÊÎÏã ÇáÍÇáí ááÈÑäÇãÌ" & " :: " & nam
MsgBox (nam)
rs.MoveFirst
rs.Find "user_name='" + CStr(nam) + "'", 0, adSearchForward, 1

If rs![export_s1] = "no" Then
main.expmenu.Enabled = False
End If
If rs![import_s1] = "no" Then
main.impmenu.Enabled = False
End If

والمهم فيه هو فتح العديد من الجداول الموجودة في قاعدة البيانات المفتوحة أصلاً في الشاشة الرئيسية للبرنامج

ولك جزيل الشكر على الإهتمام والمتابعة

تفضل هذا المثال لعملية النسخ والاسترجاع بدون علمية الضغط والاصلاح

backup_Restore.rar

شكر ا لك على هذا المجهود لكن أخى لقد نسيت وضع قاعدة البينات فى المجموعة الاولى

اخت majdah taher

القاعددة تجدينها بأسم DB.Has

بنوع غير معروف ... وهذا الشي من ضمن الدرس في كيفية تحويل او اخفاء نوع القاعدة

وتستطيعين فتحها عن طريق الاكسس

وهلا وسهلا