• 0
ssayed111

اداة BackgroundWorker

سؤال

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .