Pusing banget nih, lagi nyoba keneksi VB6 ke database, tapi gagal terus. Ada yang bisa ngasih pencarahan enggak?
Permasalahannya sebagai berikut :
Saya membuat sebuah form, tampak seperti berikut :
Kode nya sebagai berikut :
Private Sub Form_Load()
Call BukaDatabase
End Sub
Private Sub Text1_LostFocus()
SQL = "SELECT*FROM TBURAIAN " _
& " WHERE SUBJUDUL=`" & Text1.Text & "`" _
& " ORDER BY SUBJUDUL"
Set Rs_Data = New ADODB.Recordset
If Rs_Data.BOF Then
MsgBox "Data tidak ada"
Else
Text2.Text = Rs_Data.Fields("URAIAN")
End If
End Sub
Tapi ketika dijalankan, selalu muncul pesan error sebagai berikut :
Seharusnya text2 berisi teks, ketika saya mengetikan kata “cinta” pada text1, seperti berikut :
Saya berhasil membuat program tersebut pada VBA, tapi gagal dengan VB6, dan sudah memeriksa berbagai kemungkinan penyebab error yang saya ketahui, tapi masih belum diketahui penyebab errornya.
Koneksi Database lancar :
Dan saya juga mencoba menambahkan script berikut :
Rs_Data.Open SQL, KoneksiDb, adOpenDynamic, adLockBatchOptimistic
Tapi muncul pesan error lainnya :
Jadi, help me, please!