Belajar Syntak Dasar Operasi Table dan Database

Bagi teman - teman yang baru belajar Visual Foxpro, berikut ini adalah beberapa contoh penggunaan dari syntak - syntax dasar dalam operasi table dan database khususnya table bawaan Visual Foxpro (*.DBF) dan Database bawaan Visual Foxpro (*.DBC). Bila teman - teman biasanya melakukan operasi table dan database (seperti membuat table, mengisi record, menambahkan table ke database dan operasi lainnya) dengan menggunakan fasilitas GUI yang disediakan oleh Visual Foxpro. Sekarang kita coba melakukan operasi - operasi tersebut dengan menggunakan syntak. Teman - teman bisa mencoba dan berlatih syntak - syntak ini dengan menggunakan Command Window atau dapat langsung dimasukkan ke dalam form (misal menaruh syntak di procedure Click pada kontrol Command Button). Selanjutnya ikuti latihan latihan berikut :

Membuat DataBase Baru
- Syntax
   CREATE DATABASE [nama database]
- Contoh
   CREATE DATABASE Kuliah

Menutup Database
- Syntax
  CLOSE DATABASE
- Contoh 
  CLOSE DATABASE Kuliah

Membuka Database
- Syntax
  OPEN DATABASE [nama database]
- Contoh
  OPEN DATABASE Kuliah

Menghapus Database
- Syntax
  DELETE DATABASE [nama database]
- Contoh
  DELETE DATABASE Kuliah
Ket : Untuk menghapus database, database tersebut harus dalam keadaan tertutup.

Membuat Tabel
- Syntax
  CREATE TABEL [nama table](nm_F1 t_f1 (p_f1), nm_FN t_fN (p_fN))
  Ket:
  nm_F=Nama Field
  t_f=Type Field
  p_f=Panjang Field
- Contoh
 CREATE TABEL Mhs(nama c (25), alamat c (50))

Menambahkan Tabel yang telah ada ke Database
- Syntax
  ADD TABLE TableName
- Contoh
  ADD TABLE MHS
Ket : Bila Pembuatan tabel pada saat suatu database terbuka maka secara otomatis
tabel akan berada pada database yang aktif

Membuang Tabel yang ada dalam Database
- Syntax
  REMOVE TABLE TableName
- Contoh
  REMOVE TABLE MHS

Menghapus Table
- Syntax
  DROP TABLE [nama tabel]
- Contoh
  DROP TABLE Mhs

Membuka / Menggunakan Tabel
- Syntax
  USE [nama tabel]
- Contoh
  USE Mhs

Menutup Spesifik Tabel
- Syntax
   USE IN [nama tabel]
- Contoh
  USE IN Mhs
Bila ingin menutup semua table pakai (close table all)

Membuat Index Table & Mengaktifkannya
- Syntax
  INDEX ON [nama field index] TAG [nama index]
  SET ORDER TO [nama index]
Ket:
Table Aktif Harus Ditentukan Dengan Syntax USE
- Contoh
  USE Mhs
  INDEX ON nama TAG nama
  SET ORDER TO nama

Menambah Record Dalam Tabel
- Syntax1
  INSERT INTO dbf_name [(FieldName1 [, FieldName2, ...])] ;
  VALUES (eExpression1 [, eExpression2, ...])
- Syntax2
  APPEND BLANK
  REPLACE FieldName1 With Value1
  REPLACE FieldName2 With Value2
  REPLACE FieldNameN With ValueN
- Contoh1
  INSERT INTO Mhs (nama, alamat) ;
  VALUES (“budi”,”Jepara”)
- Contoh2
  APPEND BLANK
  REPLACE nama With “budi”
  REPLACE alamat With “Jepara”

Menampilkan Record
- Syntax1
  Brows && Bentuk Grid
- Syntax2
  List && Ke Layar Editor Foxpro
- Syntax3
  ? [nama field]
- Contoh3
  ? nama
Ket: Untuk Membersihkan Layar Editor Foxpro digunakan Syntax Clear

Berpindah Antar Record
- Syntax1
 Go [no urutan record]
 Go TOP
 Go BOTTOM
- Syntax2
  SKIP [Jumlah Counter]
- Contoh1
  Go 4 && Menuju Record Nomor 4
- Contoh2
 SKIP 1 && Menuju 1 Record dibawah Record Aktif
 SKIP -1 && Menuju 1 Record diatas Record Aktif

Pencarian Record
- Syntax1
 LOCATE FOR [Expression]
Ket:
Dikombinasikan dengan perintah FOUND() untuk mengetahui hasil
pencarian, FOUND() akan Bernilai .T. bila ketemu dan .F. jika tidak
dan tanpa perlu index aktif.
- Syntax2
  SEEK([Expression])
Ket:
Memerlukan index aktif untuk pencarian Expression berisi data yang
mau dicari berdasarkan index aktif, akan mengembalikan nilai .T.
jika ketemu dan .F. jika tidak.
- Contoh1
  LOCATE FOR nama=”budi”
- Contoh2
 SET ORDER TO nama
 SEEK(“budi”)

Mengedit Record
- Syntax1
 UPDATE [nama tabel] SET Field1=Value1, Field2=Value2 ;
 WHERE [Expression]
- Syntax2
 REPLACE FieldName1 With Value1
Ket:
Harus Didahului Proses Pencarian
- Contoh1
 UPDATE Mhs SET nama=”hani”, alamat=”Kudus” ;
 WHERE nama=”budi”
- Contoh2
 LOCATE FOR nama=”budi”
 REPLACE nama With “hani”
 REPLACE alamat With “Kudus”

Menghapus Record
- Syntax1
 DELETE FOR [Expression]
Ket:
Table Aktif Harus Ditentukan Dengan Syntax USE
- Syntax2
 DELETE FROM [nama tabel] WHERE [Expression]
- Contoh1
 USE Mhs
 DELETE FOR nama=”hani”
- Contoh2
 DELETE FROM Mhs WHERE nama=”hani”
Ket: Syntax DELETE diatas tidak akan menghapus data secara fisik,
data masih dapat dikembalikan dengan syntax RECALL, Untuk
Menghapus Data Secara Fisik Setelah Syntax Diatas Harus
Diakhiri dengan Syntax PACK.

Bila teman - teman ingin mendownload latihan dan tutorial diatas dalam bentuk PDF silahkan ambil filenya Disini.


SEMOGA BERMANFAAT..!!

2 Response to "Belajar Syntak Dasar Operasi Table dan Database"

max mengatakan...

Hello..met kenal ya....
rasa pengen sich...bisa bikin database dengan foxpro sedikit complicated... kira-kira ada gak ya e-book nya
seperti artikel diatas sangat bagus sekali...boleh dunk artikel tentang membangun sebuah aplikasi dg foxpro, kalo bisa tolong dikirim ke maxnews911@gmail.com...thank you....

Wahyu Jaelani mengatakan...

sore para master semua, saya mo nanya nih, saya punya masalah di replace record yg kira2 seperti ini syntax'nya :

IF EMPTY(thisform.Txt_id.Value).or.empty(thisform.Txt_desc.Value).or.empty(thisform.Opt_bun.Value).or.empty(thisform.Txt_qty.Value).or.empty(thisform.Txt_adbin.Value).or.empty(thisform.Txt_exdate.Value)
MESSAGEBOX("Data Belum Lengkap",64,"PERINGATAN")
return
ENDIF

sele mst_fg
locate for Nomor = alltrim(thisform.Txt_no.value)
IF FOUND()
replace Mat_desc with ALLTRIM(thisform.Txt_desc.value),;
mat_id WITH ALLTRIM(thisform.Txt_id.Value),;
Bun with ALLTRIM(thisform.Opt_bun.value),;
Quantity WITH ALLTRIM(thisform.Txt_qty.Value),;
Add_bin with ALLTRIM(thisform.Txt_adbin.value),;
Exp_date WITH ALLTRIM(thisform.Txt_exdate.value),;
Notes WITH ALLTRIM(thisform.Txt_notes.value)
messagebox("Data finish good sudah diupdate", 0+64+0)
thisform.Cmd_cancel.click()
else
local xnom,xmid,xmds,xbu,xqu,xadb,xexd,xnot
xnom=thisform.Txt_no.value
xmid=thisform.Txt_id.value
xmds=thisform.Txt_desc.value
xbu=thisform.Opt_bun.value
xqu=thisform.Txt_qty.value
xadb=thisform.Txt_adbin.value
xexd=thisform.Txt_exdate.Value
xnot=thisform.Txt_notes.value
insert into mst_fg (nomor,mat_id,mat_desc,bun,quantity,add_bin,exp_date,notes) values (xnom,xmid,xmds,xbu,xqu,xadb,xexd,xnot)
messagebox("Data produk sudah disimpan", 0+64+0)
endif
WITH thisform
.Txt_desc.enabled=.F.
.Txt_id.enabled=.F.
.Opt_bun.enabled=.F.
.Txt_qty.enabled=.F.
.Txt_adbin.enabled=.F.
.Txt_exdate.enabled=.F.
.Txt_notes.enabled=.F.
.Cmd_save.enabled=.F.
.Cmd_add.enabled=.T.
.Cmd_edit.enabled=.T.
.Cmd_exit.enabled=.T.
.Cmd_delete.enabled=.T.
.Cmd_cancel.enabled=.T.
.Cmd_top.enabled = .T.
.Cmd_pref.enabled = .T.
.Cmd_next.enabled=.T.
.Cmd_btm.enabled=.T.
endwith

thisform.refresh

tapi kenapa setelah di eksekusi, ko di data base'nya ga ke record fieldnya yach ? makasih sebelumnya

Poskan Komentar

Bila komentar tidak tampil, silahkan ke page Welcome dan beritahukan melalui email yang tertera disana, kemungkinan komentar anda dianggap sebagai spam, biar nanti admin yang akan merubahnya, Terima kasih.

Related Posts Plugin for WordPress, Blogger...