Dear Joni,

Semoga listing berikut bisa membantu:

With crt_karyawan
        .DataFiles(0) = "app.path & "\Karyawan.mdb"
        .ReportFileName = "app.path & "\Karyawan.rpt"
        .SelectionFormula =  "{Karyawan.Nik}= '" & tx_nik.text & "'"
        WindowState = crptMaximized
        .Destination = crptToWindow
        Action = 1
End With

*Nah kalo muncul pesan "Cannot open SQL Server", coba periksa di Crystal 
Reportnya, mungkin file .rpt nya sudah pindah tempat (sudah di copy ke 
tempat laen).
Coba aja ke Menu > Database > Set Location > ... Lalu pilih databasenya ...

Coba aja Good Luck...


Salam,

Thoy

----- Original Message ----- 
From: "Joni Oktora" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, February 15, 2006 10:44 AM
Subject: [Programmer-VB] Tolong listing print (Crystal report 8,5) ----> ADO


> Bwat all Senior
>
> Saya sedang belajar bwat program pake VB. Tapi ada
> masalah dengan program print. Bagi rekan2 tolong bantu
> saya gimana listing program print berdasarkan Nik
> karyawan. Saya uda coba listing berikut :
> ===============awal listing ===================
> private sub Cmd_Print_Click()
> crt_karyawan.ReportFileName = "\Karyawan.rpt"
> crt_karyawan.SelectionFormula = "{Karyawan.Nik}= '" &
>   tx_nik.text & "'"
> crt_karyawan.WindowState = crptMaximized
> crt_karyawan.RetrieveDataFiles
> crt_karyawan.Action = 1
> end sub
> =============akhir listing=========================
>
> Tapi selalu keluar pesan Cannot open SQL Server (saya
> pake acces untuk databasenya).
>
> Kira2 letak kesalahannya dimana ? Tolong.....
>
> Itu saja pertanyaan dr saya. Maaf kalo kata2 dlm
> penyampaiannya kurang pas.
>
> Salam
>
> Oktora
>
>
> Nb.
> Nama Db-nya Hrd trus yg mo diprint Table Karyawan
>
>
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
> Wahana Programmer Groups Links
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.375 / Virus Database: 267.15.8/260 - Release Date: 2/14/2006
>
> 




Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer
 
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/
 



Kirim email ke