09.46
Andy Prasetyo Utomo
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..!!
Posted in 
4 Response to "Belajar Syntak Dasar Operasi Table dan Database"
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....
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
selamat pagi pak, mau tanya cara append data di foxprox.exe itu gimana ya? terimakasih sebelumnya
gmn cara membagiakan exe foxpro tanpa instal visual foxpro. tks
Posting 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.