VB.net – part 3 translate dari VB classic , insert,query, update dan delete , bagian INSERT

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

Vb.net - part 1 kiat developer aplikasi

jika Anda developer vb6 dan kemudian akan migrasi ke vb.net, tidak perlu kuatir untuk belajar lagi. Banyak artikel dan eyang google dengan youtube nya yang setia support Anda. Seperti semua pemula developer, tahap mula kita belajar adalah mencontoh persis apa yang ditulis senior, (baca developer berpengalaman puluhan/ratusan project). Jika sudah berhasil persis, barulah untuk memulai modif. Biasanya ditahap ini, mulai timbul error yang membutuhkan banyak usaha. Nah, tahap ini situs "stackoverflow" jadi rujukan para developer.

Namun, adakalanya para newbie ada yang malas ngetik "puisi" coding nya. Mereka lebih suka pengen cepat lihat hasil, dengan copas script code dari artikel yang ada. Hal ini tidak disarankan, kecuali jika udah yakin paham betul dan developer yang dikejar deadline waktu. Mengapa copas tidak disarankan?

Saat kita tekan keyboard laptop/PC kita, biasanya akan ada salah ketik "typo", baik kurang tanda titik koma (;) utk php ataupun salah ketik lainnya terkait object utk VB. Saat di run akan ada pesan error.. Saran saya..bersyukur lah. Pengetahuan akan error yang ada akan menjadikan Anda sebabagai developer yang handal ke depan. Dengan ketemu banyak bug/error dan selalu memperhatikan sekaligus mengingat ingat pesan eror tadi, maka akan semakin mempercepat penemuan solusinya.

 

VB.net – part 2 Cara Belajar Efektif Pemrograman

Syntax suatu bahasa pemrograman pada dasar hampir semua sama. Baik itu deklarasi variabel,prosedure, function, if then else dan lainnya, mempunyai kemiripan. Akan tetapi untuk  lebih dalam lagi, pasti ada hal yang beda.

Developer aplikasi, biasanya sudah paham akan sistem informasi, sehingga untuk meningkatkan skill, tinggal belajar untuk syntax ( aturan baku bahasa pemrograman agar dapat berjalan dengan baik ). Agar untuk menguasai bahasa pemrograman, tidak “ngalor ngidul” yang artinya tidak fokus, lebih baik melakukan translate bahasa pemrograman yang sudah dikuasai selama ini.

Oleh karena developer mempunyai target agar mempunyai skil yang menghasilkan produk, maka untuk developer sistem informasi, disarankan fokus di bagian manajemen databasenya.

  1. Koneksi string database

Untuk VB 6, bisa dengan coding sebagai berikut:

‘’ awal Koneksi string

strKon = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path + "\db_4rd1to\db_4rd1to.mdb;Jet OLEDB:Database Password=ini_password"

 Set cN = New ADODB.Connection

 cN.Open strKon

‘’ akhir Koneksi string

Terlihat bahwa project memakai ADODB dalam mengelola databasenya. Apabila seorang meng copy dan paste source code di atas, banyak kemungkinan akan error.

compile error:  User-defined type not defined

Sebelum menjalankan project, terlebih dulu seting di menu Project > References > pilih lah Microsoft ActiveX Data Objects 2.0 Library

 

Untuk VB.NET

Ada suatu Namespace, yang harus di Import terlebih dulu.

Namespace adalah cara untuk menghilangkan salah perintah satu antarmuka publik dari yang lain. Atau bisa diartikan; untuk menghindari error saat menggunakan nama class yang sama.

Letak namespace, berada paling atas suatu list code form antar muka. Sebelum memulai penulisan coding, harus menuliskan namespace ini.

 

Imports System.Data.OleDb ‘ ini namespace

‘deklarasi variabel diletakkan di file Module1.vb

Module Module1

  Public Cn As OleDbConnection

  Public DA As OleDbDataAdapter

  Public DS As DataSet

  Public Cmd As OleDbCommand

  Public DR As OleDbDataReader

  Public StrKey As String, strS1 As String, strS2 As String, strS3 As String, strS4 As String

Public strKon As String, strCR As String

Public Sub Konek()

        strKon = "Provider=Microsoft.Jet.OleDB.4.0;Data Source= db_4rd1to\ db_4rd1to.mdb;Jet OLEDB:Database Password=rejeki"

 

        Cn = New OleDbConnection(strKon)

        Cn.Open()

 

 

        'mengubungkan command ke connection

        Cmd.Connection = Cn

    End Sub

End Module