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

Kamis, 23 Mei 2013

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

sertakan
debug.print sql
seperti contoh di bawah, dan paste-kan sql yang di print di immediate window (ctrl-g untuk menampilkannya di vba)
coba kita tengok sama2 sqlnya.

atau anda langsung eksekusi sql itu di phpmyadmin / editor sql mySql yang anda pakai.

aksan kurdin

On 5/23/2013 9:18 AM, Muzakkir Nasruddin wrote:

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) values ('" & TextNPSN & "','" & TextNSS & _
                        "','" & cbmTingkat & _
                        "','" & TextSekolah & _
                        "','" & cmbStatus & _
                        "','" & TextPimpinan & _
                        "','" & TextNamaYayasan & _
                        "','" & TextAlamatYayasan & _
                        "','" & cmbKelompokYayasan & _
                        "','" & cmbAkreditasi & _
                        "','" & cmbKelompokSMK & _
                        "','" & TextAlamat & _
                        "','" & TextKelurahan & _
                        "','" & cmbLokasi & _
                        "','" & TextKodePos & _
                        "','" & cmbKabupaten & _
                        "','" & cmbKecamatan & _
                        "','" & TextTelepon & _
                        "','" & TextFax & _
                        "','" & TextEmail & _
                        "','" & TextWebsite & _
                        "','" & TglFalid & _
                        "','" & Format(Date, "yyyy/mm/dd") & "')"

debug.print sql

    'sql = "insert into sekolah(Sek_LastUpdate) values ('" & Format(Date, "yyyy/mm/dd") & "')"
      conn.Execute sql
    Call bersih
    Call Blank
End Sub

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (17)

Recent Activity: