PERANAN TEKNOLOGI INFORMASI DALAM PARIWISATA

Teknologi Informasi adalah istilah umum yang menjelaskan teknologi apa pun yang membantu manusia dalam membuat, mengubah, menyimpan, mengkomunikasikan dan/atau menyebarkan informasi. TI menyatukan komputasi dan komunikasi berkecepatan tinggi untuk data, suara, dan video.

Sedangkan Pariwisata adalah suatu perjalanan yang dilakukan untuk rekreasi atau liburan, dan juga persiapan yang dilakukan untuk aktivitas ini. Seorang wisatawan atau turis adalah seseorang yang melakukan perjalanan paling tidak sejauh 80 km (50 mil) dari rumahnya dengan tujuan rekreasi, merupakan definisi oleh Organisasi Pariwisata Dunia. Definisi yang lebih lengkap, turisme adalah industri jasa. Mereka menangani jasa mulai dari transportasi, jasa keramahan, tempat tinggal, makanan, minuman, dan jasa

Menampilkan isi tabel pada combobox dengan VB.Net

database yang digunakan yaitu database northwind.. sudah ada otomatis saat menginstall sql server..

tanpa banyak basa basi.. buatlah form seperti gambar dibawah dengan 1 buah combox, 1 buah button dan 1 buah label.


lalu buat coding di berikut :

Imports System.Data.SqlClient
Public Class Form1
Dim x As String
Private cnstr As String = "server=.;user=sa;password=123456;database=northwind"
'Private cnstr As String = "server=.;integrated security=true;database=northwind"

Private Function isian(ByVal sql As String) As DataSet
Dim ds As New DataSet
Dim da As SqlDataAdapter
Using cn As New SqlConnection(cnstr)
Try
cn.Open()
da = New SqlDataAdapter(sql, cn)
da.Fill(ds)
Catch ex As Exception
ds = Nothing
MsgBox(ex.Message)
End Try
End Using
Return ds
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.DataSource = isian("select * from categories").Tables(0)
ComboBox1.DisplayMember = "CategoryID"
ComboBox1.ValueMember = "CategoryName"
ComboBox1.SelectedValue = "CategoryName"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = (ComboBox1.SelectedValue)
End Sub
End Class

atau silahkan download di sini saja
jika membantu tolong di like atau share.. :)