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

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

الصفحات: 1 2

تفريغ الجدول يحوي حقل فارغ - sads - 28-03-19

السلام عليكم ورحمة الله وبركاته

إخوتي أحناج إلى حل في مشكلة برمجية واقع بها وهي أن البرنامج عند إستدعاء جدول به حقول فارغ وعرضة في الجدول لا ينتج لي خطأ 

ولاكن عندما أنقر على صف يحوي حقل فارغ لتفريغة في حقول text ينتج لي خطأ حيث أن البرنامج غير قادر على إستدعاء الحقل


فما الحل رجاءاً

الأكواد

Dim con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\database.accdb")

    Dim da As OleDbDataAdapter
    Dim dt As DataTable
---------------------------------------------------------------------------------------------
  Sub load_data(ByVal tablechose As String)

        da = New OleDbDataAdapter("Select * from " & tablechose & " order by id", con)
        dt = New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
        DataGridView1.Columns(0).HeaderText = "رقم التسلسل"
        DataGridView1.Columns(0).Width = 40
        DataGridView1.Columns(1).HeaderText = "إسم الطالب"
        DataGridView1.Columns(2).HeaderText = "رفم القيد"
        DataGridView1.Columns(3).HeaderText = "الفصل الدراسي"
        DataGridView1.Columns(4).HeaderText = "مادة1"
        DataGridView1.Columns(5).HeaderText = "مادة2"
    End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick


        Dim posesion As Integer = BindingContext(dt).Position
        TextBox1.Text = dt.Rows(posesion).Item(1)
        TextBox2.Text = dt.Rows(posesion).Item(2)
        TextBox3.Text = dt.Rows(posesion).Item(3)
        TextBox4.Text = dt.Rows(posesion).Item(4)
        TextBox5.Text = dt.Rows(posesion).Item(5)
    End Sub


RE: تفريغ الجدول يحوي حقل فارغ - ابراهيم ايبو - 28-03-19

السلام عليكم اخي الكريم
اخي استخدم الحدث  SelectionChanged لعرض البيانات من الداتا غرايد فيو الى مربعات  النصوص
واليك مثال انشاته لك فيه حقول فارغة 


RE: تفريغ الجدول يحوي حقل فارغ - sads - 29-03-19

(28-03-19, 09:49 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
اخي استخدم الحدث  SelectionChanged لعرض البيانات من الداتا غرايد فيو الى مربعات  النصوص
واليك مثال انشاته لك فيه حقول فارغة 

أحسنت أخي ولك كل الشكر 

لو سمحت طلب أخر من حضرتك 
كيف أرسل الحقول الفارغة إلى الجدول عند الحفظ أو التعديل فقد حدث معي أني لم أستطع الحفظ في حال كان أحد الحقول فارغ
أرجو التوضيح لي بمثال على الملف الذي أرسلته لي لكي تكتمل لي فكرة الأكواد
أشكرك أخي


RE: تفريغ الجدول يحوي حقل فارغ - ابراهيم ايبو - 29-03-19

السلام عليكم اخي الكريم
الحمد والشكر لله ثم لك وارجو ان تكون في اتم الصحة والعافية
تفضل احي هذا المثال السابق بعد اضافة اكواد الحفظ والتعديل والجذف وغيرها


RE: تفريغ الجدول يحوي حقل فارغ - atefkhalf2004 - 29-03-19

بعد اذنك
كيف يعود المؤشر الي السجل الذي تم تعديلله

RE: تفريغ الجدول يحوي حقل فارغ - ابراهيم ايبو - 29-03-19

السلام عليكم اخي عاطف
اولا عرف متغير من نوع integer في الكلاس 
dim ff as integer 
وفي بداية كود التعديل اجعل قيمته 
ff =0
ثم اسند له قيمة مربع الاي دي 
)ff = Val (text_Id.text

ثم في نهاية كود التعديل اكتب هذا الكود
DataGridView.Rows(ff - 1).Selected = True


RE: تفريغ الجدول يحوي حقل فارغ - sads - 29-03-19

(29-03-19, 01:01 PM)ابراهيم ايبو كتب :
السلام عليكم اخي عاطف
اولا عرف متغير من نوع integer في الكلاس 
dim ff as integer 
وفي بداية كود التعديل اجعل قيمته 
ff =0
ثم اسند له قيمة مربع الاي دي 
)ff = Val (text_Id.text

ثم في نهاية كود التعديل اكتب هذا الكود
DataGridView.Rows(ff - 1).Selected = True

جمعة مباركة على الجميع

الله يبارك فيك أخي إبراهيم إيبو و إن شاء الله يكون عملك هذا في ميزان حسناتك
شكراً أستاذي
أخي / لقد واجهني خطأ في هذا السطر 

DataGridView.Rows(ff - 1).Selected = True

عند الحفظ أيظاً أريدة أن يقف عند السجل الذي حفظ

RE: تفريغ الجدول يحوي حقل فارغ - ابراهيم ايبو - 29-03-19

السلام عليكم 
المثال بعد التعديل

RE: تفريغ الجدول يحوي حقل فارغ - atefkhalf2004 - 29-03-19

شكرا  لك مستر ابراهيم

كمالة الجميل

مؤشر التحديد
مازال  علي السجل الاول
كيف انقله الي السجل المعدل

RE: تفريغ الجدول يحوي حقل فارغ - sads - 29-03-19

(29-03-19, 02:23 PM)ابراهيم ايبو كتب : السلام عليكم 
المثال بعد التعديل

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

والمطلوب هنا أ أريدة أن يطبق على زر الحفظ

طلب أخر لو تكرمت أخي
داخل قاعدة البيانات لدي توجد بعد الحقول من Integer وعند الحفظ تظهر رسالة خطأ بعدم توافق نوع البيانات المدخلة مع اني أدخل أرقام
وكذلك معرف المتغير في كود insert على انه Integer فما الحل في ذلك