• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'BackgroundWorker'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 1 نتيجة

  1. السلام عليكم ورحمة الله وبركاته ارجوا من الاعضاء الكرام  شرح طريقة استخدام الاداة فى تنفيذ هذا الكود con.Close()   con.Open()   Dim dataset12 As New DataSet   Dim dataadap12 As New OleDbDataAdapter("select * from tab_duc where ID_main=" & ID_MAIN.Text & " ", con)         dataadap12.Fill(dataset12)   If dataset12.Tables(0).Rows.Count > 0 Then   For i = 0 To dataset12.Tables(0).Rows.Count - 1     DataGridView1.Rows.Add()   DataGridView1.Rows(i).Cells(0).Value = dataset12.Tables(0).Rows(i).Item("id")   DataGridView1.Rows(i).Cells(1).Value = dataset12.Tables(0).Rows(i).Item("k_duc") next end if