Problem Koneksi VB6 ke Database.mdb

[Deva19]

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 :

1: ShowHide

Kode nya sebagai berikut :

2: ShowHide

Code: [Select]

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 :

3: ShowHide

Seharusnya text2 berisi teks, ketika saya mengetikan kata “cinta” pada text1, seperti berikut :

4: ShowHide

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 :

5: ShowHide

Code: [Select]

Rs_Data.Open SQL, KoneksiDb, adOpenDynamic, adLockBatchOptimistic

Tapi muncul pesan error lainnya :

6: ShowHide

Jadi, help me, please!

[hatRed]

Sub Open([Source], [ActiveConnection], [CursorType As CursorTypeEnum = adOpenUnspecified], [LockType As LockTypeEnum = adLockUnspecified], [Options As Long = -1])

[Deva19]

apa tuh maksudnya?

[hatRed]

pada saat objek Adodb.recordset menggunakan sub Open

itu bisa menggunakan argumen/tidak sama sekali

note : argumen yg didalam tanda kurung siku '[ ]' artinya optional

kalau menggunakan argumen, maka diberikan disitu tuh petunjuknya argumen pertama itu adalah Source, kedua adalah Active connection ( artinya Koneksi yg aktiv , aktiv disini terhubung) , CursorType (tipe kursor), Locktype, sama option..

petunjuk itu ada di object browser (gambar tombolnya kotak box kuning terbuka)

[hatRed]

Option Explicit

oh yah.. di setiap awal code.. biasakan pake

[Deva19]

bro Hatred, mau bantuin enggak? saya pengen banget bisa koneksikan itu database! saya mo kirim program nya, tolong koneksikan sama bro, ntar kirimin lagi ke saya.

[hatRed]

post aja disini.. semua kodenya...

yang lengkap,, toh.. siapa tau yg lain jg bisa bantu dan sharing teknik koneksi masing2