Kumpulan Run-time error pada VB 6.0

Run-time error - Pada saat Anda membuat program aplikasi dengan Ms Visual Basic 6.0 khususnya program aplikasi VB dengan databasenya menggunakan Ms Access 2003/2007, mungkin Anda pernah mengalami error seperti : Run-time error '91' : Object variable or with block variable not set, Run-time error '-2147217900 (80040e14)' invalid sql statement;expected 'Delete', 'Insert', 'procedure', 'select', or 'update', Run-time error '-2147217904(80040210)' no value given for one or more required parameters, atau error run time lainnya. Mungkin bagi Anda yang sering menemui error seperti itu, pasti Anda akan dengan mudah menanganinya. Tapi bagaimana jika Anda baru pertama kali menemui error tersebut?. Nah di bawah ini saya akan pararkan beberapa jenis error, penyebabnya dan juga bagaimana cara penanganannya

No
Jenis Error
Sebab
Penanganan
1
Compile error :
User-defined type not defined
Anda belum melakukan koneksi dengan Ms Access 2003/2007
  • Klik menu project
  • Klik References
  • Cek list Microsoft active Data Objects 2.1 Library
2
Run-time error ‘-2147217904(80004005)’ : [Microsoft][ODBC driver Manager] Datasource name too long
Salah penulisan pada kata Provider pada koneksi.Contoh : menulisnya Profider .
Perbaiki penulisan kata Provider.
3
Run-time error '3706' : Provider cannot be found, it may not be properly installed
Salah penulisan pada koneksi. Pada bagian :
Microsoft.jet.OLEDB.4.0;data source = "
Perbaiki penulisan pada bagian
Microsoft.jet.OLEDB.4.0;data source = "
4
Run-time error '-2147467259(80004005)' : Could not find file 'D:\data siswa\anita\wawadutan.mdb
Ada dua kemungkinan penyebab error tersebut.
Pertama mungkin Anda salah menuliskan nama databasenya,
Kedua mungkin Anda belum menyimpan databasenya satu folder dengan file VB 6.0
Jika penyebab pertama :
Perbaiki penulisan nama databasenya.
Jika penyebab kedua :
Simpan file database access satu folder dengan file-file Ms VB 6.0
5
Run-time error '-2147467259(80004005)' : Could not find installable ISAM
Kesalahan penulisan pada bagian :
"\peguk.mdb;persist security info=false"
Contohnya:
"\peguk.mdb;perssist security info=false"

Arti tulisan berwarna biru :
Tulisan tersebut merupakan nama database. Sesuaikan database dengan yang Anda buat.
Perbaiki penulisan pada bagian :
"\peguk.mdb;persist security info=false"
6
Run-time error '91' :
Object variable or with block variable not set
Anda belum menuliskan :
Set db = New ADODB.Connection

Ket : Tulisan berwarna merah adalah sebuah variable yang bersifat optional. Karena itu sesuaikan dengan variable yang Anda buat.
Tulisan :
Set db = New ADODB.Connection
Dibawah koneksi dengan provider
7
Run-time error '3709' :
The connection cannot be used to perform this operation. It is either closed or invalid in this context.
Ada beberapa kemungkinan sebab

Pertama : Anda belum menuliskan
Db.open koneksi

Kedua : Anda belum membuat koneksi dengan Ms Access

Ket : Tulisan berwarna merah adalah sebuah variable yang bersifat optional. Karena itu sesuaikan dengan variable yang Anda but.
Tuliskan tulisan berikut ini di atas end sub :
Db.open koneksi
Atau
Buat koneksi
8
Run-time error '-2147217900(80040e14)' :
Invalid SQL statement; expected 'Delete', 'Insert', 'Procedure', 'Select', or 'update'
Salah penulisan pada perintah SQL.
Contohnya Insert menjadi Inser.
Periksa kembali perintah SQL dan perbaiki.
9
Run-time error '-2147467259(80004005)' : Number of Query values and destination fields are not the same
Jumlah data yang diinputkan tidak sama dengan jumlah field yang ada pada table
Periksan jumlah fields pada table bersangkutan, tipe data, dan inputkan data sesuai dengan fields pada table
10
Run-time error
‘-2147217904(80040e10)’ :
No value given for one or more required parameters.
Field yang dituliskan pada perintah SQL update, tidak sama dengan field pada table.Penulisan field harus sama persis dengan field
pada table atau data yang diinputkan bertipe data berbeda.

Contohnya :
sql = "UPDATE CUSTOMER SET " & _ "NamaCust='" & txtnmcust.Text & "'," & _ "Alamat='" & txtalamat.Text & "'," & _ "NoTlp='" & txttlp.Text & "'"
& _ " where IdCust='" & txtidcust.Text & "'" db.Execute sql

Penjelasan :
Tulisan berwarna pink seharusnya NmCust, bukan NamaCust
Cek kembali penulisan pada perintah SQL, dan cocokan dengan fields pada table yang bersangkutan
11
Run-time error ‘-2147217900(80040E14)’ :
Syntax error (mising operator) in query expression “Anita Sesar Ria, Kelas=’ Si ’, where nim=’2006-104-002’
Anda kurang memberikan tanda petik satu ( ‘ ) pada perintah SQL.
Ket tulisan berwarna merah:
Pada penulisan perintah pada bagian field tersebut memiliki kekurangan petik satu ( ‘ )
Tambahkan tanda petik satu ( ‘ ) pada perintah SQL untuk field yang betipe data text/string

Jenis error, penyebab error, dan penanganan error diatas masih sangat sederhana. Untuk itu Anda bisa meneliti/melatih penangan error pada VB 6.0 lebih lanjut, karena jenis error sangat banyak dan cara penanganannya pun ada beribu cara..
  

Cara membuat animasi text seperti diketik di visual basic 6.0

 Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik
1.       Pertama buka visual basic 6.0
2.       Pilih standar.exe
3.       Masukan 3 buah komponen berikut
a.       Label
b.      Timer dgn property è enabled = false, interval = 300
c.       Command buton dgn property è caption = mainkan