Insert Update Delete SQL Compact

< data-ad-client="ca-pub-3890975320167131" data-ad-slot="8978403605"/ins>

Dalam pemrograman yang menggunakan database pasti tidak akan terhindar dari perintah Insert, Update, dan Delete file dari dan ke dalam database SQL Compact atau Local Database atau SQLServerCe. Melanjutkan postingan sebelumnya Connect VB. Net ke SQL Compact kita akan melakukan perintah sesuai judul di atas.

Semisal dalam kasus ini kita ingin menyimpan data dari Textbox yang berjumlah 5 item, maka pada database create jumlah pada Column sebanyak 5 Columns. Dan untuk melakukan open koneksi menggunakan Function Mykoneksi.

Code Insert atau Save data:
Code bisa diletakkan pada Button Simpan yang telah anda buat.

Mykoneksi.Open()
Dim simpan As String = "insert into NamaTable values ('" & Textbox1.Text & "','" & Textbox2.Text & "','" & Textbox3.Text & "','" &Textbox4.Text & "','" & Textbox5.Text & "')

Dim oCommand As New SqlCeCommand
oCommand.Connection = MyKoneksi
oCommand.CommandText = simpan
oCommand.ExecuteNonQuery()
MyKoneksi.Close()

atau gunakan code di bawah ini jika anda hanya Insert atau Save untuk sebagian Textbox saja:

Mykoneksi.Open()
Dim simpan As String = "insert into NamaTable([NamaField1],[NamaField2],[NamaField3])  values ('" & Textbox1.Text & "','" & Textbox2.Text & "','" & Textbox3.Text & "')"

Dim oCommand As New SqlCeCommand
oCommand.Connection = MyKoneksi
oCommand.CommandText = simpan
oCommand.ExecuteNonQuery()
MyKoneksi.Close()

Code Update atau ubah data:
Code bisa diletakkan pada Button ubah atau update yang telah anda buat.

MyKoneksi.Open()

Dim Ubah As String = "update NamaTabel set NamaField2= '" & Textbox2.Text & "', NamaField3='" & Textbox3.Text & "', NamaField4= '" & Textbox4.Text & "', NamaField5= '" & Textbox5.Text & "' where NamaField1 like '" & Textbox1.Text & "'"

Dim oCommand As New SqlCeCommand
oCommand.Connection = MyKoneksi
oCommand.CommandText = Ubah
oCommand.ExecuteNonQuery()

MyKoneksi.Close()

Code Delete atau Hapus data:
Code bisa diletakkan pada Button Hapus atau delete yang telah anda buat. 

MyKoneksi.Open()

Dim Hapus As String = "Delete from NamaTabel where NamaField1 = '" & Textbox1.Text & "'"

Dim oCommand As New SqlCeCommand
oCommand.Connection = MyKoneksi
oCommand.CommandText = Hapus
oCommand.ExecuteNonQuery()

MyKoneksi.Close()

Untuk menghapus semua data dalam databas:
 

MyKoneksi.Open()

Dim Hapus As String = "Delete from NamaTabel"

Dim oCommand As New SqlCeCommand
oCommand.Connection = MyKoneksi
oCommand.CommandText = Hapus
oCommand.ExecuteNonQuery()

MyKoneksi.Close()

Demikian code dari Insert, Update, Delete pada SQL Compact atau Local Database atau SqlServer Ce pada VB. NET, semoga dapat membantu rekan sekalian. Salam ^^

nb: yang berwarna merah penamaan sesuaikan dengan nama tabel dan Column database yang telah anda buat.

Related Post