1نت دوت بيسك فيجوال وبرنامج اكسيل برنامج بين اتصال عمل

Function Getdata(ByVal FilePath As String, ByVal sql As String) As DataTableDim MyConnection As New OleDb.OleDbConnectionDim MyCommand As New OleDb.OleDbCommandDim da As New OleDb.OleDbDataAdapterDim dt As New DataTable

MyConnection.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & FilePath & "; " & "Extended Properties=Excel 8.0"MyCommand.Connection = MyConnectionMyCommand.CommandText = sqlda.SelectCommand = MyCommandda.Fill(dt)Return dt

End Function

2كومبو داخل تكرار بدون بالقارات قائمة 1اظهار

Dim dt As New DataTabledt = Getdata("d:\atlas1\databases\atlas.xls", "select distinct القارة from [data$]")Me.ComboBox1.DataSource = dtMe.ComboBox1.DisplayMember = dt.Columns(0).ToStringMe.ComboBox1.ValueMember = dt.Columns(0).ToStringMe.ComboBox1.SelectedIndex = 1

3كومبو داخل المختارة القارة حسب بالدول قائمة 2اظهار

TryDim dt As New DataTabledt = Getdata("d:\atlas1\databases\atlas.xls", "select الدولة from [data$]where القارة='" & Me.ComboBox1.SelectedValue & "' ")Me.ComboBox2.DataSource = dtMe.ComboBox2.DisplayMember = dt.Columns(0).ToStringMe.ComboBox2.ValueMember = dt.Columns(0).ToStringMe.ComboBox2.SelectedIndex = 2Me.ComboBox2.SelectedIndex = 0

Catch ex As ExceptionEnd Try

4 ) المختارة ) – – الدولة حسب المياه مصادر الموانئ اهم العاصمة الدولة بيانات اظهار

Dim dt As New DataTabledt = Getdata("d:\atlas1\databases\atlas.xls", "select * from [data$]where الدولة='" & Me.ComboBox2.SelectedValue & "' ")Me.Label6.Text = dt.Rows(0).Item(2).ToStringMe.Label7.Text = dt.Rows(0).Item(3).ToString

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

5الصور صناديق داخل الدولة وخريطة الدولة علم صورة اظهار

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)

6للدولة الوطني النشيد اظهار

Dim anthemMP3 As String = "d:\atlas1\anthem\" & dt.Rows(0).Item(1).ToString & ".mp3"Me.AxWindowsMediaPlayer1.URL = anthemMP3