Friday, May 21, 2010

Menyimpan Data Tanggal Di Visual Foxpro

Ms. Visual Foxpro 9 adalah salah satu jenis pemograman berbasis visual yang mengandalkan fungsi database yang sudah tersedia pada programnya tersebut...

tapi dalam penyimpanannya sering kali kita dipersulit karena berbeda dalam menyimpan data pada data base tersebut, karena setiap tipe data pada foxpro cara peyimpanannya tuch berbeda...

contoh kasus...
Jika Kita Punya Tampilan Form Seperti Ini..


dengan strukut tabel'y seperti dibawah ini :
nama tabel : anggota
field -- type
tgl_daftar -- date
nama -- character
tgl_lahir -- date
sebagai contoh tgl_daftar dijadikan index atau primary key

klo dilihat memang antara field tgl_daftar dengan field tgl_lahir type field'y sama yaitu date atau dengan format tanggal...
tapi untuk penyimpanannya mereka mempunyai listing yang sedikit berbeda...
+-----------------------------------------------------------------+
struktur listing penyimpanannya pada cmdsimpan
+-----------------------------------------------------------------+
use anggota.dbf *listing untuk memilih tabel
set order to tag tgl_daftar *lisitng untuk memberi identitas pada field primary key
replace tgl_daftar with thisform.txttgl_daftar.value
replace nama with thisform.txtnama.value
replace tgl_lahir with CTOD(thisform.txttgl_lahir.value)
thisform.refresh
+-----------------------------------------------------------------+
struktur listing penyimpanannya pada cmdsimpan
+-----------------------------------------------------------------+
kenapa untuk menyimpan tanggal lahir menggunakan CTOD...?? sedangkan pada tanggal daftar tidak..
jawab :
untuk tanggal daftar ia tampil otomatis
sedangkan untuk tanggal lahir kita input manual jadi untuk penyimpanannya kita perlu menambahkan perintah CTOD...
terus apa itu CTOD..??
jawab :
CTOD = fungsi untuk merubah value atau nilai yang kita input manual pada textbox txttgl_lahir dari charakter ke date...
singkatnya CTOD (Character TO Date)..

8 comments:

  1. toloong...???
    replace mulaigabun with CTOD(thisform.pageframe1.page1.text7.value)
    replace selesaigab with CTOD(thisform.pageframe1.page1.Text8.value)
    LISTING saya diatas kok gx mau mas ya disimpan..slh nya dmn kira2..mklum newbie..

    ReplyDelete
  2. maaf baru blz mas...
    btw pesan error'y apa ya...?
    klo misalkan dari listing yg ditulis she ga ada kesalahan apa2..
    tapi klo ada pesan eerror'y apa mungkin bisa analisa..
    terima kasih

    ReplyDelete
  3. errornya type data mismatch

    ReplyDelete
  4. Bisa g ya?. Diform itu. Semua tanggal, muncul spt kalender. Kita tinggal click saja. Ya spt ms access saja. Gitu.

    ReplyDelete
    Replies
    1. G bisa spt ms access. Goblok mang tuh foxpro.

      Delete
  5. Sy jg lg pusing dng tyoe date. Data type miscmach terus. Akhirnya pakai fungsi INIT diform tsb. Thisform.tgl_lhr.ctod(value(" "). Tetapi. Setiap menginput tgl_lhr. Harus bulanya dulu. Sot 08/23/2021. Dicek dicontrol panel, region. Sudah firmat Indonesia. Aneh saja gitu ama foxpro.

    ReplyDelete
    Replies
    1. Sama. Sy jadi mual dng type date. Mending Dvase III Plus.

      Delete
  6. FIDUAL FOXPRO VISUAL TAPI GOBLOK. Tdk spt ms access atau mysql. Tadi gue suka banget dng visual foxoro. Tapi ada saja masalah. Tetutama pd type date. Cari2 diinternet sama saja. Bahkan diyoutube sama.youtuber g ada yg menjelaskan ttg type date.

    ReplyDelete