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

aslm pak har

saya uda cabo gunakam fungsi tangga masih tapi error sya menggunakan MySQL mohon pencerahan

Function for_date()

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

End Function

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_YysnNama,Sek_YysnAlamat,Sek_YysnKelompok,Sek_Akreditasi," _
                        & " Sek_Klp_ID,Sek_Alamat,Sek_Desa,Sek_Geo_ID,Sek_KodePOS,Sek_Kab_ID,Sek_Kec,Sek_NoTelp," _
                        & "Sek_Fax,Sek_email,Sek_website,Sek_LastUpdate) values ('" & TextNPSN & "','" & TextNSS & _
                        "','" & cbmTingkat & _
                        "','" & TextSekolah & _
                        "','" & cmbStatus & _
                        "','" & TextPimpinan & _
                        "','" & TextNamaYayasan & _
                        "','" & TextAlamatYayasan & _
                        "','" & cmbKelompokYayasan & _
                        "','" & cmbAkreditasi & _
                        "','" & cmbKelompokSMK & _
                        "','" & TextAlamat & _
                        "','" & TextKelurahan & _
                        "','" & cmbLokasi & _
                        "','" & TextKodePos & _
                        "','" & cmbKabupaten & _
                        "','" & cmbKecamatan & _
                        "','" & TextTelepon & _
                        "','" & TextFax & _
                        "','" & TextEmail & _
                        "','" & TextWebsite & _
                        "','" & tglValid(Date, for_date) & "')"
      conn.Execute sql
    Call bersih
    Call Blank
End Sub

From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, May 21, 2013 4:34 PM
Subject: 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 koneksiDim 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 BlankEnd Sub

zakirnas