منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اعدل حقل من نوع (نعم/ لا) من خلال الاستعلام من الداتا قريد

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

كيف اعدل حقل من نوع (نعم/ لا) من خلال الاستعلام من الداتا قريد

توضيح لدي جدول به

NUM نوعه نص
TYPE نوعه نص
CO نوعه نعم/لا

ومن خلال شاشة تظهر في اداة الداتا قريد بيانات NUM AND TYPE فقط بدون CO

اريد تعديل CO التي يكون NUM AND TYPE موجودين على الداتا قريد من TRUE الى FULSE

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

أنا قريت موضوع مرتين وقلت يمكن في الثالثة أفهم المطلوب بس مافهمته وقلت يمكن في الرابعة أفهم بس مافهمته.

بصراحة لم أعرف ما تريد من CO أن يكون في الاستعلام.

الف شكر اولاً على تعاونك

عندي كما ذكرت جدول للمواد فيه
Name
Num
Type
+ حقل من نوع نعم/لا اسمه Co
استخدم هذا الحقل للدلاله على ان المواد مسلمة في حالة ان الحقل True وفي حالة أن الحقل False يعني ان المادة ليست مسلمة

المطلوب

البحث في القريد بخانة Num و خانة Type اي بالرقم والنوع ولا يهم الاسم
فإذا كان موجود في قاعدة البيانات يجعل حقل Co = False

وإذا لم يكن موجود في الداتا قريد لا يغير شي

اي التعديل على اسجلات الموجودة في الداتا قريد سواء كانت واحد او اكثر حسب الموجود

اتمنى ان اكون قد وفقت لشرح المطلوب

الفكرة تتلخص في عمل loop لصفوف الداتاجريد فيو

For I as integer = 0 to datagridview.row count -1
Dim r as datagridviewrow = datagridview.rows(I)
Dim type as integer=r.cells(1)
جملة تحديث البيانات هنا وليكن
Update table set co=true where type=@t and number=@n
Next

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

فكرت أخونا أمجد سليمة، بس من فين جات البيانات التي الداتاجريدفيو.

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

ما أدري هل يفيدك هذا الكود، جرب

PHP كود :

Dim connString As String = "Provider=..."

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Using conn As New OleDbConnection(connString)
        conn.Open()

        For Each row As DataGridViewRow In Me.DataGridView1.Rows

            Dim sqlString = _
                " UPDATE [table1]  " & _
                " SET [Co]=@Co " & _
                " WHERE ([Type]=@Type) AND ([Num]=@Num) "

            Using cmd As New OleDbCommand(sqlString, conn)
                ' لاحظ ترتيب البارامترات بنفس ترتيب تواجدها في جملة الاسكويل '
                cmd.Parameters.AddWithValue("@Co", True)
                cmd.Parameters.AddWithValue("@Type", row.Cells(1).Value) ' على اساس عمود النوع رقمه 1 '
                cmd.Parameters.AddWithValue("@Num", row.Cells(2).Value) ' على اساس عمود الرقم رقمه 2 '

                cmd.ExecuteNonQuery()

            End Using

        Next

        conn.Close()
    End Using

End Sub 

الف شكر للجميع

Big Grin

10%10

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

aftfm

الوليد ☺

aftfm

amgadtamer

الوليد ☺

aftfm