CODING KONEKSI KE DATABASE MYSQL
*=========================================================================
IF SQLEXEC(koneksi,"select kd_kelas from kelas order by kd_kelas", "curkelas")>0
SELECT curkelas
IF RECCOUNT()> 0
this.RowSourceType = 2
this.RowSource=curkelas.kd_kelas
ELSE
?"data tidak ada"
ENDIF
ENDIF
*=========================================================================
IF SQLEXEC(koneksi,"select kd_kelas from kelas order by kd_kelas", "curkelas")>0
SELECT curkelas
IF RECCOUNT()> 0
this.RowSourceType = 2
this.RowSource=curkelas.kd_kelas
ELSE
?"data tidak ada"
ENDIF
ENDIF
No comments:
Post a Comment