Contoh Function di Vb.net

Untuk mempersingkat penulisan kode di Vb.net supaya tidak perlu menulisnya berulang-ulang kita bisa menggunakan function. Disini AlifaVb telah mengumpulkan beberapa function yang sering kita gunakan untuk melakukan manipulasi database MySql.

1. Fungsi Koneksi

Public Function myconnecction() As MySqlConnection
        Dim str As String = "server=localhost;user id=root;password=;database=db_test;"
        Return New MySqlConnection(str)
End Function

Fungsi ini kita gunakan untuk menghubungkan antara Vb.net dengan MySql database, jangan lupa sesuaikan string koneksi nya dengan database anda.

2. Fungsi Insert

Public Function insertdata(ByVal sql As String) As Boolean
        Try
            MyConn.Open()
            With cmd
                .Connection = MyConn
                .CommandText = sql
                result = cmd.ExecuteNonQuery
                If result = 0 Then
                    Return False
                Else
                    Return True
                End If
            End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information)
        Finally
            MyConn.Close()
        End Try
    End Function

Fungsi ini kita gunakan untuk insert data ke database, biasanya penggunaan nya menggunakan Button. Contoh penggunaannya sebagai berikut.

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        If btnsave.Text = "Save" Then
            test = insertdata("INSERT INTO `tbl_test` (`ID`, `NAMA`, `ALAMAT`) VALUES (NULL, '" & txtnama.Text & "', '" & txtalamat.Text & "');")
            If test = True Then
                MsgBox("Data berhasil di input!!")
            Else
                MsgBox("Gagal!")
            End If
        End If
End Sub

3. Fungsi Update

    Public Function updatedata(ByVal sql As String) As Boolean
        Try
            MyConn.Open()
            With cmd
                .Connection = MyConn
                .CommandText = sql
                result = cmd.ExecuteNonQuery
                If result = 0 Then
                    Return False
                Else
                    Return True
                End If
            End With
        Finally
            MyConn.Close()
        End Try
    End Function

Fungsi ini kita gunakan untuk mengubah data yang telah ada dalam database. Contoh penggunaan nya adalah sebagai berikut.

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        If btnsave.Text = "Update" Then
          test = updatedata("UPDATE `tbl_test` SET `CATNANAMAME`='" & txtnama.Text & "', `ALAMAT`= '" & txtalamat.Text & "' WHERE ID=" & Val(id.Text) & " ;")
            If test = True Then
                MsgBox("Data telah diupdate!")
                btnsave.Text = "Save"
                           Else
                MsgBox("Gagal update data!")
            End If
        End If
    End Sub

4. Fungsi Delete

Public Function deletedata(ByVal sql As String) As Boolean
        Try
            MyConn.Open()
            With cmd
                .Connection = MyConn
                .CommandText = sql
                result = cmd.ExecuteNonQuery
                If result = 0 Then
                    Return False
                Else
                    Return True
                End If
            End With
        Finally
            MyConn.Close()
        End Try
    End Function

Fungsi ini kita gunakan untuk menghapus satu baris data yang ada dalam database. Contoh penggunaannya adalah sebagai berikut.

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        If id.Text <> "" Then
          test = deletedata("DELETE FROM `tbl_test` WHERE ID=" & Val(id.Text) & " ;")
            If test = True Then
                MsgBox("Data telah dihapus!")
            Else
                MsgBox("Gagal hapus data!")
            End If
        End If
    End Sub

Semoga bermanfaat.

Salam Hangat
AlifaVb