posted by admin on April 21, 2018

Tahap mula seorang developer sistem informasi adalah bisa mengelola data, yaitu menyimpan, menampilkan di kotak isian, memperbaharui dan membuang data. Konsep dalam manajemen database, hampir semua sama, baik itu menggunakan database besar atau kecil.

Tahap 1. Verifikasi kolom kunci sudah ada di dalam database atau belum.

Cara verifikasi dengan membandingkan kolom kunci tadi dengan objek kotak isian.

Vb.6

strS1 = "select kode_barang from stok where  kode_barang='" & (Txtkode_barang.Text) & "'"

Set rsData = cN.Execute(strS1)

If rsData.EOF Then

pernyataanSQL utk simpan data

end if

variabel strS1 bertipe data string, artinya berisi karakter bukan numeric (angka). Variabel ini berisi perintah SQL yang ingin mencari di database kolom kode_barang di dalam tabel stok, apakah ada kolom kode_barang yang sama dengan isian di kotak isian Txtkode_barang.Text.

penamaan objek di layout antar muka, harus konsisten, sehingga programmer bisa paham bahwa nama objek dengan awalan Txt adalah suatu textbox.

rsData , adalah variabel yang berfungsi sebagai penampung data (tabel / query) , karena sering digunakan maka ditulis di bagian module, yang bersifat sebagai variabel public.

Public rsData As ADODB.Recordset

Public cN As New ADODB.Connection

cN, adalah variabel yang berfungsi sebagai penghubung dengan database, sama dengan variabel rsData , maka bersifat public dan ditulis di Module

pernyataan kondisi If rsData.EOF Then

artinya adalah jika di vaiabel rsData yang mewakili tabel Stok , tidak ada data kolom kode_barang yang sama dengan kotak isian Txtkode_barang.Text , maka pernyataan SQL ditulis di ruang antara If ... then  samapai dengan End if

 

Vb.net (2008)

Namespace, jangan lupa selalu ditulis di bagian paling atas, sebelum area Form. Imports System.Data.OleDb

 

Cmd = New OleDbCommand("select * from stok where kode_barang='" & Txtkode_barang.Text & "'", Cn)

DR = Cmd.ExecuteReader

DR.Read()

If Not DR.HasRows Then

pernyataanSQL utk simpan data

End If

Keterangan,

Public Cn As OleDbConnection

OleDbConnection berfungsi untuk menghubungkan antar muka dengan sumber data.

Public Cmd As OleDbCommand

OleDbCommand berfungsi untuk menjalankan perintah SQL yang disudah dihubungkan dengan database dengan  variabel Cn.

 Public DR As OleDbDataReader

OleDbDataReader berfungsi membaca database dari variabel yang mewakili OleDbCommand

 

Setelah variabel Cmd , berhasil melakukan query untuk mengetahui apakah kolom kode_barang di tabel stok sama dengan isian yang ada di kotak Txtkode_barang.Text. Maka hasilnya ditampung di variabel DR yang sudah berisi variabel Cmd yang menggunakan fungsi ExecuteReader , untuk membaca data.

Pernyataan If Not DR.HasRows Then

Mempunyai maksud bahwa “jika tidak mempunyai data (rows) maka lakukan pernyataan SQL utk simpan data

Leave a Comment

Fields with * are required.

Please enter the letters as they are shown in the image above.
Letters are not case-sensitive.