Masih tentang VB.Net 2008, kali ini saya ingin membahas proses save data di DatagridView ke Database. Metode yang saya pakai yaitu Save setiap baris DatagridView dengan melakukan looping baris perbaris.
Pertama-tama masukkan DatagridView ke dalam form dan buat atribut Readonly-nya menjadi True. Tambahkan tombol Cancel, Save, Edit dan Exit untuk Operasi data, untuk lebih mudahnya dibawah ini adalah tampilan dari program yang saya buat.
CREATE TABLE tbl_buku
(
id int IDENTITY(1,1) NOT NULL PRIMARY KEY,
kategori varchar(50) NOT NULL,
judul varchar(100) NOT NULL,
pengarang varchar(100),
halaman varchar(100)
)
Seringkali kita dalam membuat tabel di database menggunakan pola Auto Increment pada bagian Primary Key. hal ini memudahkan kita karena kita tidak perlu men-define angka saat memasukkan suatu baris data ke database, cukup membiarkannya bernilai NULL.
Pada Mysql mudah saja kita mendefinisikannya, pada sql query kita tinggal menambahkan keyword AUTO INCREMENT pada kolom yang diinginkan. Apalagi bila menggunakan aplikasi seperti PHPMyadmin, kita tinggal kasih check pada atribut kolom yang diinginkan.
Lalu bagaimana dengan penerapannya di SQL Server..? Ternyata SQL Server tidak mengenal keyword AUTO INCREMENT. Keyword tersebut adalah milik Mysql. Pada SQL Server keyword untuk melakukan AUTO INCREMENT adalah IDENTiTY. Perhatikan contoh penggunaannya pada query dibawah ini :
CREATE TABLE tbl_kota
(
id int IDENTITY(1,1) NOT NULL PRIMARY KEY,
nama varchar(50) NOT NULL,
luas varchar(10),
penduduk varchar(10)
)
Anda dapat mendownload aplikasi ini disini.
Kali ini saya hendak membuat aplikasi sederhana tentang fungsi terbilang dengan bahasa indonesia di VB.Net 2008. Fungsi terbilang merupakan fungsi untuk mencetak kalimat yang mendeskripsikan suatu bilangan. Okay, pertama-tama buat tampilan sederhana program kita seperti berikut ini :
Public Function Terbilang(ByVal nilai As Long) As String
Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
"enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
If nilai < 12 Then
Return " " & bilangan(nilai)
ElseIf nilai < 20 Then
Return Terbilang(nilai - 10) & " belas"
ElseIf nilai < 100 Then
Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)
ElseIf nilai < 200 Then
Return " seratus" & Terbilang(nilai - 100)
ElseIf nilai < 1000 Then
Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)
ElseIf nilai < 2000 Then
Return " seribu" & Terbilang(nilai - 1000)
ElseIf nilai < 1000000 Then
Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)
ElseIf nilai < 1000000000 Then
Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)
ElseIf nilai < 1000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)
ElseIf nilai < 1000000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)
Else
Return ""
End If
End Function
Anda dapat mendownload aplikasi ini disini.
Untuk membuat aplikasi di VB.Net 2008 yang menggunakan database, maka kita terlebih dahulu harus membuat koneksi yang menghubungkan database dengan VB.Net 2008. Kali ini saya akan memberi contoh sederhana menghubungkan VB.Net 2008 dengan database SQL Server 2008.
Pertama-tama buatlah sebuah database kosong dan beri nama mydb. Nama database boleh berbeda.
Jalankan program VB.Net 2008 dan buat project baru (File - New Project) dan beri nama koneksi kemudian melalui menu (project - add new item) pilih module, kemudian ketikkan baris2 kode berikut.
Imports System.Data.SqlClient
Module Module1
Public Class koneksi
Public Function buatkoneksi() As Boolean
Dim conn As SqlConnection = Nothing
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=mydb;Integrated Security=True"
conn = New SqlConnection(connString)
conn.Open()
If conn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
End Class
End Module
Dim mykoneksi As New koneksi
If Not mykoneksi.buatkoneksi() Then
MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Info Program")
Else
MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Info Program")
End If
 |
| Tampilan Akhir Program |