sedikit pelurusan mas, kalau liat kode yg mas buat, mas bukannya pake ADO tapi pake DAO.
trus u. query yg dayofmonth di kode yg
"select * from ajb_tmlogajuan where dayofmonth(tglkeputusan)='20'")
coba diganti jadi
"select * from ajb_tmlogajuan where dayofmonth(tglkeputusan)=20")
coba cek datatype dari field tglkeputusan itu, datetime atau string?
kalau gak mau juga coba pake fungsi day(tglkeputusan).
u. fungsi date_format juga biasanya ga ada masalah, asalkan formatnya benar spt: SELECT DATE_FORMAT('1997-10-04 22:23:00', '%W %M %Y');
best regards
[wwn]
On 9/15/05, Eddy Wibowo <[EMAIL PROTECTED]> wrote:
Rekan2,
Saya membuat program VB dgn ADO dan database MySQL. Problemnya,
pada SQL, fungsi2 seperti 'dayofmonth' dan 'date_format' kok nggak
dikenali ya. Pesan errornya seperti "undefined
function 'date_format' in _expression_". Saat run, langsung error
pada baris OpenRecordset. Kodenya seperti di bawah.
Ada saran?
--
Eddy S. Wibowo
Option Explicit
Const NAMA_KONEKSI = "coba"
Const PARAM_KONEKSI = "odbc;database=pingpong;uid=root"
Private Sub Command1_Click()
Dim db As Database
Set db = bukaKoneksi
Dim rs As Recordset
Set rs = db.OpenRecordset("select * from ajb_tmlogajuan where
dayofmonth(tglkeputusan)='20'")
Do While Not rs.EOF
Debug.Print rs!nopengajuan, rs!tglkeputusan
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
Private Function bukaKoneksi() As Database
Set bukaKoneksi = OpenDatabase(NAMA_KONEKSI, dbDriverComplete,
False, PARAM_KONEKSI)
End Function
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
