Mengambil Tanggal Database SQL Server 2000

Pada saat kita membuat sebuah program transaksional, maka kita harus mempertimbangkan bagaimana caranya agar user tidak nakal dalam memasukkan data. Salah satu celahnya adalah dengan bermain tanggal. Sesuai sifatnya transaksional, maka pengerjaannya harus pada saat itu juga. Bila ada yang ketinggal pada hari sebelumnya, maka harus sepengetahuan supervisornya.
Untuk mengatasi hal itu, dibawah ini saya sajikan sintaks untuk mengambil tanggal dari database SQL server 2000

Public Function GetTGLServer() As Date
    Dim SQL As String
    Dim tglserver As Date

    Dim oDB As New ADODB.Connection
    oDB.Open DBConnString

    Dim oRS As ADODB.Recordset
    SQL = "select getdate() as tglserver"
    Debug.Print SQL
    Set oRS = oDB.Execute(SQL)
    If Not oRS.EOF Then
        tglserver = NullString(oRS!tglserver)
    End If
    GetTGLServer = tglserver
End Function

Asumsi :
DBConnString adalah sebuah koneksi string menuju database SQL Server

Advertisement