تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أريد كود استعادة حقل واحد من الداتا بيس الي تكست بوكس ؟ التفاصيل في الداخل .
#1



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

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

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

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

الرد
تم الشكر بواسطة:
#2
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()
الرد
تم الشكر بواسطة: sv25b858
#3
(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()

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

ياليت توضح الخوارزمية كاملة.
الرد
تم الشكر بواسطة:
#5
(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


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

الرد
تم الشكر بواسطة:
#6


الملفات المرفقة
.zip   Frm.zip (الحجم : 35.07 ك ب / التحميلات : 49)
الرد
تم الشكر بواسطة: العزابي , sv25b858
#7
(11-03-15, 01:21 PM)سعود كتب :



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

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف أفتح كل صورة من رابط داخل البيكتر بوكس bidaya 8 134 منذ 4 ساعة مضت
آخر رد: 3booody
  سؤال في الداتا جريد فيو Emam emam 9 108 , 05:43 AM
آخر رد: asemshahen5
  [VB.NET] سؤال في الداتا جريد فيو كود شرط moha8080 2 71 17-11-19, 04:53 PM
آخر رد: moha8080
  سؤال فى الليست بوكس احمد خطاب 8 111 16-11-19, 07:21 PM
آخر رد: احمد خطاب
  سؤال فى الكومبو بوكس والزر احمد خطاب 27 275 16-11-19, 07:08 PM
آخر رد: asemshahen5
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 86 15-11-19, 06:33 PM
آخر رد: SnTnt
  [VB.NET] تغير اسم الاعمدة في الداتا كريت سلام م 3 71 14-11-19, 07:08 PM
آخر رد: asemshahen5
  أريد تحويل مشروعي من اكسس الى sql Dr.Sherif Alazizi 20 7,292 08-11-19, 01:27 PM
آخر رد: ggtt17121985
  ارجو المساعده فى عمل كود تفعيل يفعل ايبي جهاز واحد فقط على زهران 0 66 01-11-19, 05:55 PM
آخر رد: على زهران
  سؤال فى الكومبو بوكس احمد خطاب 16 345 01-11-19, 04:33 PM
آخر رد: احمد خطاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم