منتدى فيجوال بيسك لكل العرب

نسخة كاملة : أريد كود استعادة حقل واحد من الداتا بيس الي تكست بوكس ؟ التفاصيل في الداخل .
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .



أريد كود لحفظ اليانات التي أقوم بكتابتها في التكست بوكس الفارغ إلي التكست بوكس الموجود [ من 1 الي 51 ]
بستخدام قاعدة بيانات اكسس - يرجي فديو يشرح طريقة عمل ذلك .

انا جديد في البرمجة - هذا مثال علي الذي اريد ان يكون :-
بمعني : رقم الحقل1.اسم العمود مثلاً.TextBox1.Text = db1Database
بمعني : رقم الحقل2.اسم العمود مثلاً.TextBox2.Text = db1Database

وكيف اقفل قاعدة البيانات هذه برقم سري لكي لا يستطيع احد الدخول اليها ؟
[ لأني عايز اعمل برنامج لحفظ بعض البيانات الخاصه ]
أو اني اقوم بدمجها مع البرنامج نفسه program.exe حتي لا يستطيع احد فتحها ؟
أو هل يوجد طريقة اخري لحفظ البيانات ؟
[ أدخل هنا لتعرف ماذا اريد بالتفصيل ]
[ أو من هنا

وشكراً مقدماً لكل من سيساعدني .

sub text()
On Error Resume Next
DataAdapter3 = New OleDbDataAdapter("Select * From invohd Where invon like'" & Trim$(TextBox1.Text) & "'", Con)
dataset3.Clear()
DataAdapter3.Fill(dataset3, "invohd")
ComboBox3.DataBindings.Add("Text", dataset3, "invohd.carid")
end sub
اخى العزيز وبعد زالك فى خانه load تكتب
call text()
(08-03-15, 06:10 PM)احمد عبد الحكيم كتب : [ -> ]sub text()
   On Error Resume Next
       DataAdapter3 = New OleDbDataAdapter("Select * From invohd Where invon like'" & Trim$(TextBox1.Text) & "'", Con)
       dataset3.Clear()
       DataAdapter3.Fill(dataset3, "invohd")
       ComboBox3.DataBindings.Add("Text", dataset3, "invohd.carid")
end sub
اخى العزيز وبعد زالك فى خانه load تكتب
call text()


أنا كنت عاملها بالطريقة دي
كود :
If ComboBox1.Text = "1" Then
            If MsgBox("سوف يتم حفظ البيانات في السطر رقم 1", MsgBoxStyle.OkCancel, "حفظ البيانات") = MsgBoxResult.Ok Then
                My.Settings.WS1 = WebSiteToSave.Text
                My.Settings.Save()
                WSTextBox1.Text = My.Settings.WS1
                My.Settings.Save()
                WebSiteToSave.Clear()
                WebSiteToSave.Select()
            ElseIf MsgBoxResult.Cancel Then
            End If
        End If

فا انا اضع ايه بدل هذه الاسطر
كود :
My.Settings.WS1 = WebSiteToSave.Text
                My.Settings.Save()
                WSTextBox1.Text = My.Settings.WS1
                My.Settings.Save()

الصراحة كتبت وشطبت عدة مرات ومدري شلون اوضح الغموض
لكن ..مربعات النص من 1 الى 51 هل هي مربوطة بالقاعدة؟
ومربعات النص بالاسفل ماذا تريد من كل منها
والكومبوبوكس ايضا

ياليت توضح الخوارزمية كاملة.
(09-03-15, 10:14 PM)سعود كتب : [ -> ]الصراحة كتبت وشطبت عدة مرات ومدري شلون اوضح الغموض
لكن ..مربعات النص من 1 الى 51 هل هي مربوطة بالقاعدة؟
ومربعات النص بالاسفل ماذا تريد من كل منها
والكومبوبوكس ايضا

ياليت توضح الخوارزمية كاملة.



التكست بوكس الغامق [ 1-51 ] = هو الذي يتم فيه حفظ البيانات و لقد تم عمله عن طريق My.Setting
التكست بوكس الفارغ الذي بالاسفل = هو الذي يتم فيه كتابة البيانات ليتم حفظها في احد التكستب بوكس من 1-51
بوتون Save = هو الزر الذي اضغط عليه لكي يتم حفظ البيانات الموجود في التكست الفارغ الي التكست 1-51
الكمبو بوكس = الموجود بجوار التكست بوكس الفارغ هو لتحديد التكست بوكس الذي اريد حفظ البيانات فيه 1-51
-------------------------
التكست بوكس الغامق [ 1-51 ] = WSTextBox1
التكست بوكس الفارغ الذي بالاسفل = WebSiteToSave
بوتون Save = Save
الكمبو بوكس = ComboBox1
WS1 = My.Setting


كود :
If ComboBox1.Text = "1" Then
           If MsgBox("سوف يتم حفظ البيانات في السطر رقم 1", MsgBoxStyle.OkCancel, "حفظ البيانات") = MsgBoxResult.Ok Then
               My.Settings.WS1 = WebSiteToSave.Text
               My.Settings.Save()
               WSTextBox1.Text = My.Settings.WS1
               My.Settings.Save()
               WebSiteToSave.Clear()
               WebSiteToSave.Select()
           ElseIf MsgBoxResult.Cancel Then
           End If
       End If


اسم الموضع : [ تصدير واستيراد إعدادات البرنامج ]
لقد وجدت شيء مهم يفيدني جداً ولكن به مشكلة أرجوا الدخول الي هذا الرابط , ومن ثم النظر علي الموضوع , وبداخل الموضوع سوف تجد ايضاً ردي في اخر الموضوع , [ اضغط هنا للدخول الي هذا الموضوع ] .

(11-03-15, 01:21 PM)سعود كتب : [ -> ]



أولاً شكراً جزيلاً اخي سعود علي اهتمامك
ولكن :
1- انا شغال بفيجول بيسك 2010
2- انا بعرف احفظ البيانات تمام
المشكلة هي انه اذا تم تحريك أو نسخ البرنامج من مكان لاخر , فا يتم وضع البيانات الافتراضية للبرنامج , يعني الحقول بترجع فاضية ذي ما كانت , كل ما أريده هو طريقة حفظ الاعدادات والبيانات لكي استطيع تحريك البرنامج مع الاحتفاظ بالبيانات الموجودة بداخلة , يرجي ان لا تكون هذه الطريقة بملف خارجي يرجي ان تكون الطريقة عبارة عن كود اكتبة يحفظ البيانات داخل البرنامج بمعني ان يكون البرنامج ملف واحد بصيغة exe. وليس عدة ملفات ترافقه لكي يعمل وشكراً جزيلاً علي اهتمامك .