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

Selasa, 21 Mei 2013

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

mySQL harus format yyyy-mm-dd
Access:
- gunakan format english mm/dd/yyyy di struktur sql atau vba
- data tanggal yang diambil dari control dalam form, mis form1!txtTanggal, akan diterjemahkan internal oleh access menjadi format english

jadi begini,
di query yang parameternya adalah textbox suatu form:

select *
from mytable
where tanggal between [forms]![frmEntri]![txtDari] and [forms]![frmEntri]![txtSampai]

maka di form itu kita format tanggal sebagai apa pun juga ("yy-mm-dd", "mm ddd, yyyy", "dd.mm.yyyy"), akan tetapi datanya adalah tanggal, maka tetap di query akan diformat ke english struktur.

tapi kalau kita tarik data menggunakan vba:
sql = "Select *"
sql = sql & "from mytable "
sql = sql & "between #" & format(me.txtDari,"mm/dd/yyyy") and "# and #" & format(me.txtSampai,"mm/dd/yyyy") & "#"
set rs = currentdb.openrecordset (sql)

maka tanggal harus di format ke english.

*format general yyyy-mm-dd juga bisa digunakan.

aksan kurdin

On 5/22/2013 6:34 AM, hari yanto wrote:

--- 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