[جيولوجي مبتدئ]

Imports System.Data.OleDb

Public Class Form1

Dim con As New OleDbConnection

Dim adapter As New OleDbDataAdapter

Dim dtmain_Moad, dtShoab, dtStudents As New DataTable

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

adapter = New OleDbDataAdapter(" select * from main_Moad ", con)

adapter.Fill(dtmain_Moad)

ComboBox1.DataSource = dtmain_Moad

ComboBox1.DisplayMember = "Lable"

ComboBox1.ValueMember = "ID"

Label1.Visible = False

End Sub

Public Sub New()

' This call is required by the designer.

InitializeComponent()

con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\newTemp1\newTemp1.accdb")

' Add any initialization after the InitializeComponent() call.

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

Try

dtShoab.Clear()

adapter = New OleDbDataAdapter(" select * from Shoab where ID_Mada =" & ComboBox1.SelectedValue, con)

adapter.Fill(dtShoab)

ComboBox2.DataSource = dtShoab

ComboBox2.DisplayMember = "Lable"

ComboBox2.ValueMember = "ID"

Catch ex As Exception

End Try

End Sub

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

Try

dtStudents.Clear()

adapter = New OleDbDataAdapter(" select * from Students where Id_Shoba =" & ComboBox2.SelectedValue, con)

adapter.Fill(dtStudents)

DataGridView1.DataSource = dtStudents

Label1.Text = DataGridView1.Rows.Count - 1

Label1.Visible = False

If DataGridView1.Rows.Count - 1 > 0 Then

Label1.Visible = True

End If

Catch ex As Exception

End Try

End SubEnd Sub

(20-10-18, 08:35 PM)عبد العزيز البسكري كتب :

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

و كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟

تحياتي

هذا هو الكود أخي الكريم