Membuat Koneksi Database Dengan Gambas

Kawan - kawan pasti bingung bagai mana cara membuat koneksi databse. Nah sekarang langsung saja kita mulai untuk membuat database ?

1.Pertama kita sediakan Module dengan cara Klik kanan pada Modules, New,  Module.

 

2. Klik pada Module1 yang sudah kita buat tadi, dengan isi kan Script di bawah ini.

PUBLIC db AS NEW Connection
PUBLIC rsb AS Result

PUBLIC FUNCTION koneksi() AS Boolean
 
  db.Close
  db.Type = "mysql"
  db.Host = "localhost"
  db.User = "root"
  db.Password = ""
  db.Open
 
 
END


Terimakasih .
Semoga bermanfaat ^_^ salam Amex

Script Simpan, Ubah, Tampil, Hapus, Print, Cari dengan gambas

PUBLIC SUB btnsimpan_Click()

  IF txtid.Text = "" OR txtnama.Text = "" OR txttgl.Text = "" OR txtalamat.Text = "" OR txtno.Text = "" OR txtjml.Text = "" THEN
 Message.Warning("Data belum lengkap", "OK")
 ELSE
 
WITH Module1
sql = "insert into karyawan values ('" & txtid.Text & "', '" & txtnama.Text & "', '" & txttgl.Text & "', '" & txtalamat.Text & "', '" & txtno.Text & "', '" & txtjml.Text & "')"
.db.Exec(sql)
tampilkan()
TableView1.Enabled = TRUE
aturtombol(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)
txtcari.Enabled = TRUE

END WITH

ENDIF


END

PUBLIC SUB gbtn_Click()

   SELECT CASE LAST.tag
    CASE 1
      printit(FALSE)

    CASE 2
      printit(TRUE)

  END SELECT

END

PUBLIC SUB btntambah_Click()

  bersihin()
aturtext(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)
TableView1.Enabled = FALSE
txtid.setfocus


END

PUBLIC SUB btnubah_Click()

  sql = "update karyawan set id ='" & txtid.Text & "',nama='" & txtnama.Text & "',tgl='" & txttgl.Text & "',alamat='" & txtalamat.Text & "',no='" & txtno.Text & "',jml='" & txtjml.Text & "'"
module1.db.Exec(sql)
tampilkan()
IF NOT ERROR THEN
  Message.Info("data telah terubah")
  ENDIF
  FINALLY
CATCH
message.Error(DConv(Error.Text))

tampilkan()
aturtombol(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)
END

PUBLIC SUB btnhapus_Click()

  SELECT Message.Question("Yakin Anda Menghapus", "ya", "tidak")
CASE 1
sql = "delete from karyawan where id='" & txtid.Text & "'"
Module1.db.Exec(sql)
tampilkan()
IF NOT ERROR THEN
  Message.Info("Data Berhasil Dihapus", "ok")
  tampilkan
  ENDIF
CASE 2
txtcari.setfocus
END SELECT
btnhapus.Enabled = TRUE
btnubah.Enabled = TRUE
bersihin()
tampilkan()


END

Add caption

PUBLIC SUB btncari_Click()

  sql = "select * from karyawan where id='" & txtcari.Text & "'"
rsF = Module1.db.Exec(sql)
txtid.Text = rsF!id
txtnama.Text = rsF!nama
txttgl.Text = rsF!tgl
txtalamat.Text = rsF!alamat
txtno.Text = rsF!no
txtjml.Text = rsF!jml

txtid.SetFocus
END

PUBLIC SUB txtcari_GotFocus()

  txtcari.Text = "" 
END

PUBLIC SUB gbtn_Click()
 
  SELECT CASE LAST.tag
  CASE 1
  printit(FALSE)
  CASE 2
  printit(TRUE)
  END SELECT
 
 
END

Contoh Login dengan Gambas

1. Buat Lah Tampilan Form Login sebaik Mungkin atau sebagai berikut : 
    - PictureBox1
    - ProgressBar1
    - Timer1
    - Label1
    - Label2
    - TextBox1
    - TextBox2
    - Button1
    - Button2


2. Klik 2x pada Timer1

PUBLIC SUB Timer1_Timer()

  ProgressBar1.value = ProgressBar1.value + 0.20
  IF ProgressBar1.value = 1 THEN
  ME.Close
  timer1.enabled = FALSE
  FMain.show
  ENDIF

END


3. Klik 2x pada Button2 atau Button Login

 PUBLIC SUB Button2_Click()

  IF TextBox1.text = "1" AND textbox2.text = "admin" THEN
  ProgressBar1.Visible = TRUE
  timer1.Enabled = TRUE
  TextBox1.height = 28
  TextBox1.border = FALSE
  ELSE
  SELECT Message.Question("password salah", "ulangi", "tidak")
  CASE 1
  TextBox1.text = ""
  CASE 2
  ME.Close
  END SELECT
  END IF

END


4. Klik 2x pada Button2 atau Button Exit

 PUBLIC SUB Button2_Click()

  ME.close

END


Selesai semoga bermanfaat. . .  :)
dan jangan lupa Komentarnya. . .
Like nya jugaya.