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, monggo disimak.
| No | Jenis Error | Sebab | Penanganan |
| 1 | Compile error : User-defined type not defined | Anda belum melakukan koneksi dengan Ms Access 2003/2007 |
|
| 2 | Run-time error ‘-2147217904(80004005)’ : [Microsoft][ODBC driver Manager] Datasource name too long | Salah penulisan pada kataProvider 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 : “\DB.mdb;persist security info=false” Contohnya: “\DB.mdb;perssist security info=false”
Arti tulisan berwarna biru :
Tulisan tersebut merupakan nama database. Sesuaikan database dengan yang Anda buat. | Perbaiki penulisan pada bagian : “\DB.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 pinkseharusnya NmCust, bukanNamaCust | 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 “Naminduka, Kelas=’ IT ’, where nim=’2014-100-032’ | 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..
Nah segitu dulu yang bisa saya jelaskan, mudah-mudahan bermanfaat.