coba setelah con.open "bla bal"
ditambah ini :
con.CursorLocation = adUseClient
sonny marpaung <[EMAIL PROTECTED]> wrote:
Mas2 aku mau tanya bagai mana caranya untuk mendapatkan nomor record?
saya untuk konek ke databasenya dengan coding seperti dibawah ini
misalnya isi database DB:
kd nama
1 A
2 B
3 C
dim con As New ADODB.Connection
dim rs As New ADODB.Recordset
Public Sub Buka_Con()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb"
& _
";Persist Security Info=False;Jet OLEDB:Database Password="
rs.open("select * from tabel order by kd where kd = 2",cn,1,3)
msgbox rs.AbsolutePosisition 'Kenapa hasilnya selalu 0 bukan 2
End Sub
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
