كود اطلس 2015

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:\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 3 و ب م و ك ل خ دا ارة ت خ م ل ا ارة ق ل ا ب س حدول ال ن : مة ئ ا هار ق> ظ ا2 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 Catch ex As Exception End Try

Upload
omar-computer-teacher
Category

Education
view
227
download
0

Embed Size (px):

Transcript of كود اطلس 2015

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