Koding tombol simpan pada Microsoft visual studio
Koding
tombol simpan pada Microsoft Visual
Studio
Nah pada kesempatan kali ini saya akan membahas tentang scrift tombol simpan pada Microsoft Visual Studio
2010,nah berhubung saya bersekolah di SMK dan mengambil jurusan di bagian
Rekayasa Perangkat Lunak dan tahu sedikit-sedikit tentang kode scrift ,nah bagi
rekan-rekan yang baru belajar dan masih pusing dengan bahasa pemrograman tenang
karna saya juga masih belajar dan harus terus belajar dan mari kita belajar
bersama,dan mengulik serta memperdalam tentang bahasa pemrograman,Sebelum lebih
lanjut kita ketahui bahwa Microsoft visual studio ada berbagai jenis versi,nah
untuk kesempatan kali ini saya akan membahas dan mengulik sedikit tentang
Koding Tombol simpan pada Microsoft Visual Studio.
Private Sub Button2_Click(sender As
System.Object, e As System.EventArgs) Handles Button2.Click
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
If TextBox1.Text = "" Then
MsgBox("NIS masih
Kosong", vbCritical, "Salah")
TextBox1.Focus()
End If
sqlquery.CommandText = "Insert
into tbl_murid values ('" & TextBox1.Text & "','" &
TextBox2.Text & "','" & TextBox3.Text & "')"
sqlquery.ExecuteReader()
MsgBox("Data Tersimpan")
Call bersih()
End Sub
Nah mari kita bahas satu persatu
tentang maksud dari koding
tersebut,
Mulai dari
Private Sub Button2_Click
Maksudnya Button yang akan kita buat menjadi Button Simpan terletak pada
Button 2. Jadi jika kita meletakkan Button simpan pada Button 2 sebaikNya
memasukkan rumus pada Button tersebut. IntiNya masukkan setiap scrift pada
button yang telah sesuai dengan apa yang telah kita buat.
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
Nah untuk yang satu ini digunakan
Untuk mengoneksikan Tombol Button tersebut pada database yang telah kita buat
sebelumnya,nah untuk yang satu ini saya mengoneksikanNya pada SQL database,
If TextBox1.Text = "" Then
MsgBox("NIS masih
Kosong", vbCritical, "Salah")
TextBox1.Focus()
Nah yang satu ini maksudnya apabila ada salah satu text box yang kosong
maka aplikasi akan memberikan peringatan bahwa masih ada box yang kosong dan
belum terisi,”NIS masih kosong” itu berarti text yang akan keluar pada saat ada
box yang belum terisi,TextBox1.Focus adalah titik focus dari beberapa box yang
tersedia,jadi apabila masih ada box yang kosong maka otomatis akan kembali ke
textboxt1 yang tadi telah dijadikan focus sebelumnya oleh kita.
sqlquery.CommandText = "Insert into tbl_murid
values ('" & TextBox1.Text & "','" & TextBox2.Text
& "','" & TextBox3.Text & "')"
sqlquery.ExecuteReader()
MsgBox("Data Tersimpan")
Call bersih()
Nah disana terdapat “Insert into
tbl_murid Nah untuk tbl_murid nya disesuaikan dengan nama database yang
sebelumnya telah kita buat,jadi jika nama database MURID maka disana juga
MURID,jadi tergantung nama database yang sebelumnya telah kita buat.
values ('" & TextBox1.Text
& "','" & TextBox2.Text & "','" &
TextBox3.Text & "')"
Untuk yang satu ini tergantung jumlah TextBox yang ada pada FORM
kita,jadi jika jumlah TextBox 12 maka disana juga dilampirkan 12 textBox,jadi
sesuaikan saja ya….
“Data Tersimpan”
Data tersimpan merupakan jenis peringatan yang akan keluar pada saat
data berhasil tersimpan.
O.K Guys kurang lebih seperti itu pembahasan kita terimakasih telah
berkunjung semoga bermanfaat dan jadi berkah untuk kita semua kurang lebih nya
mohon dimaafkan kurang dari saya lebih nya milik Allah swt.