Public Class Form1

Function Getdata(ByVal FilePath As String, ByVal sql As String) As

DataTable

Dim MyConnection As New OleDb.OleDbConnection

Dim MyCommand As New OleDb.OleDbCommand

Dim da As New OleDb.OleDbDataAdapter

Dim dt As New DataTable

MyConnection.ConnectionString =

"provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & FilePath &

"; " & "Extended Properties=Excel 8.0"

MyCommand.Connection = MyConnection

MyCommand.CommandText = sql

da.SelectCommand = MyCommand

da.Fill(dt)

Return dt

End Function

فتح قناة االتصال بين برنامج اكسيل وبرنامج فيجوال بيسك

Getdata الدالةاالعالن عن

االعالن عن المتغيرات

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs)

Handles Me.Shown

Dim dt As New DataTable

dt = Getdata("d:\atlas1\databases\atlas.xls",

"select distinct القارةfrom [data$]")

Me.ComboBox1.DataSource = dt

Me.ComboBox1.DisplayMember = dt.Columns(0).ToString

Me.ComboBox1.ValueMember = dt.Columns(0).ToString

Me.ComboBox1.SelectedIndex = 1

End Sub

Data Table (DT)

القارة الدولة العاصمة اهم الموانئ مصادر المياه

Column(4) Column(3) Column(2) Column(1) Column(0)

Row 0 اسيا السعودية الرياض جدة وادي فجر

Row 1 اسيا الكويت الكويت االحمدي وادي الباطن

Row 2 اسيا اليمن صنعاء عدن وادي الخارد

Row 3 افريقيا مصر القاهره االسكندرية نهر النيل

Row 4 افريقيا المغرب الرباط الدار البيضاء نهر الربيع

Row 5 افريقيا تونس تونس صفاقس وادي مليان

dt انشاء قائمة بالقارات بدون تكرار داخل

ComboBox1 قائمة بالقارات بدون تكرار داخل وضع

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Try

Dim dt As New DataTable

dt = Getdata("d:\atlas1\databases\atlas.xls", "select الدولةfrom

[data$]where القارة='" & Me.ComboBox1.SelectedValue & "' ")

Me.ComboBox2.DataSource = dt

Me.ComboBox2.DisplayMember = dt.Columns(0).ToString

Me.ComboBox2.ValueMember = dt.Columns(0).ToString

Me.ComboBox2.SelectedIndex = 2

Me.ComboBox2.SelectedIndex = 0

Data Table (DT)

القارة الدولة العاصمة اهم الموانئ مصادر المياه

Column(4) Column(3) Column(2) Column(1) Column(0)

Row 0 اسيا السعودية الرياض جدة وادي فجر

Row 1 اسيا الكويت الكويت االحمدي وادي الباطن

Row 2 اسيا اليمن صنعاء عدن وادي الخارد

Row 3 افريقيا مصر القاهره االسكندرية نهر النيل

Row 4 افريقيا المغرب الرباط الدار البيضاء نهر الربيع

Row 5 افريقيا تونس تونس صفاقس وادي مليان

Catch ex As Exception

End Try

End Sub

dt في قائمة القارات قائمة بالدول حسب القارة المختارة وضع

في

ComboBox2 قائمة بالدول حسب القارة المختارة في وضع

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

Try

Dim dt As New DataTable

dt = Getdata("d:\atlas1\databases\atlas.xls", "select * from

[data$]where الدولة='" & Me.ComboBox2.SelectedValue & "' ")

Me.Label6.Text = dt.Rows(0).Item(2).ToString

Me.Label7.Text = dt.Rows(0).Item(3).ToString

Me.Label8.Text = dt.Rows(0).Item(4).ToString

Data Table (DT)

القارة الدولة العاصمة اهم الموانئ مصادر المياه

Item (4) Item (3) Item (2) Item (1) Item (0)

Row 0 اسيا السعودية الرياض جدة وادي فجر

Row 1 اسيا الكويت الكويت االحمدي وادي الباطن

Row 2 اسيا اليمن صنعاء عدن وادي الخارد

Row 3 افريقيا مصر القاهره االسكندرية نهر النيل

Row 4 افريقيا المغرب الرباط الدار البيضاء نهر الربيع

Row 5 افريقيا تونس تونس صفاقس وادي مليان

اظهار بيانات الدولة علي حسب الدولة المختارة في قائمة

وتخزينها في dt الدول

Label6 اظهار العاصمة

في

Label7 اظهار اهم الموانئ

في

Label8 اظهار مصادر المياه

في

Dim PicName As String = dt.Rows(0).Item(1).ToString & ".png"

Me.PictureBox1.Image = Image.FromFile("d:\atlas1\flags\" &

PicName)

Me.PictureBox2.Image = Image.FromFile("d:\atlas1\maps\" &

PicName)

Dim anthemMP3 As String = " d:\atlas1\anthem\" &

dt.Rows(0).Item(1).ToString & ".mp3"

Me.AxWindowsMediaPlayer1.URL = anthemMP3

Data Table (DT)

القارة الدولة العاصمة اهم الموانئ مصادر المياه

Item (4) Item (3) Item (2) Item (1) Item (0)

Row 0 اسيا السعودية الرياض جدة وادي فجر

Row 1 اسيا الكويت الكويت االحمدي وادي الباطن

Row 2 اسيا اليمن صنعاء عدن وادي الخارد

Row 3 افريقيا مصر القاهره االسكندرية نهر النيل

Row 4 افريقيا المغرب الرباط الدار البيضاء نهر الربيع

Row 5 افريقيا تونس تونس صفاقس وادي مليان

Catch ex As Exception

End Try

End Sub

End Class

اظهار علم الدولة علي حسب الدولة المختارة في قائمة الدول

اظهار خريطةالدولة علي حسب الدولة المختارة في قائمة

الدول

الوطني للدولة علي حسب الدولة المختارة في قائمة اظهار النشيد

الدول