MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010
Langkah – Langkah
- Klik Start – All Programs – Microsoft SQL Server 2005 – SQL Server Managenent Studio
- Lengkapi isian kemudian click connect
- Buat database baru
- Beri nama pada database name dengan dbmahasiswa kemudian tekan OK
- Double Click pada Databases kemudian double click pada Dbmahasiswa
- Click kanan pada table kemudian pilih new table
- Buat Table dengan struktur sbb beri nama tbmahasiswa kemudian simpan
- Klik kanan pada dbmahasiswa kemudian klik open table
- Isi table dbmahasiswa sesuai dengan kebutuhan
- Buat Project Baru di VB. Net 2010 kemudian buat form baru seperti tampilan berikut ini:
- Koneksikan form dengan database :Data – Add New Data Source – Database
- Tekan Next Pilih New Connection- Microsoft SQL Server-Continue
- Lengkapi isian kemudian tekan test connection . Jika sukses berarti koneksi ke database berhasil
- Tekan ok kemudian next
- dan kemudian pada Coose data base pilihlah mana tabel yang akan ditampilkan
- Selanjutnya bukalah Visual Basic 2010 lalu buat project baru dengan design seperti berikut:
- membuat tombl navigasi: First, Last, Previous, Next, Tambah, Filter, Save, Edit
- selanjutnya memasukan source kode pada masing-masing tombol navigasi, berikut merupakan kodingnya:
Public Class Form1
Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click
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
TbmahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click
TbmahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button4.Click
TbmahasiswaBindingSource.MoveLast()
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button5.Click
NIMTextBox.Text = “”
NAMATextBox.Text = “”
TGLLAHIRDateTimePicker.Text = “”
ALAMATTextBox.Text = “”
JURUSANComboBox.Text = “”
SPPTETAPTextBox.Text = “”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button6.Click
Me.TbmhsTableAdapter.Fill(Me.LutfiDataSet.tbmhs)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button7.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.LutfiDataSet)
End Sub
End Class
lutfiayu50 