![1
نت دوت بيسك فيجوال وبرنامج اكسيل برنامج بين اتصال عمل
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
2
كومبو داخل تكرار بدون بالقارات قائمة اظهار1
Dim dt As New DataTable
dt = Getdata("d:atlas1databasesatlas.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
3
المختارة القارة حسب بالدول قائمة اظهاركومبو داخل2
Try
Dim dt As New DataTable
dt = Getdata("d:atlas1databasesatlas.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
Catch ex As Exception
End Try](https://image.slidesharecdn.com/2015-150204020133-conversion-gate01/85/2015-1-320.jpg)
![4
(العاصمة الدولة بيانات اظهار–الموانئ اهم–المختارة الدولة حسب )المياه مصادر
Dim dt As New DataTable
dt = Getdata("d:atlas1databasesatlas.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
5
داخل الدولة وخريطة الدولة علم صورة اظهارالصور صناديق
Dim PicName As String = dt.Rows(0).Item(1).ToString & ".png"
Me.PictureBox1.Image = Image.FromFile("d:atlas1flags" & PicName)
Me.PictureBox2.Image = Image.FromFile("d:atlas1maps" & PicName)
6
للدولة الوطني النشيد اظهار
Dim anthemMP3 As String = "d:atlas1anthem" & dt.Rows(0).Item(1).ToString & ".mp3"
Me.AxWindowsMediaPlayer1.URL = anthemMP3](https://image.slidesharecdn.com/2015-150204020133-conversion-gate01/85/2015-2-320.jpg)
More Related Content
Viewers also liked (9)
More from Omar Computer Teacher (20)
Recently uploaded (9)
كود اطلس 2015
- 1. 1 نت دوت بيسك فيجوال وبرنامج اكسيل برنامج بين اتصال عمل 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 2 كومبو داخل تكرار بدون بالقارات قائمة اظهار1 Dim dt As New DataTable dt = Getdata("d:atlas1databasesatlas.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 3 المختارة القارة حسب بالدول قائمة اظهاركومبو داخل2 Try Dim dt As New DataTable dt = Getdata("d:atlas1databasesatlas.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 Catch ex As Exception End Try
- 2. 4 (العاصمة الدولة بيانات اظهار–الموانئ اهم–المختارة الدولة حسب )المياه مصادر Dim dt As New DataTable dt = Getdata("d:atlas1databasesatlas.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 5 داخل الدولة وخريطة الدولة علم صورة اظهارالصور صناديق Dim PicName As String = dt.Rows(0).Item(1).ToString & ".png" Me.PictureBox1.Image = Image.FromFile("d:atlas1flags" & PicName) Me.PictureBox2.Image = Image.FromFile("d:atlas1maps" & PicName) 6 للدولة الوطني النشيد اظهار Dim anthemMP3 As String = "d:atlas1anthem" & dt.Rows(0).Item(1).ToString & ".mp3" Me.AxWindowsMediaPlayer1.URL = anthemMP3