saya menggunakan MySql :
call konekdb
Set MyRs = MyDB.Execute("SELECT count(transumum.kdmitra) as
qty,transumum.kdmitra,refmitrapayment.nama,sum(transumum.besaruang) as
bsu,left(transumum.tanggal,4) as thn,right(left(transumum.tanggal,6),2) as
bln,idstatustrans FROM transumum INNER JOIN refmitrapayment ON
transumum.kdmitra = refmitrapayment.kdmitra GROUP BY
transumum.kdmitra,refmitrapayment.nama,thn,bln,idstatustrans HAVING thn='" &
vthn & "' and bln='" & vBulan & "' AND idstatustrans='" & stt & "'")
Set MyRs1 = MyDB.Execute("SELECT NOW()")
tanggal=forma(MyRs1.Fields(0).Value,"dd-mm-yyyy")
demikian om
salam,
darsana
----- Original Message -----
From: M Ridwan Muslim <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, August 30, 2005 8:31 AM
Subject: Re: [Programmer-VB] Re: Ambil Tanggal dan Jam dari
Server/KomputerLain
> Dear All,
> Terima kasih atas info nya untuk Pak Toto,
> Saya sudah bikin koneksi ke database, tapi masalahnya bagaimana cara
> ambil outputnya Pak Darsana...
>
> RGds/ Ridwan
>
>
> Darsana wrote, On 8/29/2005 11:36 AM:
>
> >lakukan koneksi ke server/komputer lain
> >trus buka database, lakukan query berikut :
> >
> >select now()
> >
> >salam,
> >darsana
> >
> >
> >
> >
> >
> >Untuk keluar dari millis ini, kirim email kosong ke:
> >[EMAIL PROTECTED]
> >
> >
> >Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
> --
> Mohammad Ridwan Muslim
> -------------------------------
> EDP/ Business System Department.
> PT. Samudera Indonesia Tbk. Div. Hapag-Lloyd
> Samudera Indonesia Building Lt. 8
> Jl. Let. jen. S. Parman Kav.35 - Jakarta Barat 11480
> Phone : +6221 5495225 EXT 19.
> Fax : +6221 5304181.
> Email : [EMAIL PROTECTED]
>
>
>
>
> 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/
