riyana's blog: Visual Basic dengan SQL Server

Assalamu'alaikum Wr.Wb

Pada pertemuan ke-9 Pemrograman Visual saya diberi tugas untuk menghubungkan Visual Basic dengan database pada SQL Server. Langkah yang kita lakukan awalnya yaitu membuat database :
1. Buka SQL Server 2005
2. Klik kanan Database --> New Database
3. Buat databasenya kasihkan namanya
4. Lalu buat tabel dengan klik kanan Tabels
5. Pilih New Tabels
Berikut format tabelnya :
- nim char(10) not null primary key
- nama varchar(20)
- alamat varchar(50)
- tgllahir datetime
- jurusan char(2)
- spptetap decimal(18,0)

Di bawah adalah tampilan tablenya

Apabila table telah dibuat lalu kita koneksikan dengan Visual Basic.
1. Masuk ke Visual Basic
2. Pada menu Toolbar pilih Data --> Add New Data Source
3. Ikuti langkah yang ada
4. Untuk menampilkan databasenya pilih Data --> Show Data Source
5. Untuk menampilkan database ke form tinggal di drag.
6. Untuk memampilkan tombol-tombol tambahan menggunakan button

Syntax untuk program pada Visual Basic adalah di bawah ini

Public Class Form1

    Private Sub Table_mahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_mahasiswaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table_mahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)

    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 'Dbmahasiswa2DataSet.Table_mahasiswa' table. You can move, or remove it, as needed.
        Me.Table_mahasiswaTableAdapter.Fill(Me.Dbmahasiswa2DataSet.Table_mahasiswa)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Table_mahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Table_mahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Table_mahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table_mahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Validate()
        Me.Table_mahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Table_mahasiswaBindingSource.AddNew()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Table_mahasiswaBindingSource.RemoveCurrent()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim NIM As String = InputBox("Masukkan NIM yang dicari", "Pencarian")

        If (Table_mahasiswaBindingSource.Find("nim", NIM) > -1) Then
            MsgBox("ketemu", vbOK, "cari")
            Table_mahasiswaBindingSource.Position = Table_mahasiswaBindingSource.Find("nim", NIM)
        Else
            MsgBox("ga ketemu", vbOK, "cari")
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If (ComboBox1.Text = "SI") Then
            Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
        ElseIf (ComboBox1.Text = "TI") Then
            Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
        End If
        '
    End Sub


End Class

Di bawah ini tampilan running awal