koneksi SqlServer dengan Microsoft Visual Studio
Langkah lanagkah pengkoneksian
· Bukalah Microsoft Sql Server dan buatlah sebuah Database dengan nama “dbmahasiswa”
menyerupai pada gambar dibawah ini :
· Setelah itu buatlah tabel mahasiswa menyerupai gambar berikut :
·
Lalu modify database berikut menyerupai gambar di bawah:
·
Pada tabel, coba klik kanan kemudian open tabel, Lalu isi tabel tersebut dengan 2 data atau lebih. Seperti pada gambar di bawah ini :
·
Setelah membuat database di dalam Sql Server, Sekarang bukalah Microsoft Visual Studio dan buatlah projek gres dan coba langkah langkah menyerupai di bawah ini :
Bukalah database yang sudah dibentuk dengan meng-klik pada hidangan Data >> Add New Data Source… >> Database, kemudian Next > > Dataset, kemudian Next >> New Connection… >> pilih Microsoft SQL Server, kemudian Continue . Kemudian akan muncul kotak obrolan menyerupai berikut:
Pada bab Server Name, pilih server yang tersedia, Jika tidak dapat kembali ke SQL Server dan sorot nama server (pilih Connect kemudian copy nama server tersebut). Pada Log on to the server pilih Use Windows Authentication. Dan masukkan dbmahasiswa. Lalu Test Connection, bila sukses maka telah siap dikonekkan.
Selanjutnya pilih Next, dan save. Dan tunggu beberapa ketika sampai muncul tampilan. Cek semua table yang akan dipakai pada Visual Basic.
· Setelah semua itu selesai, kembali ke Visual Studio dan pilih hidangan Data kemudian klik Show Data Source
· Setelah itu coba ganti kolom jurusan dengan cara meng.klik kanan kolom jurusan dang anti dengan ComboBox
· Drag semua kolom tersebut kedalam form kemudian buatlah desain menyerupai gambar di bawah ini :
· Pada kolom jurusan, tambahkan “TI” dan “SI” dengan menginputkannya di ComboBox
Lalu isikan coding-codingnya untuk tiap-tiap tombol :
Public Class Form1
Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘DbmahasiswaDataSet.tbmahasiswa’ table. You can move, or remove it, as needed.
Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TbmahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TbmahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.TbmahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.TbmahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.TbmahasiswaBindingSource.AddNew()
NimTextBox.Focus()
TgllahirDateTimePicker.ResetText()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If MsgBox(“Apakah Anda Yakin ?”, vbYesNo + vbQuestion + vbDefaultButton2, “Delete”) = vbYes Then
Me.TbmahasiswaBindingSource.RemoveCurrent()
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If (TbmahasiswaBindingSource.Find(“Nama”, TextBox1.Text)) > -1 Then
MsgBox(“Data berhasil ditemukan”)
Else
MsgBox(“Data tidak berhasil ditemukan”)
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim Mencari As String
Mencari = InputBox(“Masukkan Jurusan Yang Di Cari”, “Filter …”)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.Close()
End Sub
End Class
Setelah itu coba Run Program
ssetelah di jalankan & berhasil :
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like
Fan Page kami, dan
SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.