MEMBUAT KONEKSI ANTARA “MICROSOFT VISUAL STUDIO 2010” DENGAN “MICROSOFT SQL SERVER 2005”
Pertama buka “Microsoft SQL Server 2005”,
kemudian akan muncul seperti dibawah ini, pilih connect.
Pada Folder Databases klik kanan New
Database
Isikan nama database, kemudian ok
Pada database yang tadi dibuat, klik kanan
folder Tables kemudian sesuai gambar dibawah ini:
Atur table seperti dibawah ini, beri nama table
dengan tbmahasiswa
Isikan tabel seperti berikut:
Kemudian tutup SQL Server, buka Microsoft
Visual Studio 2010.. klik file > new project > Windows Form Application. Kemudian
klik Menu Data > Add New Data Source, seperti dibawah ini
Add New Data Source berfungsi untuk
menghubungkan database yang di SQL Server dengan vb
Pilih Microsoft SQL Server > Continue
Pada server name isikan name default, yaitu
(.), pada select or enter a database name pilih database yang di buat. Setelah
itu di Test Connection > Ok
Untuk Menampilkan database tersebut, Centang pada Tables kemudian tekan Finish
Klik menu Data> Show Data Sources
<> Drag satu persatu dari data
yang ada dalam tabel.
<> Jika ingin menampilkan berupa
report, drag dari tabel.
<>
Untuk menghilangkan item
standar, klik kanan pada item> Delete
Berikut adalah Source Code dari Button-Button:
1.
First
TbmahasiswaBindingSource.MoveFirst()
2.
Next
TbmahasiswaBindingSource.MoveNext()
3.
Previous
TbmahasiswaBindingSource.MovePrevious()
4.
Last
TbmahasiswaBindingSource.MoveLast()
5.
Add
TbmahasiswaBindingSource.AddNew()
6.
Edit
TbmahasiswaBindingSource.EndEdit()
NIMTextBox.Focus()
7.
Delete
TbmahasiswaBindingSource.RemoveCurrent()
8.
Save
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbafifahDataSet)
9.
Filter
Dim cari As String
cari = InputBox("Masukkan
Jurusan", "Filter ...")
10.
Find
If (TbmahasiswaBindingSource.Find("NIM",
TextBox2.Text)) > -1 Then
MsgBox("Data
ditemukan")
Else
MsgBox("Data
tidak ditemukan")
End If
Source Code lengkap:
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.DbafifahDataSet)
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 'DbafifahDataSet.Tbmahasiswa' table. You can
move, or remove it, as needed.
Me.TbmahasiswaTableAdapter.Fill(Me.DbafifahDataSet.Tbmahasiswa)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
TbmahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
TbmahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
TbmahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
TbmahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
TbmahasiswaBindingSource.AddNew()
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
TbmahasiswaBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
TbmahasiswaBindingSource.EndEdit()
NIMTextBox.Focus()
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
If
(TbmahasiswaBindingSource.Find("NIM",
TextBox2.Text)) > -1 Then
MsgBox("Data
ditemukan")
Else
MsgBox("Data
tidak ditemukan")
End If
End Sub
Private Sub Button9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button9.Click
Dim cari As String
cari = InputBox("Masukkan
Jurusan", "Filter ...")
End Sub
Private Sub Button10_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button10.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbafifahDataSet)
End Sub
End Class
