17 April 2009

Seek pada mysql

Sebenarnya judul diatas tidaklah benar , karena setau saya tidak ada seek di mysql, tapi kita akan mencoba membuat function yang kegunaannya mirip-mirp fungsi seek pada vfp, yaitu dengan kita membuat sebuah function :

FUNCTION adakah
PARAMETERS fl,fd,nil
lakukan('select &fd from &fl where &fd=?nil','inicari')
IF EMPTY(inicari.&fd)
ada=.F.
ELSE
ada=.T.
ENDIF
lepaskan('inicari')
RETURN ada
ENDFUNC

Cara penggunaanya :
jika kita mau mencari / mengecek apakah kode barang tertentu sudah ada atau belum di dalam table master barang, kita gunakan perintah :

xygdicari=alltrim(thisform.text1.value)
if adakah('dbarang','kode',xygdicari)=.t.
messagebox('Kode barang ini sudah ada!')
return
endif

*------
dbarang=nama table
kode=nama field
xygdicari=kode yang diketikkan

semoga bermanfaat.

0 komentar:

Posting Komentar