Ilmu Komputer

Gambas merupakan sebuah IDE (Integrated Development Environment) yang berorientasi pada RAD (Rapid Application Development) seperti halnya Microsoft Visual Basic. Pada pemrograman gambas ini saya menggunakan mysql sebagai databasenya dengan gambas versi 1.0.17.

Langkah pertama pastikan database mysql sudah berjalan, selanjutnya kita memerlukan komponen sebagai penghubung ke databasenya. Pilih Project > Properties > Components > kemudian pilih komponen “gb.db”. Jika komponen gb.db sudah terpilih maka selanjutnya ketikkan fungsi berikut pada modul dengan nama module1 yang berguna sebagai penghubung :

‘ Gambas module file PUBLIC db AS NEW Connection
PUBLIC rs AS Result

PUBLIC FUNCTION koneksi() AS Boolean
db.Close
db.Type = “mysql”
db.Host = “localhost”
db.Login = “root”
db.Password = “gunadarma” db.Open
END

Ketikkan listing di bawah ini pada edit class, berfungsi untuk membuat database beserta field-fieldnya pada saat program di jalankan :

PUBLIC SUB Form_Open()
DIM dbname AS String
DIM tbname AS String
DIM htable AS table

dbname=”simple_database”
tbname=”profil”


WITH module1
.koneksi IF NOT .db.Databases.Exist (dbname) THEN
.db.Databases.Add (dbname)
.db.Close
.db.Name = dbname
.db.Open


IF NOT .db.Tables.Exist (tbname) THEN
htable=.db.Tables.Add (tbname)
htable.fields.add(”id”, gb.String , 10)
htable.fields.add(”nama”, gb.String , 30)
htable.Fields.Add(”nickname”, gb.string, 30)
htable.primarykey=["id"]
htable.update
END IF
ELSE
.db.Close
.db.Name =dbname
.db.Open
END IF
END WITH
END