+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ (/showthread.php?tid=11678)
أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 11-03-15
لقد سألت هذا السؤال 5 مرات في هذا الموقع ولم اجد له حل , أرجو حل لهذا السؤال .
الخمس اسئلة تحكي عن : [ كيفية حفظ البيانات والاعدادات ؟ ]
أرجوا الدخول علي هذه الأسئلة وقرائتها لكي تفهم ماذا اريد بالتفصيل .
1- كيفية حفظ البيانات الموجودة في البرنامج؟ لكي يعمل البرنامج علي اي جهاز ؟
2- كيفية انشاء قاعدة بيانات اكسيل لحفظ البيانات
3- أين أضع هذه الأكواد في المشروع ليتم حفظ الاعدادات ؟
4- أريد حفظ ما يتغير في الفورم بعد اغلاقه ؟ التفاصيل في الداخل .
5- أريد كود استعادة حقل واحد من الداتا بيس الي تكست بوكس ؟ التفاصيل في الداخل .
وشكراً جزيلاً لكل من سيساعدني .
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 12-03-15
أولاً شكراً جزيلاً علي اهتمامك
ممكن لو سمحتي تحملي هذا المشروع ومن ثم تضعي به الاكواد ومن ثم تقومي برفعه لي مره اخري لاني حاولت اضع هذه الاكواد عندي ومعرفتش بيحصل ايرور عندي - علماً بأني شغال بفيجول بيسك 2010 .
[ رابط المشروع ]
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - ameerah - 12-03-15
ضع هذا الكود هما هو وإذا ظهر إرور أكتب الايرور
كود :
Dim settingsFile As String = "mysettings"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists(settingsFile) Then ImportSettings(settingsFile)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
ExportSettings(settingsFile)
End Sub
' إستيراد الاعدادت من ملف خارجي
Public Sub ImportSettings(ByVal fileName As String)
Using sReader As New IO.StreamReader(fileName)
While sReader.Peek() > 0
Dim input = sReader.ReadLine()
Dim dataSplit = input.Split(vbTab)
My.Settings(dataSplit(0)) = dataSplit(1)
End While
End Using
My.Settings.Save()
End Sub
' تصدير الاعدادت إلى ملف خارجي
Public Sub ExportSettings(ByVal fileName As String)
Using sWriter As New IO.StreamWriter(fileName)
For Each setting As Configuration.SettingsPropertyValue In My.Settings.PropertyValues
sWriter.WriteLine(setting.Name & vbTab & setting.PropertyValue.ToString())
Next
End Using
My.Settings.Save()
End SubRE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 12-03-15
اعتذر الكود شغال تمام انا الي معرفتش اضعه
المهم بقيت مشكلة واحده , الا وهي اني استطيع فتح الملف الخارجي mysetting بستخدام اي برنامج لقرائة الملفات النصية مثل المفكره او الورد واقرأ ما بداخلها , لذا أريد طريقة لوضع رقم سري لهذا الملف mysetting لكي لا يستطيع احد الدخول عليه , لاني بعمل برنامج تاني به بيانات هامة جداً ولا اريد ان يقرأها احد .
وشكراً جزيلاً لكي اختي العزيزة اميره .
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - احمد عبد الحكيم - 12-03-15
اخى هل الهذه البيانات المهمة تكون داخل فورم ام انت تضع ملف الورد وتقوم بالستدعائه بالكود
اذا كان فورم تستطيع وضع رقم سرى له لاكن اذا كان ملف ورد تستدعيه فلا اعلم هل من الممكن او لا
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 12-03-15
(12-03-15, 04:33 PM)احمد عبد الحكيم كتب : اخى هل الهذه البيانات المهمة تكون داخل فورم ام انت تضع ملف الورد وتقوم بالستدعائه بالكود
اذا كان فورم تستطيع وضع رقم سرى له لاكن اذا كان ملف ورد تستدعيه فلا اعلم هل من الممكن او لا
أخي احمد أولاً انا بشكرك علي اهتمامك
هذه البيانات قمت بحفظها عن طريق كود My.setting ومن المعروف ان هذه الخاصية تعطي قيم افتراضية اذا تم نقل او نسخ البرنامج , بمعني ان البيانات تمحي من الفورم اذا تم تحريك او نسخ البرنامج من مكان لاخر لذا قامت الاخت اميره بأعطائي كود يقوم بحفظ اعدادت الـ My.setting في ملف خارجي يوضع بجوار البرنامج , اسم هذا الملف mysetting انا استطيع فتح هذا الملف عن طريق اي برنامج لقرائة الملفات النصية مثل المفكرة او الورد , داخل هذا الملف ايضاً وجدت جميع الـ My.setting وانا عامل الرقم السري الي بيفتح البرنامج بالـ My.setting يعني اي حد بيفهم هيقدر يفتح الملف الخارجي ويعرف الرقم السري الي بيفتح البرنامج , كل ما اريده هو طريقة لوضع رقم سري لهذا الملف الخارجي لكي لا يستطيع احد فتحه , او ان امكن كود يحفظ اعدادت My.setting بدون الحاجة الي انشاء ملف خارجي , اتمني ان يكون لديك حل لهذه المشكلة .
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - احمد عبد الحكيم - 12-03-15
اخى العزيز ممكن تستفيد من هذا الفيديو فاعزرنى ان كانت اجباتى لست دقيقة 100% فا انا اريد ان افيدك بقدر الامكان
فا اعزرنى فا انا مثلى مثلك بعض الشئ
https://www.youtube.com/watch?v=qGjgjIzNkeM
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 13-03-15
(12-03-15, 11:22 PM)احمد عبد الحكيم كتب : اخى العزيز ممكن تستفيد من هذا الفيديو فاعزرنى ان كانت اجباتى لست دقيقة 100% فا انا اريد ان افيدك بقدر الامكان
فا اعزرنى فا انا مثلى مثلك بعض الشئ
https://www.youtube.com/watch?v=qGjgjIzNkeM
أخي للاسف هذا ليس ما ابحث عنه , انا عامل الباسورد عن طريق My.settting لكي استطيع تغير الرقم من داخل البرنامج وليس من داخل المشروع , مشكرو اخي علي اهتمامك .
RE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - ameerah - 13-03-15
جرب هذا التعديل للكود التصدير والاستيراد
إحذف ملف mysettings القديم ثم استبدل هذا الكود بدل القديم
كود :
' إستيراد الاعدادت من ملف خارجي
Public Sub ImportSettings(ByVal fileName As String)
Using sReader As New IO.StreamReader(fileName)
While sReader.Peek() > 0
Dim input As String = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(sReader.ReadLine()))
Dim dataSplit = input.Split(vbTab)
My.Settings(dataSplit(0)) = dataSplit(1)
End While
End Using
My.Settings.Save()
End Sub
' تصدير الاعدادت إلى ملف خارجي
Public Sub ExportSettings(ByVal fileName As String)
Using sWriter As New IO.StreamWriter(fileName)
For Each setting As Configuration.SettingsPropertyValue In My.Settings.PropertyValues
Dim s As String = setting.Name & vbTab & setting.PropertyValue.ToString()
sWriter.WriteLine(System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(s)))
Next
End Using
My.Settings.Save()
End SubRE: أرجوا الرد علي هذا السؤال ضروري - كيفية حفظ بيانات واعدادت البرنامج ؟ - sv25b858 - 20-03-15
الف الف الف شكر اختي اميره علي اهتمامك وتعبك
