contoh validasi input menggunakan database di vb.06

malem sobat.
kali ini saya akan memcoba menuangkan apa yang pernah jadi kendala saya menerapkan latihan program di kampus. disini saya akan mencoba membuat validasi, yang mana validasi ini berfungsi untuk membuat pernyataan-pernyataan agar ketika user menginputkan data itu sesuai dengan apa yang kita inginkan. Hal ini tentu akan sangat membantu kelancaran program untuk menghindari debug atau error program. ok dari langsung aja ke praktek y yuk ntar malah pusing duluan mukirin kata-kata ane yang nglantur heeee..
ok disini saya ada contoh program menginputkan data barang.

sebelum y untuk koneksi y saya pake adodc dg datagird. dengan nama tabe
Untuk validasi yg ingin saya tampilkan :
1. Kode tidak boleh kosong, tidak dobel, dan harus 5 digit
2. Nama wajib diisi
3. Harga wajib diisi.
ok untuk scrip prograpnya


Private Sub cmdsimpan_Click()
'validasi kode wajib diisi
If Text1.Text = "" Then
MsgBox "kode wajib diisi", 0 + 64
Text1.SetFocus
'validasi kode harus 5 digit
ElseIf Len(Text1.Text) > 5 Or Len(Text1.Text) < 5 Then
MsgBox "Kode Harus 5 Digit", 0 + 64
Text1.SetFocus
'validasi nama wajib diisi
ElseIf Text2.Text = "" Then
MsgBox "nama wajib diisi", 0 + 64
Text2.SetFocus
'validasi harga wajib diisi
ElseIf Text3.Text = "" Then
MsgBox "harga wajib diisi", 0 + 64
Text3.SetFocus
Else
'mengambil data di database, nama adodc nya adobarang.
Adobarang.RecordSource = "select * from latdistro"
'mencari  di text1.text ada apa tidak di database
Adobarang.Recordset.Find "kode='" & Text1 & "'"
'jika ada kita kasih validasi kode agar tidak terduplikat
If Not Adobarang.Recordset.EOF Then
MsgBox "kode sudah ada", vbCritical, 0
Text1.SetFocus
'jika semuaya sudah terisi dengan baik maka data akan disimpan
Else
'mengisi ke tabel di database
Adobarang.Recordset.AddNew
'menyesesuaikan nama field dg nama textbox
Adobarang.Recordset!kode = Text1.Text
Adobarang.Recordset!nama = Text2.Text
Adobarang.Recordset!harga = Text3.Text
MsgBox "Data telah tersimpan"
Call kosong
cmdtambah.Caption = "&Tambah"
cmdsimpan.Enabled = False
Text1.SetFocus
End If
End If
End Sub

ok ini hasilnya.
selamat mencoba