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 :
[spoiler=1]
(https://forum.dhammacitta.org/proxy.php?request=http%3A%2F%2Flh5.ggpht.com%2F_Hj0A9kRaC-4%2FTCWBKbuqI6I%2FAAAAAAAAAKk%2FOwH8JYzIZ2k%2Fform1.JPG&hash=9c62a6700bc68fbafb417cf798ac99b752cc9fc7)[/spoiler]
Kode nya sebagai berikut :
[spoiler=2]
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
[/spoiler]
Tapi ketika dijalankan, selalu muncul pesan error sebagai berikut :
[spoiler=3]
(https://forum.dhammacitta.org/proxy.php?request=http%3A%2F%2Flh3.ggpht.com%2F_Hj0A9kRaC-4%2FTCWDLW0wuyI%2FAAAAAAAAAKs%2FacXrjlb3B9w%2Fpesan_error.JPG&hash=e9c2a70242c0b76f713fbc643a3a6d5f2a7a72fe)[/spoiler]
Seharusnya text2 berisi teks, ketika saya mengetikan kata "cinta" pada text1, seperti berikut :
[spoiler=4](https://forum.dhammacitta.org/proxy.php?request=http%3A%2F%2Flh3.ggpht.com%2F_Hj0A9kRaC-4%2FTCWE9KsRsKI%2FAAAAAAAAAK4%2FpNZGrmP4aPE%2FdenganVBA.JPG&hash=900690b596421f26b39a58f32122f6088112f1ed)[/spoiler]
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 :
[spoiler=5]
Rs_Data.Open SQL, KoneksiDb, adOpenDynamic, adLockBatchOptimistic
Tapi muncul pesan error lainnya :
[spoiler=6](https://forum.dhammacitta.org/proxy.php?request=http%3A%2F%2Flh3.ggpht.com%2F_Hj0A9kRaC-4%2FTCWF8Kb5nbI%2FAAAAAAAAALE%2FvaJ9dUv2P28%2Fwrong%2520type.JPG&hash=f85c2b1efa100629f92a29ce07efd94b44ecf6ec)[/spoiler]
Jadi, help me, please!
Sub Open([Source], [ActiveConnection], [CursorType As CursorTypeEnum = adOpenUnspecified], [LockType As LockTypeEnum = adLockUnspecified], [Options As Long = -1])
apa tuh maksudnya?
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)
Option Explicit
oh yah.. di setiap awal code.. biasakan pake
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.
post aja disini.. semua kodenya...
yang lengkap,, toh.. siapa tau yg lain jg bisa bantu :) dan sharing teknik koneksi masing2