 | MENU |
|
|
| | Visual Basic 6.0 |
|
|
| | Microsoft SQL Server |
|
|
| | Visual Basic 6.0 Database |
|
|
| | Upgrade VB 6.0 ke VB.NET |
|
|
| | Visual Basic .NET Dasar |
|
|
| | Visual Basic .NET Database |
|
|
| | Active Server Page (ASP) |
|
|
| | | Program Ramalan |
|
|
| | ASP.NET Database |
|
|
| | 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.
Download project
di sini
.
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 2005
klik di sini
|
|
|
|
Share
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Mau punya penghasilan? ikuti program-program di bawah ini:
|
|
|
|
|
counter sejak 5 april 2010
|
|