TIPS TRIK MEMBUAT MENU UTAMA PADA VISUAL BASIC NET

 MEMBUAT MENU UTAMA APLIKASI PADA PEMROGRAMAN VISUAL BASIC.NET

Fungsi menu utama sendiri adalah untuk menampilkan berbagai macam daftar menu suatu aplikasi tertentu untuk diproses oleh pengguna.  

Kali ini kita akan belajar bagaimana membuat sebuah menu utama pada aplikasi yang kita bangun sehingga form-form yang telah kita rancang dapat kita akses melalui satu jendela kerja dengan langkah-langkah kerja sebagai berikut:

1. Buatlah sebuah form baru – pilih menu project – add new item –windows form – setelah itu            simpan dengan nama apa saja misalnya : Menu Utama

2. Pilih toolbox yang ada di sebelah kiri jendela kerja kita tampak seperi gambar dibawa ini

3. Klik dua kali pada menustrip maka pada form menu kita yang masih kosong akan muncul satu           toolbar baru

4. Klik pada tulisan type here dan tuliskan Menu dan sub menunya di bagian bawah

5. Untuk memanggil form yang ada pada projek kita maka kita klik 2x pada sub menu yang telah

    kita buat dan tulis listingnya seperti dibawah ini (misalnya form1 yang akan saya panggil untuk           ditampilkan) anda tinggal sesuaikan

Form1.Show()

LISTING PROGRAM UNTUK TOMBOL DELETE PADA VISUAL BASIC NET

LISTING TOMBOL DELETE PADA VISUAL BASIC.NET

Pada pemrograman visual basic.net baik itu VB net 2008 maupun VB net 2010 dan diatasnya kita akan dihadapkan dengan berbagai macam tombol yang harus dibangun untuk dapat membentuk sebuah aplikasi tertentu yang dapat dimanfaatkan untuk berbagai proses data. Kalau pada postingan saya yang lalu kita membahas tentang pembuatan database, listing pada tombol simpan data dan tombol ubah data maka kali ini kita akan membahas mengenai listing pada tombol hapus data yang akan digunakan untuk menghapus data yang sudah ada pada database kita.

Mari kita mulai dengan langkah-langkah sebagai berikut:

1.   Buatlah sebuah form dengan table datagrid yang sudah terkoneksi dengan database serta sebuah commandbutton atau tombol yang diberi nama hapus. Berikut ini adalah contoh form saya yang sudah terkoneksi dengan database (lihat pembahasan tentang koneksi database pada postingan saya sebelumnya)

2.       Klik 2x pada tombol hapus dan mari kita ketik listing tampak seperti dibawah ini:

TextBox1.Text = InputBox("Masukan Id Kegiatan Yang Akan Dihapus !! ")

        If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

        Cmd = New OleDbCommand("select * from  T_kegiatan where Id_Kegiatan ='" & TextBox1.Text & "'", conn)

        dr = Cmd.ExecuteReader

        dr.Read()

        If dr.HasRows = True Then

            Cmd = New OleDbCommand(" delete from T_kegiatan where  " & _

                "Id_Kegiatan = '" & Trim(TextBox1.Text) & " ' ", conn)

            Cmd.ExecuteNonQuery()

           

        Else

           

            MessageBox.Show("Id Kegiatan Tidak Ditemukan Dalam Database", "Konfirmasi Hapus......!", _

                                         MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

Untuk lebih jelas penempatan listing program mari kita melihat gambar listing program pada tombol hapus yang ada pada jendela kerja kita

Penjelasan singkat yang dapat saya jelaskan adalah sebagai berikut:

TextBox1.Text = InputBox("Masukan Id Kegiatan Yang Akan Dihapus !! ")

        If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

Listing ini artinya jika kita menekan tombol hapus maka akan muncul jendela form baru dengan 1 textbox yang akan digunakan untuk menginput ID apa saja yang akan dihapus (pada jendela kerja saya adalah salah satu data kegiatan dengan Id kegiatan yang akan kita hapus) Id kegiatan adalah Id yang digunakan sebagai primary key untuk seluruh data kegiatan

ü  If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

ü  Cmd = New OleDbCommand("select * from  T_kegiatan where Id_Kegiatan ='" & TextBox1.Text & "'", conn)

        dr = Cmd.ExecuteReader

        dr.Read()

ü  jika textbox1 kosong maka kursor akan berada pada textbox1 secara otomatis.

ü  system akan mencari Id kegiatan yang kita input pada textbox1 pada database dengan nama koneksi adalah conn. Conn, dr dan cmd adalah nama koneksi yang kita buat pada module koneksi database (lihat pembahasan tentang koneksi database pada postingan saya sebelumnya)

        If dr.HasRows = True Then

            Cmd = New OleDbCommand(" delete from T_kegiatan where  " & _

                "Id_Kegiatan = '" & Trim(TextBox1.Text) & " ' ", conn)

            Cmd.ExecuteNonQuery()

           

        Else

           

            MessageBox.Show("Id Kegiatan Tidak Ditemukan Dalam Database", "Konfirmasi Hapus......!", _

                                         MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

Jika ditemukan data maka system akan menghapus

Jika tidak ditemukan maka ada pesan atau messagebox

TIPS DAN TRIK MEMBUAT TOMBOL SIMPAN DATA DAN TOMBOL UBAH DATA PADA MICROSOFT VISUAL BASIC.NET

TIPS TRIK MEMBUAT TOMBOL SIMPAN DATA DAN UBAH DATA PADA DATABASE MICROSOFT VISUAL BASIC. NET (DATABASE MSC ASSCESS)

Kali ini saya akan berbagi pengelaman pribadi saya untuk membuat tombol simpan data dan ubah data yang sudah tersimpan pada database pada pemrograman Microsoft visual basic.net

Langkah-langkah sebagai berikut:

a.      Tombol simpan

1. Buatlah sebuah database dan lakukan koneksi dengan form pada halaman kerja (misalnya             table data   barang/T_barang) lihat postingan saya mengenai koneksi database
2.Pilih tombol yang akan kita jadikan tombol simpan
3.Tulis koding seperti dibawah ini

If TextBox1.Text = " " Or TextBox2.Text = "" Then

           MsgBox("Lengkapi Data Barang")

            Exit Sub

        Else

            Cmd = New OleDbCommand("select * from T_barang where Id_barang= " & _

                   " '" & Trim(TextBox1.Text) & " ' ", conn)

            dr = Cmd.ExecuteReader

            dr.Read()

            If dr.HasRows = True Then

                Dim pesan = MessageBox.Show("Id_barang: " + " " & Trim(TextBox1.Text) & " " + " sudah ada")

            Else

                Cmd = New OleDbCommand("select * from T_barang  where Id_barang= " & _

                                       " '" & Trim(TextBox1.Text) & " ' ", conn)

                dr = Cmd.ExecuteReader

                dr.Read()

                If Not dr.HasRows = True Then

                    Dim SQLTambah As String = "Insert into T_barang " & _

                     " (Id_barang, Nama_barang)  " & _

                     "  values('" & Trim(TextBox1.Text) & "', " & _

                      " '" & Trim(TextBox2.Text) & "' )"

                    Cmd = New OleDbCommand(SQLTambah, conn)

                    Cmd.ExecuteNonQuery()

                End If

                Button1.Enabled = True

            End If

        End If

    End Sub

b.      Tombol ubah data

Dim SQLUpdate As String = "Update T_barang set " & _

"Nama_barang='" & TextBox2.Text & "' where Id_barang='" & TextBox1.Text & "'"

        Cmd = New OleDbCommand(SQLUpdate, conn)

        Cmd.ExecuteNonQuery()

        MsgBox("Data Berhasil DiUbah")

    End Sub

Penjelasanya sebagai berikut:

1.       Textbox1.text  dan TextBox2.Text adalah nama text pada jendela form yang saya gunakan untuk mengisi data

2.    Cmd = New OleDbCommand("select * from T_barang where Id_barang= " & _

                   " '" & Trim(TextBox1.Text) & " ' ", conn)

            dr = Cmd.ExecuteReader

            dr.Read()

ini adalah listing untuk mencari Id barang pada textbox1.text pada table barang (T_barang) Cmd, conn, dan dr adalah nama deklarasi koneksi database pada module (lihat postingan saya mengenai koneksi database)

3.  If dr.HasRows = True Then

Dim pesan = MessageBox.Show("Id_barang: " + " " & Trim(TextBox1.Text) & " " + " sudah ada")

Artinya jika id barang sudah ada maka ada pesan berupa msgbox dan jika id barang tersebut belum ada pada database maka:

            Else

                Cmd = New OleDbCommand("select * from T_barang  where Id_barang= " & _

                                       " '" & Trim(TextBox1.Text) & " ' ", conn)

                dr = Cmd.ExecuteReader

                dr.Read()

                If Not dr.HasRows = True Then

                    Dim SQLTambah As String = "Insert into T_barang " & _

                     " (Id_barang, Nama_barang)  " & _

                     "  values('" & Trim(TextBox1.Text) & "', " & _

                      " '" & Trim(TextBox2.Text) & "' )"

                    Cmd = New OleDbCommand(SQLTambah, conn)

                    Cmd.ExecuteNonQuery()

                End If

Ini adalah perintah exekusi simpan data pada table Barang (T_Barang)

Sekian postingan saya kali ini semoga dapat bermanfaat untuk kita semua

MENGHUBUNGKAN DATABASE MS ACCESS 2007 DENGAN VISUAL BASIC.NET

LANGKAH-LANGKAH UNTUK MEMBANGUN SEBUAH DATABASE (MS ACCESS 2007) DENGAN MICROSOFT VISUAL BASIC. NET 

1. Buatlah sebuah folder kerja yang akan kita bangun projek apapun pada drive D

2. Buatlah sebuah database dengan microsoft access pada folder tempat kerja kita
        Misalnya : Dbrokok.accdb (nama database pada folder kerja saya)
       .accdb adalah extension dari database access pada Microsoft office 2007 tidak perlu ditulis nanti           akan otomatis terbaca seperti diatas.

3. Buatlah table-tabel sesuai dengan kebutuhan kita, salah satu contoh table yang akan saya bangun         adalah table wilayah dengan nama tabelnya adalah T_Wilayah. Jika sudah selesai membangun             database dan table-tabel pada Microsoft access 2007 sekarang mari kita hubungkan database               tersebut dengan Microsoft visual basic.net

4. Buka aplikasi visual basic.net

5. Buatlah sebuah project dengan memilih new projek (lihat gambar diatas)

6. Lihat gambar diatas pilih windows forms application dengan baris location diisi nama folder               tempat kita bekerja pada drive D (lihat poin 1)

7. Pilih tombol OK

8. Setelah project visual basic. Net kita terbuka buatlah sebuah module penghubung dengan cara sbb:
          a. Klik kanan pada nama projek yang ada pada lembar kerja sebelah kanan (perhatikan                            gambar)  pilih add - module

b. Tulis listing seperti dibawah ini:

Imports Microsoft.VisualBasic

Imports System.Data.OleDb

Module Module1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public Cmd As New OleDbCommand

    Public dr As OleDbDataReader

    Public str As String

Public Sub KoneksiDB()

 str = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DelProgram\DbRokok.accdb")

        conn = New OleDb.OleDbConnection(str)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

End Module

Tampak  seperti gambar dibawah ini:

9.  Buatlah sebuah form baru pada lembar kerja kita untuk menampilkan database yang sudah kita            bangun dan kita koneksikan ke visual basic.net melalui module.

     untuk membuat sebuah form baru sama seperti gambar pada poin 8.a tinggal kita memilih                   windows form

10. Double klik pada form dan kita akan berada pada form load (lihat gambar dibawah ini)

11. Klik pada bagian atas public class form1 (lihat gambar diatas) dan tulis listing seperti dibawah ini :

   Imports System.Data.OleDb

12. Klik pada private sub form1_load dan tulis listing seperti dibawah ini

   Call KoneksiDB()

     Call koneksiDB (nama yang kita buat pada module sesuai dengan keingin kita) ini adalah koneksi        yang sudah kita buat pada module dan kita panggil pada form.

13. Untuk menampilkan data dari ms access ke table dapat kita lakukan dengan cara sebagai berikut:

a.      Tampilkan datagrid view pada form

b.    Pada lembar kerja form buatlah sebuah sub bagian dengan cara menulis nama sub tepat dibawah Public Class Form1

Misalnya sub tampilkan_data dan tekan enter

c.       Tulis listing seperti dibawah ini

Sub tampilkan_Data()

da = New OleDbDataAdapter("select * from T_wilayah", conn)

ds = New DataSet

ds.Clear()

da.Fill(ds, "T_wilayah")

DataGridView1.DataSource = (ds.Tables("T_wilayah"))

DataGridView1.Columns(0).Width = 77

DataGridView1.Columns(1).Width = 200

End Sub

Sedikit penjelasan da, ds an conn adalah nama yang sudah kita buat pada module bisa menggunakan nama apa saja. T_wilayah adalah nama table pada ms access

Sekian artikel pertama saya hari ini semoga dapat bermanfaat untuk kita semua