Nah sekarang kita akan mencoba membuat bagaimana project yang menambah data, mengubah data, menghapus data, dan menampilkan data kita satukan menjadi satu project. Nah ikuti langkah-langkahnya sebagai berikut :
1. Nah seperti biasa Buat database baru dengan nama bebas sesuai selera.. hehe … :D dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :
Database untuk tutorial-tutorial ini dapat didownload disini
2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database5 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
1: Imports System.Data.OleDb
2: Public Class Form1
3:
4: Private Conn As OleDbConnection = Nothing
5: Private cmd As OleDbCommand = Nothing
6: Private sql As String = Nothing
7: Private reader As OleDbDataReader = Nothing
8: Private da As OleDbDataAdapter = Nothing
9: Function Connect()
10: If Not Conn Is Nothing Then
11: Conn.Close()
12: End If
13: Conn.Open()
14: Return Conn
15: End Function
16: Function Closedd()
17: Conn.Close()
18: Return Conn
19: End Function
20:
21: Sub LoadData()
22: Connect()
23: sql = "select id_anggota from anggota"
24: cmd = New OleDbCommand(sql, Conn)
25: reader = cmd.ExecuteReader()
26: Try
27: CmbId.Items.Clear()
28: While reader.Read
29: CmbId.Items.Add(reader.GetString(0))
30: End While
31: Catch ex As Exception
32: MessageBox.Show(ex.Message)
33: End Try
34: Closedd()
35: End Sub
36:
37: Sub Tampil()
38: Connect()
39: Try
40: Dim dt As New DataTable
41: da = New OleDbDataAdapter("select * from anggota", Conn)
42: da.Fill(dt)
43: DataGridView1.DataSource = dt
44: Catch ex As Exception
45: MessageBox.Show(ex.Message)
46: End Try
47: Closedd()
48: End Sub
49: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
50: If Not Conn Is Nothing Then Conn.Close()
51:
52: Dim ConnString As String
53:
54: ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"
55: Try
56: Conn = New OleDbConnection(ConnString)
57: Conn.Open()
58: Me.Text = "Mengubah data Anggota [Connected]"
59: LoadData()
60: Tampil()
61: Conn.Close()
62: Catch ex As Exception
63: MessageBox.Show("Koneksi Error : " + ex.Message)
64: End Try
65: CmbKelamin.Items.Add("Pria")
66: CmbKelamin.Items.Add("Wanita")
67: End Sub
68:
69: Private Sub CmbId_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbId.SelectedIndexChanged
70: Connect()
71: Dim Kunci As String = CmbId.Text
72: sql = "select * from anggota where id_anggota='" & Kunci & "'"
73: cmd = New OleDbCommand(sql, Conn)
74: reader = cmd.ExecuteReader
75: Try
76: reader.Read()
77: TxtNama.Text = reader.GetString(1)
78: TxtAlamat.Text = reader.GetString(2)
79: CmbKelamin.Text = reader.GetString(3)
80: Catch ex As Exception
81: MessageBox.Show(ex.Message)
82: End Try
83: Closedd()
84: End Sub
85:
86: Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
87: Connect()
88: Dim hasil As Integer
89: sql = "Update anggota set nama='" & TxtNama.Text & "',alamat='" & TxtAlamat.Text & "', kelamin='" & CmbKelamin.Text & "' where id_anggota='" & CmbId.Text & "'"
90: cmd = New OleDbCommand(sql, Conn)
91: Try
92: hasil = cmd.ExecuteNonQuery
93: If (hasil > 0) Then
94: MessageBox.Show("Record Berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
95: CmbId.Text = ""
96: TxtAlamat.Text = ""
97: TxtNama.Text = ""
98: Tampil()
99: LoadData()
100: End If
101: Catch ex As OleDbException
102: MessageBox.Show("Failed : " & ex.Message)
103: End Try
104: Closedd()
105: End Sub
106:
107: Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
108: Connect()
109: Dim insertquery As String
110: Dim Kelamin As String
111: Dim Hasil As Integer
112: Dim cmd As OleDbCommand
113: insertquery = ("insert into anggota(id_anggota,nama,alamat,kelamin)Values('" & CmbId.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "','" & Kelamin & "')")
114: Try
115: cmd = New OleDbCommand(insertquery, Conn)
116: Hasil = cmd.ExecuteNonQuery
117: If Hasil > 0 Then
118: MessageBox.Show("record Berhasil Dimasukan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
119: CmbId.Text = ""
120: TxtAlamat.Text = ""
121: TxtNama.Text = ""
122: Tampil()
123: LoadData()
124: End If
125: Catch ex As OleDbException
126: MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)
127: End Try
128: Closedd()
129: End Sub
130:
131: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
132: Connect()
133: Dim index As Integer = CmbId.SelectedIndex
134: Dim hasil As Integer
135: Dim pesan As DialogResult
136: sql = "delete from anggota where id_anggota='" & CmbId.Text & "'"
137: pesan = MessageBox.Show("Yakin Menghapus Anngota " & Chr(10) & "dengan id" & CmbId.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
138: cmd = New OleDbCommand(sql, Conn)
139: Try
140: If pesan = Windows.Forms.DialogResult.Yes = True Then
141: hasil = cmd.ExecuteNonQuery
142: CmbId.Text = ""
143: TxtAlamat.Text = ""
144: TxtNama.Text = ""
145: Tampil()
146: End If
147: Catch ex As OleDbException
148: MsgBox("Failed : " & ex.Message)
149: End Try
150: Closedd()
151: End Sub
152: End Class
0 Komentar
Post a Comment