coba gini,
Dim Qry as String
Dim RS as Recordset
Dim Stat as String
Qry = "SELECT TglNikah FROM Anggota"
if not RS.EOF then
if IsNull(RS("TglNikah")) then Stat = "Belum Nikah" Else Stat = "Nikah"
end if
thanx n regards
- NikoJona / freaky - freaky
--- On Fri, 11/20/09, Frangky Bunga <[email protected]> wrote:
From: Frangky Bunga <[email protected]>
Subject: [Programmer-VB] Simpan Tanggal ke MySQL (DTPICKER yang checkbox
dihilangkan tanda centang), error.
To: "Programmer VB" <[email protected]>
Date: Friday, November 20, 2009, 5:47 PM
Selamat Pagi Pakar VB.
Mohon Bantuannya..
Saya menggunakan Database MySQL 5.1. Pada VB saya
mempunyai sebuah DTPicker yang ada checkboxnya. Kalau tanda centang diaktifkan,
untuk simpan ke database dengan format seperti ini
Format(DTPicker1, "yyyy-mm- dd" ngga ada masalah.
Masalahnya kalau tanda centang pada checkbox di
DTPicker saya hilangkan (artinya Tangggal pada DTPicker tidak ingin
disimpan pada database) hasil yang saya harapkan di kolom tanggal pada database
kalau DTPickernya tanda centang dihilangkan akan tersimpan
"NULL" pada kolom tanggal.
Karena tidak semua data harus dimasukkan
tanggalnya. Dalam Tanggal Pernikahan. (Tidak semua orang telah menikah kan...)
Kalau ada belum menikah, tanda centang pada DTPicker harus
dihilangkan.
Terima kasih.
