Materi Praktikum Pemrograman VB Net
MEMBUAT FORM INPUT DATA DENGAN VB NET 2005 DAN DATABASE MS SQL SERVER 2005 EXPRESS A. Membuat Database 1. Buka jendela Server Explorer.
2. Klik kanan pada connection, dan pilih add new Database
3. Akan muncul tampilan sebagai berikut :
By muningmini
Page 1
Materi Praktikum Pemrograman VB Net Isikan Nama server dan nama database yang akan kita buat. Sebagai contoh : Server Name: MINI-PC/SQLEXPRESS (mini-pc adalah nama komputer, SQLEXPRESS adalah engine yang digunakan. Database : db_toko 4. Kemudian Klik Ok. Jika sukses, akan terlihat pada daftar Data Connection seperti tampak pada gambar berikut.
Database yang baru saja kita buat
B. Menambahkan tabel ke dalam database Setelah selesai membuat database, langkah selanjutnya adalah menambahkan tabel barang pada database tersebut. Langkah-langkahnya sebb: 1. Masih di jendela Server Explorer, Expand (klik tanda plus didepan nama connection), sehingga tampilannya menjadi sbb:
By muningmini
Page 2
Materi Praktikum Pemrograman VB Net 2. Pada Tabel, klik kanan dan pilih Add New Table.
3. Akan muncul jendela desain tabel, dan buat struktur tabel sehingga hasil akhirnya sbb:
Pastikan bahwa kode_barang sebagai Primary Key. Akhirnya, selesai sudah persiapan pembuatan database dan tabel. Selanjutnya kita siapkan untuk membuat project baru aplikasi kita. SIAPPP....oke...silahkan minum dulu....
By muningmini
Page 3
Materi Praktikum Pemrograman VB Net C. Membuat Project Baru Untuk membuat project baru, ikuti ilustrasi gambar dibawah ini :
D. Menambahkan Module untuk Koneksi Koneksi kita buat pada module. Untuk menambahkan module, pilih menu project Add Module.
By muningmini
Page 4
Materi Praktikum Pemrograman VB Net Akan muncul jendela baru. Tuliskan kode berikut di baris paling atas : Imports System.Data.SqlClient
dan ketikkan kode berikut diantara tanda : Module module1 --- end module. Seperti tampak pada gambar berikut : Public Function koneksi() As SqlConnection Dim koneksiku As New SqlConnection koneksiku = New SqlConnection("server=mini-PC\SQLEXPRESS; database=db_toko; trusted_connection=true") koneksiku.Open() Return (koneksiku) End Function
E. Membuat Form Input Data Barang Desain form untuk input barang seperti tampak pada gambar berikut :
Pengaturan untuk masing-masing kontrol No 1
Control Label1
2
GroupBox
3 4 5 6
Label2 Label3 Label4 Textbox1
By muningmini
Properties Teks Font Teks Backcolor Text Text Text Name
Value Entri data barang Data Barang Kode barang Nama barang Harga Satuan Textkode Page 5
Materi Praktikum Pemrograman VB Net 7 8 9. 10. 11. 12. 13. 14.
Textbox2 Textbox3 Form Panel Button1 Button2 Button3 Button4
Name Text Text Backcolor Text Text Text Text
Textnama Textharga Form entri data barang Cari Simpan Batal Keluar
* Pengaturan lebih lanjut silahkan disesuaikan.
F. Menuliskan Kode untuk Input Data Barang 1. Pada baris paling atas, tuliskan kode dibawah ini : Imports System.Data.SqlClient
2. Double klik pada tombol cari dan tuliskan kode dibawah ini 'Jika user mengosongkan textbox kode dan mengklik button cari If Me.textKode.Text = Nothing Then MessageBox.Show("Kode Barang tidak boleh kosong...", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Stop) Me.textKode.Focus() Else If Len(Trim(Me.textKode.Text)) = 4 Then Dim adapter As New SqlDataAdapter("select * from barang where kode_barang='" & textKode.Text & "'", Module1.koneksi) Dim dt As New DataTable("barang") adapter.Fill(dt) If dt.Rows.Count <> 0 Then MessageBox.Show("Data dengan kode " & Me.textKode.Text & " sudah ada", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Information) Me.textKode.Clear() Me.textKode.Focus() Else Me.textKode.Enabled = False Me.textNama.Enabled = True Me.textHarga.Enabled = True Me.textNama.Focus() End If Else MessageBox.Show("Kode Barang 4 Digit", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Hand) Me.textKode.Clear() Me.textKode.Focus() End If End If
By muningmini
Page 6
Materi Praktikum Pemrograman VB Net 3. Double klik pada button Simpan, dan tuliskan juga kode dibawah ini.
Dim sql As String = String.Empty sql = "insert into barang (kode_barang,nama_barang,harga_satuan) values ('" & Me.textKode.Text & "','" & Me.textNama.Text & "','" & Me.textHarga.Text & "')" Dim command As New SqlCommand(sql, Module1.koneksi) command.ExecuteNonQuery() Module1.koneksi.Close() Me.textKode.Enabled = True Me.textNama.Enabled = False Me.textHarga.Enabled = False Me.textKode.Clear() Me.textNama.Clear() Me.textHarga.Clear() Me.textKode.Focus()
4. Double klik pada button Batal, tuliskan kode dibawah ini. Me.textKode.Clear() Me.textNama.Clear() Me.textHarga.Clear() Me.textKode.Enabled = True Me.textNama.Enabled = False Me.textHarga.Enabled = False Me.textKode.Focus()
5. Terakhir, silahkan tuliskan koding untuk button Keluar. Tahu kan apa
kodenya??
Selesai, silahkan untuk didebug, dan lihat hasilnya. Masih Error...jangan menyerah... ***Good Luck***
By muningmini
Page 7
