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
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
