السلام عليكم ورحمة الله وبركاته
ارجوا من الاعضاء الكرام شرح طريقة استخدام الاداة فى تنفيذ هذا الكود
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
