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

أريد كود لحفظ اليانات التي أقوم بكتابتها في التكست بوكس الفارغ إلي التكست بوكس الموجود [ من 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. وليس عدة ملفات ترافقه لكي يعمل وشكراً جزيلاً علي اهتمامك .

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

sv25b858

احمد عبد الحكيم

sv25b858

سعود

sv25b858

سعود

sv25b858