Harap posting sesuai dengan Kategorinya agar anggota yang lain mudah dalam bernavigasi!
0 Members and 1 Guest are viewing this topic.
Define Class gcstrings As Session Olepublic Function MySQL(cHost As String @,cDatabase As String @,cUser As String @,cPassw As String @) nHandle = 0 cStrConn = '' cStrConn = "DRIVER={MySQL ODBC 5.1 Driver};Port=3306"+; ";Server="+cHost+; ";Database="+cDatabase+; ";User="+cUser+; ";Password="+cPassw+; ";Option=3;" nHandle = SQLStringConnect(cStrConn) Return nHandle Endfunc Enddefine
SET PROCEDURE TO myclass.prg ADDITIVEGetConnStrings = CREATEOBJECT("gcstrings")lnConn = GetConnStrings.MySQL("localhost","dataku","userku","passku")SQLExec(lnConn,"select kode from tabel","res")
GetConnStrings = CREATEOBJECT("myclass.gcstrings")lnConn = GetConnStrings.MySQL("localhost","dataku","userku","passku")SQLExec(lnConn,"select kode from tabel","res")
Implementasi saya pake langsung myclass.prg, berjalan mulus dan cursor 'res' terbentuk.
klo anda buld jadi dll .... maka Dll tersebut akan membuat 1 session tersendiridan program pemanggil akan buat session sendiri, jadi mreka tidak akan saling mengenal.ibaratnya... anda menjalankan 2 EXE yang berbeda... A dan Bmaka variabel apapun d A isinya tidak akan dikenal di B..
Seharusnya bisa ya.....karena Function itu kan mengembalikan handle , yg akan dipakai oleh Caller Modul untuk execute SPT.
Mas Sinyo bikin sayembara/teka teki ya ?
Hadiahnya apa neh?
tambahkan parameter ke-5 pada fungs mysql, mis. xnCon...dalam function: xnCon=nHandle, ga usah return
coba ikut nimbrung...klo salah...maklum, Ikan teri masuk gerombolan ikan Paus....
VFP lebih bagus jika diterapin dengan metode Procedural, bukan OOP (walopun bisa, tapi tidak maksimal)...
tapi untuk kasus ini, yg aq pake murni procedural, jika ingin memisah dengan Main Program, aq biasanya pake app (untuk trik, bisa direname dengan berbagai extensi)...