Ok coba pake Option ini,
Option= 1 + 2 + 8 + 32 + 2048 + 16384
---- Original Message -----
From: "Eddy Wibowo" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: 14 September, 2005 11:58 PM
Subject: [Programmer-VB] Re: Problem ADO dan MySQL
> ***********************
> No virus was detected in the attachment (no filename).
>
> Your mail has been scanned by InterScan.
> ***********************
>
>
> Kalau dari promptnya (mysqlc.exe), nggak ada masalah. Masalahnya
> baru ada saat query tsb masuk ke VB.
>
> 'Option Connection' itu yg pada fungsi 'OpenDatabase' kan? Saya
> pernah nyoba option=1, 2, 3 dan 16387, tapi nggak pengaruh. Ohya,
> MySQLnya versi 4.0.18 dan MyODBC 3.51.11-2. Ada saran lain?
>
> --
> Eddy S. Wibowo
>
>
>
> --- In [email protected], "Aidil" <[EMAIL PROTECTED]> wrote:
> > COBA printah-perintah Query yang anda gunakan langusng ditest pada
> dot
> > prompt dari Mysql, kalau ternyata bisa berlaku ini berarti bukan
> pada
> > mysqlnya tapi pada Option Connection anda yang mungkin harus di
> check lagi
> >
> >
> > ----- Original Message -----
> > From: "Eddy Wibowo" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: 14 September, 2005 11:19 PM
> > Subject: [Programmer-VB] Problem ADO dan MySQL
> >
> >
> > > 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]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
------------------------ 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/
