Perintah Save Dengan Visual Studio 2010 Express

Oleh peistar

Tuesday, 10 January 2017

Bagikan :

Tweet

Dengan menggunakan peintah Save atau simpan ini kita dapat menyimpan data yang kita inputkan kemudian diproses dan disinpan kedalam database.

Namun sebelum itu kita harus membuat database terlebih dahulu sebagai media penyimpanan data, adapun cara pembuatannya saudara dapat menuju link dibawah ini :

1. Cara Membuat Database Dengan Microsoft Access.

2. Cara Membuat Database Dengan MySQL.

Setelah saudara membuat database baru kita dapat membuat aplikasi dengan menggunakan perintah Save (Simpan).

Adapun cara pengerjaanya saudara dapat mengikuti langkah-langkah dibawah ini dengan benar :

- Langkah Pertama : Pastikan database sudah kita buat terlebih dahulu dan koneksi antar database yang kita buat sudah terkoneksi ke Visual Studio 2010 Express. Untuk lebih jelasnya saudara dapat melihat link berikut ini : Cara Koneksi Database Microsoft Access 2007 Dengan Visual Studio 2010 Express.

- Langkah Kedua : Saudara dapat mendesain tampilan Form input seperti gambar dibawah ini.

- Langkah Ketiga : Pada Button atau tombol Save saudara dapat mengcopy dan pastekan Coding Program dibawah ini kedalam area kerja Button Save,  yaitu dengan cara : klik 2 kali pada Button Save kemudian Pastekan Coding Program dibawah ini.

Coding Program Save :

If TextBox1.Text = "" Or ComboBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("Data Tidak Boleh Kosong Coy...!!! Isi Dulu Baru Bisa Di SAVE OK")

Exit Sub

Else

Call Koneksi()

Dim simpan As String = "insert into Kamar values ('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "')"

cmd = New OleDbCommand(simpan, Conn)

cmd.ExecuteNonQuery()

MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

Call TampilData()

End If

- Langkah Keempat : Pada ComboBox1 saudara dapat mengklik 2 kali kemudian ganti Procedure dengan Klik, lalu copy dan pastekan Coding Program dibawah ini.

Coding Program Untuk Memilih Jenis Kamar :

If ComboBox1.Text = "VIP" Then

TextBox2.Text = "800000"

End If

If ComboBox1.Text = "Menengah" Then

TextBox2.Text = "500000"

End If

If ComboBox1.Text = "Standar" Then

TextBox2.Text = "300000"

End If

- Langkah Kelima : Coding Program untuk keluar dari Form.

Me.Close() 

- Langkah Keenam : Untuk menjalankan aplikasi ini saudara dapat menekan tombol “Star” pada bar Aplikasi.

Sangat mudah bukan? Selamat mencoba. Wasalammm...!!! 

Tag : Visual Studio 2010