ACCESS FEED: Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari

Selasa, 21 Mei 2013

Format Tgl Acces-MySql-MsQl / dh [belajar-access] Tombol Cari

--- On Wed, 22/5/13, Muzakkir Nasruddin <zakirnas@ymail.com> wrote:

From: Muzakkir Nasruddin <zakirnas@ymail.com>
Subject: Re: Bls: [belajar-access] Tombol Cari
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Wednesday, 22 May, 2013, 12:33 AM

Wa'alaikumsalam Wr Wb...

Bismillahirrohmanirrohim...

Memang ada perbedaan format tanggal antara Ms Acees-MySql-MsQl. Terutama bila kita eksekusi via VBA. Untuk Database MySql dan MsQl, format-nya harus diubah (mengikuti format database):

Format(TGL, "YYYY-MM-DD")

Sedangkan bila Databasenya Ms Acces, formatnya (entah dari mana saya temukan) dibuat sendiri. Lalu diletakkan pada format date. Ini scriptnya:

Function for_date()

    If CInt(Left(CStr(DateSerial(2012, 1, 2)), 2)) = 2 Then
        for_date = "dd/mm/yyyy"
    Else
        for_date = "mm/dd/yyyy"
    End If

End Function

Contoh penggunaan di sql:

db.Execute "insert into TblPelanggan (IDRecord,TglAktif,KodePel)" _
        & " values (" & idrec & ",#" & Format(Date, for_date) & "#," & ubah(idpel) & ")"

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

aslm komunitas accesss

saya mengemui kendala dalam input data tanggal dengan menggunakan sql mohon pencerahan dalam memasuknan tanggal Pendirian

mis

Private Sub CmdSimpan_Click()

Call koneksi
Dim sql As String
      sql = "insert into Sekolah (sek_NSS,Sek_UNIK,Sek_Tis_Kode,Sek_Nama,Sek_Status,Sek_NamaPimpinan," _
                        & " Sek_Tgl_Pedirian) values ('" & TextNPSN & "','" & TextNSS & _
                        "','" & cbmTingkat & _
                        "','" & TextSekolah & _
                        "','" & cmbStatus & _
                        "','" & TextPimpinan & _
                        "','" & TextTgl_Pedirian& "')"

conn.Execute sql
    Call bersih
    Call Blank
End Sub

zakirnas