Private Sub Form_Load()
Dim strPath As String
strPath = App.Path & IIf(Right(App.Path, 1) = "\", "", "\")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
& "db3.mdb" & ";Persist Security Info=False", "admin", ""
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [;DATABASE=" & strPath & "db4.mdb].A", cnn,
adOpenStatic, adLockReadOnly
Set Me.DataGrid1.DataSource = rs
End Sub
saya koneksikan cnn ke db3, tetapi query yang saya panggil ada di db4.
aksan kurdin
Pada tanggal 9/21/05, ryu_hanazawa <[EMAIL PROTECTED]> menulis:
> con.Open "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & App.Path &
> "\file.mdb; "
>
> SQL1 = "select a.file........"
> rs.open SQL1,con,1,3
>
> SQL1 sudah ditulis dgn format yg KK berikan. tapi untuk open
> Recordset-nya bagaimana?
> krn dlm Ms.Access harus open koneksi dan open recordset jg.
> Jd ketika prog saya jalankan Error krn koneki hanya ke satu db saja.
> Atau kk bisa kirimkan saya contoh prog sederhana join 2db ke email
> saya [EMAIL PROTECTED]
> Thqu
>
>
>
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
