[justforit]

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

PHP كود :

       Dim arr(dgv1.SelectedRows.Count - 1)
        Dim n As Integer = 0
        For Each row As DataGridViewRow In dgv1.SelectedRows
            ReDim Preserve arr(n)
            arr(n) = row.Cells(0).Value
            n += 1
        Next
        Dim ids As String = String.Join(",", arr)
        cm.Parameters.Clear()
         cm.CommandText = "update [tb1$] set tid=null, tname=null,tphone=null,temail=null where tid in (" & ids & ")"
        cm.Parameters.AddWithValue("@tid", x) 


PHP كود :

        If con.State = ConnectionState.Closed Then con.Open() 


PHP كود :

        cm.ExecuteNonQuery() 


في حال اضفت الارقام بكود اضافة واستخدم الكود اعلاه تظهر رسالة مشكلة اختلاف البيانات اما لو اضفت ارقام بالاكسل يدويا لا تظهر المشكلة
وحتى لو اضفتها بالكود اذا فتحت الاكسل وحولت ما اضفت بالكود الى ارقام تزول المشكلة..
كود الاضافة
        cm.Parameters.AddWithValue("@tid", rowscount())
والدالة rowscount تعيد عدد صفوف السجلات
و المثال موجود بالموضوع.
المثال اللذي استخدم فيه الـoledb provider  وهو الملف باسم Phone_Book_Using_Excel_vbnet
زر حذف المحدد
ميزة التعامل مع مزودة قاعدة البيانات السرعة لكن تحويل النص الى int   لا يجدي نفعا 

انا متاكد اني لم ادخل نص ابدا فلابد ان هناك كود معين يحفظ الرقم بشكل صحيح.

[justforit]

هذي محلولة من نفس الاكسل و جدت كثير من الناس نفس المشكلة


السؤال الان هو كيف نصيغ كود من الصفوف المحددة من الـ DataGridView  بحيث تكون بالنهاية شي هكذا:

PHP كود :

xlC1Sheet.Rows("10:19").delete() 


هذا سيحذف الصفوف من 10 الى 19 هل بالامكان التعديل عليه بحيث يحذف المحدد فقط؟
قد جربت الكود التالي فهو يقفز صف او صفين:

PHP كود :

       'Dim i As Integer
        'For i = 0 To dgv1.Rows.Count - 1
        '    If dgv1.Rows(i).Selected = True Then
        '        xlws.Rows(i + 2).delete()
        '    End If
        'Next 


[justforit]

والكود التالي لا يحذف كل المحدد !!!
لم افهم مشكلته بعد

PHP كود :

For Each row As DataGridViewRow In dgv1.Rows
     Dim id As String = row.Cells(0).Value
     If row.IsNewRow = False Then
         If row.Selected Then
             xlws.Rows(id).delete()
         End If
     End If
 Next 


متغير الاي دي id هذا يحمل مفس رقم الصف في الاكسل لاني وضعت له قيمة =row() في العمود الاول عند كل اضافة بالكود

PHP كود :

xlws.Range("A" & rowscount).Value = "=row()"