contoh update

procedure update;
begin
clrscr;
assign(f,'data.dat');
reset(f);
assign(g,'data.$$$');
rewrite(g);
write('masukkan nim yang dicari: ');readln(x);
i:=1;
seek(f,0);
while not eof(f) do
begin
read(f,m[i]);
if (m[i].nim=x) then
begin
writeln('data sebelumnya: ');
writeln('nim : ',m[i].nim);
writeln('nama : ',m[i].nama);
writeln('jurusan : ',m[i].jurusan);
writeln('masukkan data baru: ');
write('nama : ');readln(m[i].nama);
write('jurusan : ');readln(m[i].jurusan);
end;
write(g,m[i]);
end;
close(f);
close(g);
erase(f);
rename(g,'data.dat');
tampil;
readln;
end;

-by fitria- ^_^

Koneksi PHP dengan Ocacle

script PHP untk koneksi ke oracle

$conn=OCILogon("[username oracle kalian]","[password oracle kalian]");
if ( !$conn ) {
echo "Koneksi Gagal euy ". var_dump ( OCIError() );
} else {
echo "Horray Koneksi Berhasil
";
}
?>

simpan script ini dengan nama connect.php
oya sebelum membuat script connect.php di atas, jangan lupa ya hal-hal di bawah ini:
a.install xampp
b.setting extention OCI8 di file php.ini
caranya:
1.buka file c://apachefriends/xampp/apache/bin/php.ini atau c://xampp/apache/bin/php.ini
2.kemudian hilangkan titik koma (;) pada bagian:
extention=php_oci8.dll ------------->bagian ini
extention=php_oracle.dll ----------->bagian ini
3.kemudian save
4.restart xampp
c.setelah itu cobalah xampp di browser dengan mengetikkan http://localhost
d.pilih bahasa yang digunakan
e.klik menu "phpinfo()"
f.lihat apakah variabel OCI8 sudah ada di situ apa belum, jika sudah berarti php dan oracle sudah bisa dikoneksikan
g.pindahkan script yang telah dibuat tadi "connect.php" ke C://xampp/htdoc
h.lalu coba ketikkan http://localhost/connect.php di browser. jika muncul tulisan "Horray Koneksi Berhasil" maka php dengan oracle telah berhasil dikonekskan. sebaliknya jika muncul tulisan "Koneksi Gagal euy" maka koneksi belum berhasil, kemungkinan masih ada penulisan script yang salah. lihat keterangan error yang muncul, teliti, dan benarkan scriptnya...
i.Selamat mencoba... cayooo.... \(^_^)/