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, monggo disimak...

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..

Nah segitu dulu yang bisa saya jelaskan, mudah-mudahan bermanfaat bagi Nusa dan Bangsa.. :D

sumber : http://idan-share.blogspot.com