Dual ada table yang sudah disediakan oleh oracle dengan owner nya sys, bisa diakses oleh semua user. Hanya memiliki satu column namanya dummy.
Untuk pengambilan time nya diparsing di vb nya. contoh dari http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_10333307.html, sbb: Function SysDate() As Variant '************************* ************************************************************************************************ ' Retrieves the current date/time from the database server ' Example call: ' SQL = SQL + "SET LASTUPDATED = " & ToDate(SysDate()) '************************************************************************************************************************* Dim sErrors As String Dim sSQL As String Dim vReturn As Variant Dim lrs As Recordset On Error GoTo SysDateErr SysDate = "" vReturn = "" sSQL = "SELECT SYSDATE AS SERVERDATE FROM DUAL" Set lrs = New ADODB.Recordset lrs.CacheSize = 100 CN.CursorLocation = adUseServer lrs.Open sSQL, CN, adOpenForwardOnly, adLockReadOnly, adCmdText If Not lrs.BOF And Not lrs.EOF Then If Not IsNull(lrs("SERVERDATE")) Then If IsDate(lrs("SERVERDATE")) Then vReturn = Format(lrs("SERVERDATE"), "m/d/yyyy hh:nn:ss AM/PM") End If End If End If SysDate = vReturn lrs.Close Set lrs = Nothing SysDateExit: Exit Function SysDateErr: Screen.MousePointer = 0 sErrors = "SysDate " & Err.Description frmMessage.MessageBox sErrors, vbCritical, Err & "" Resume SysDateExit End Function So, you're function call would be: Set testParm = testCmd.CreateParameter("Time_Stamp", adDate, adParamInput, , SYSDATE()) wempy ali wrote: > hallo wadi... > aku udah coba dari SQL plus "select sysdate from dual;" dan berhasil > mendapatkan tanggal server. > aku mau tanya dual itu mewakili/artinya apa ya? > dan untuk ambil time SQL nya apa ? > > tks > > --- On Fri, 11/7/08, Wadi Achmed <[EMAIL PROTECTED]> wrote: > > From: Wadi Achmed <[EMAIL PROTECTED]> > Subject: Re: [indo-oracle] Bgmn mengambil date dan time dari server2000 via > VISUAL BASIC 6.0 > To: [email protected] > Date: Friday, November 7, 2008, 11:31 PM > > Hallo Wempy, > > select sysdate into datetime_variable from dual; > > gunakan sql tersebut untuk mengambil date time server. > Kalau di vb saya kurang jelas bagaimana menggunakan itu. Apakah bisa > embedded sql? > > Cheers, > Wadi Achmed > > wempy ali wrote: > >> hallo yen... >> Sorry, mungkin subject dgn isi gak nyambung...krn gak sengaja ter sent. >> >> aku malah bingung gimana nulis aplikasi systimestamp kalo di visual basic. >> aku udah coba di SQLplus , tapi gak bisa... >> tolong dong.... >> >> >> tks. >> >> --- On Fri, 11/7/08, Yenn Madyanto <[EMAIL PROTECTED]> wrote: >> >> From: Yenn Madyanto <[EMAIL PROTECTED]> >> Subject: Re: [indo-oracle] Bgmn mengambil date dan time dari server2000 >> > via VISUAL BASIC 6.0 > >> To: [email protected] >> Date: Friday, November 7, 2008, 6:36 AM >> >> subject ama pertanyaannya gak nyambung :) >> kalo di oracle pake systimestamp aja, >> >> semoga membantu, >> >> YennM. >> >> On Fri, Nov 7, 2008 at 11:43 AM, wempy ali <[EMAIL PROTECTED]> >> > wrote: > >> >> >>> halo teman2... >>> bgmn access time dan date dari database oracle? biar date >>> > dan > >>> time tidak perlu ikut client yg mungkin sering diubah2 oleh user. >>> >>> tks. >>> >>> wempy. >>> >>> [Non-text portions of this message have been removed] >>> >>> >>> >>> >>> >> [Non-text portions of this message have been removed] >> >> >> ------------------------------------ >> >> -- >> -----------I.N.D.O - O.R.A.C.L.E--------------- >> Keluar: [EMAIL PROTECTED] >> Website: http://indooracle.wordpress.com >> ----------------------------------------------- >> >> Bergabung dengan Indonesia Thin Client User Groups, >> Terminal Server, Citrix, New Moon Caneveral, di: >> http://indo-thin.blogspot.comYahoo! Groups Links >> >> >> >> >> >> >> >> >> [Non-text portions of this message have been removed] >> >> >> ------------------------------------ >> >> -- >> -----------I.N.D.O - O.R.A.C.L.E--------------- >> Keluar: [EMAIL PROTECTED] >> Website: http://indooracle.wordpress.com >> ----------------------------------------------- >> >> Bergabung dengan Indonesia Thin Client User Groups, >> Terminal Server, Citrix, New Moon Caneveral, di: >> http://indo-thin.blogspot.comYahoo! Groups Links >> >> >> >> >> >> > > ------------------------------------ > > -- > -----------I.N.D.O - O.R.A.C.L.E--------------- > Keluar: [EMAIL PROTECTED] > Website: http://indooracle.wordpress.com > ----------------------------------------------- > > Bergabung dengan Indonesia Thin Client User Groups, > Terminal Server, Citrix, New Moon Caneveral, di: > http://indo-thin.blogspot.comYahoo! Groups Links > > > > > > > > > [Non-text portions of this message have been removed] > > > ------------------------------------ > > -- > -----------I.N.D.O - O.R.A.C.L.E--------------- > Keluar: [EMAIL PROTECTED] > Website: http://indooracle.wordpress.com > ----------------------------------------------- > > Bergabung dengan Indonesia Thin Client User Groups, > Terminal Server, Citrix, New Moon Caneveral, di: > http://indo-thin.blogspot.comYahoo! Groups Links > > > > > ---------- ---------- No virus found in this outgoing message. Checked by AVG - http://www.avg.com Version: 8.0.175 / Virus Database: 270.9.0/1778 - Release Date: 11/9/2008 2:14 PM [Non-text portions of this message have been removed]
