Membuat Aplikasi Database dengan VB.NET - xbasicpro.com

Artikel Visual Basic

Basis Data - Database

Pemrograman Grafis

E-Book Tutorial

Video Kursus - Tutorial

Software - Open Source code

W E B Programming

Windows System

XBasicFramework

Berbagi Pengalaman

Quick Basic

Membuat Aplikasi Database dengan VB.NET

Membuat aplikasi database menggunakan Visual Basic Net 2005 dan SQL Server 2005 Express.

Membuat Form (User Interface)
Tarik dua label dan 2 textbox, 2 RadioButton, 1 datagridview dan 6 command button dari toolbox ke form.

Jika anda melakukannya dengan benar seharusnya form nya seperti ini:

Aplikasi ini telah dites dan berjalan dengan mulus.
Sebagai bocoran saya pernah tes pada perusahaan software developer. Tes nya adalah membuat software seperti ini ;)

Inilah kode lengkapnya:

                Imports System.Data.SqlClient
                
                Imports System.Data
                
                Public Class frmKota
                
                Private oConn As New SqlConnection
                
                Private sConn As String = "Data Source=.\SQLEXPRESS;Initial 
                Catalog=Dataku;Integrated Security=True"
                
                Private m_pos As Integer
                
                Private oTbl As New DataTable
                
                Private Sub cmdBrowse_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdBrowse.Click
                
  Dim oDS As New DataSet
                
  Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA", sConn)
                
  oDa.Fill(oDS) oTbl = oDS.Tables(0)
                
  DataGridView1.DataSource = oTbl
                
                End Sub
                
                Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdKeluar.Click
                
  End
                
                End Sub
                
                Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As 
                System.EventArgs) Handles DataGridView1.CurrentCellChanged
                
  m_pos = BindingContext(oTbl).Position
                
  txtKodeKota.Text = oTbl.Rows(m_pos).Item(0)
                
  txtNamaKota.Text = oTbl.Rows(m_pos).Item(1)
                
                End Sub
                
                Private Sub cmdTambah_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdTambah.Click
                
  Dim sql As String = "INSERT INTO KOTA VALUES ('" & txtKodeKota.Text & "','" & 
                txtNamaKota.Text & "')"
                
  Dim oCmd As New SqlCommand
                
  oCmd.Connection = oConn
                
  oCmd.CommandText = sql
                
  oCmd.ExecuteNonQuery()
                
                End Sub
                
                Private Sub frmKota_Load(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles MyBase.Load
                
  oConn.ConnectionString = sConn 
                
                  oConn.Open()
                
                End Sub
                
                Private Sub cmdCari_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdCari.Click
                
  Dim oDS As New DataSet
                
  Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA WHERE KODE_KOTA='" & txtKodeKota.Text & 
                "'", sConn)
                
  oDa.Fill(oDS) oTbl = oDS.Tables(0)
                
  DataGridView1.DataSource = oTbl
                
                End Sub
                
                Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdHapus.Click
                
  Dim sql As String = "DELETE FROM KOTA WHERE KODE_KOTA='" & txtKodeKota.Text & "'"
                
  Dim oCmd As New SqlCommand
                
  oCmd.Connection = oConn
                
  oCmd.CommandText = sql
                
  oCmd.ExecuteNonQuery()
                
                End Sub
                
                Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As 
                System.EventArgs) Handles cmdSimpan.Click
                
  Dim sql As String = "UPDATE KOTA SET NAMA_KOTA='" & txtNamaKota.Text & "' WHERE 
                KODE_KOTA='" & txtKodeKota.Text & "'"
                
  Dim oCmd As New SqlCommand
                
  oCmd.Connection = oConn
                
  oCmd.CommandText = sql
                
  oCmd.ExecuteNonQuery()
                
                End Sub
                
                Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e 
                As System.EventArgs) Handles RadioButton1.CheckedChanged
                
  Dim oDS As New DataSet
                
  Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA ORDER BY KODE_KOTA ASC", sConn)
                
  oDa.Fill(oDS) oTbl = oDS.Tables(0)
                
  DataGridView1.DataSource = oTbl
                
                End Sub
                
                Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e 
                As System.EventArgs) Handles RadioButton2.CheckedChanged
                
  Dim oDS As New DataSet
                
  Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA ORDER BY NAMA_KOTA ASC", sConn)
                
  oDa.Fill(oDS) oTbl = oDS.Tables(0)
                
  DataGridView1.DataSource = oTbl
                
                End Sub
                
                End Class
                
                Ini adalah salah satu 
                aksi software yang baru saja kita buat.

                        Catatan:

                    Jika Anda memakai database MS-Access ikuti petunjuk di bawah ini:

                    Imports System.Data.SqlClient -> Imports System.Data.OleDb

                        Private sConn As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Dataku;Integrated
                        Security=True"
                        
                        ->
                        
                        Private sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataku.mdb"

                        Dim oCmd As New SqlCommand -> Dim oCmd As New OleDbCommand

                        -> maksudnya ganti menjadi...

                    Kode ini sudah dicoba pada vbnet 2005, vbnet 2008 dan vbnet 2010 tidak ada masalah.

                    Untuk memperoleh 
                penjelasan detail cara pembuatan form (User Interface) dan arti dari kode-kode 
                di atas dengan lengkap, Anda bisa baca E-Book saya yang berjudul 
                    Trik 
                Database Visual Basic Net