Melanjutkan tutorial kemarin
Koneksi database SQL Server dengan Visual Studio 2013 , kali ini saya akan memberi tutorial bagaimana cara menyimpan data di Visual Studio 2013 atau VbNET .
Pertama-tama kita harus mengetahui konsep SQL Command pada SQL Server untuk perintah Simpan . Perintahnya dengan cara :
INSERT INTO table (column1,column2,dst) VALUES ('nilai_column1','nilai_column2','nilai_column3')
Penjelasan :
- Pada
INSERT INTO table - table disini ialah table yang akan kita simpan semisal tbl_barang , dll
- Lalu
(column1,column2,dst) - disini kita menentukan kolom mana saja yang akan kita inputkan , jika ingin mengiput semua column , pun bisa menggunakan INSERT into table VALUES ('1','2','3')
langsung saja tanpa menjelaskan percolumn , biar lebih simpel dan ga ribet
- Lalu pada
VALUES ('nilai_column1',blababa) disini ialah hasil inputkan yang kita ketik tadi .
Oke setelah kita tahu konsep SQL Command pada Insert tadi kita lanjutkan untuk tutorial menyimpan data /save dengan VBNet
Untuk awal nya silahkan buat tampilan seperti ini , terserah untuk name properties nya ,
PASTIKAN PROPERTIES NAME sesuai dengan SCRIPT yang akan kita
Lalu klik 2x pada button simpan ,atau memilih function buttonsimpan.click()
Ketikkan script seperti ini :
Dim t1 As String 'membuat variabel t1 ialah string
koneksi.Close() ' menutup variabel koneksi yang berada pada module1
koneksi.Open() ' membuka variabel koneksi bermaksud membuka koneksi pada SQL
t1 = xkode.Text 'menjelaskan variabel t1
sql = "SELECT * FROM tbl_barang WHERE kode_barang='" + xkode.Text + "'" ' menampilkan semua barang dimana kode barang adalah xkode yang kita tulis
cmd = New SqlCommand(sql, koneksi) ' menjalankan peritah pada varabel sql
baca = cmd.ExecuteReader() 'membaca perintah pd variabel cmd
If baca.HasRows = False Then 'jika var baca mempunyai data lalu
koneksi.Close() 'tutup koneksi
koneksi.Open() 'close koneksi
sql = "INSERT INTO tbl_barang VALUES('" & xkode.Text & "','" & xnama_barang.Text & "', '" & x_satuan.Text & "')" 'perintah SQL insert sesuaikan textbox yang kita simpan
cmd = New SqlClient.SqlCommand(sql) 'membuat variabel cmd berdasarkan command pada variabel sql
cmd.Connection = koneksi ' setting koneksi cmd di variabel koneksi
cmd.ExecuteNonQuery() 'menjalankan perintah cmd
Call tampil() 'memanggil perintah tampil
MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information") 'memberikan alert jika sudah berhasil disimpan
End If
Read More