منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ وعرض - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32463)

حفظ وعرض - Mtaktak - 10-12-19

السلام عليكم
عملت ربط لقاعدة البيانات في البرنامج عن طريق الكود
سؤالي عن كيفية الحفظ و الاستعراض في حال كنت استخدم عدة Text Boxes   وليس  DataGridView

لاني تعبت ابحث ولم اجد الا التعامل مع   DataGridView

اريد فقط الكود الخاص بالحفظ والاستعراض من والى قاعدة البيانات

RE: حفظ وعرض - ابراهيم ايبو - 10-12-19

السلام عليكم اخي الكريم
تابع هذه الدورة وسوف تجد ضالتك فيها ان شاء الله
مع قواعد البيانات من نوع SqlServer
https://www.youtube.com/watch?v=gaAkpRmZfhI&list=PLwj1YcMhLRN1j8AqbgSRjbZmDTIQGOK4b

RE: حفظ وعرض - Mtaktak - 14-12-19

السلام عليكم
اشكر مرورك اخي الكريم

الدورة جيدة جدا
ولكن لم اجد ضالتي فيها
ولو تلاحظ ان في الدورة الاعتماد على DataGridView لعرض البيانات المطلوبة من الداتا

سؤالي :

لو عندي
تكست بوكس للاسم
تكست بوكس لرقم الهاتف

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

Textbox1.Text= ........

ولك الشكر

RE: حفظ وعرض - ابراهيم ايبو - 14-12-19

السلام عليكم اخي الكريم
لماذا تستخدم مربعات النصوص فقط بدون داتاغرايد فيو ؟ 
الداتا غرايد افضل للعرض وحرية البرمجة
اليك مثال كود عرض السجلات في التكست بوكسات طبعا سيجلب لك اول سجل وهو السجل ذو الاندكس 0
كود :
  Private Sub loddata()
       Try
           Dim da As New OleDbDataAdapter(" SELECT * From ITEMS ", con)
           Dim dt As New DataTable
           If da.Fill(dt) > 0 Then
               Txt_Itm_ID.Text = dt.Rows(0)(0).ToString
               Txt_Itm_Name.Text = dt.Rows(0)(1).ToString()
               Txt_Itm_Marka.Text = dt.Rows(0)(2).ToString()
               Txt_Itm_Price.Text = dt.Rows(0)(3).ToString()
           End If

       Catch ex As Exception
           MsgBox("خطأ في جلب البيانات")
       End Try
   End Sub
   'loddata() وفي حدث فورم لود نستدعي الصب
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       loddata()
   End Sub


RE: حفظ وعرض - Mtaktak - 14-12-19

10000000000000 مليون شكر ما قصرت هذا الي ابغاه


طيب بالحفظ عكس الكووود ؟؟

RE: حفظ وعرض - Mtaktak - 15-12-19

شكرا لك

انا حليتها بالطريقة هذي

Me.cmbName.Text = dt.Rows(0)("Name")
Me.cmbID.Text = dt.Rows(0)("ID")

RE: حفظ وعرض - ابراهيم ايبو - 15-12-19

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


RE: حفظ وعرض - Mtaktak - 16-12-19

الف مليون شكر .... ما قصرت اخوي على هالمجهود الله يكثر من امثالك