Untuk menampilkan pesan/msgbox diwebsite pribadi kita/blok kita sangat mudah skripnya
contohnya sebagai berikut :
<html>
<head>
<title>Pesan</title>
</head>
<body>
<script>
alert(‘Nama Saya Efori Buulolo’);
</script>
</body
</html>
Untuk menampilkan pesan/msgbox diwebsite pribadi kita/blok kita sangat mudah skripnya
contohnya sebagai berikut :
<html>
<head>
<title>Pesan</title>
</head>
<body>
<script>
alert(‘Nama Saya Efori Buulolo’);
</script>
</body
</html>
‘untuk module—————————————————————
Public db As New ADODB.Connection
public rsg as new adodb.recordset
public sql as string
—————————————————————————-
sub main
opendb
menuutama.show
end sub
———————————
sub opendb
if db.state=adstateopen then db.close
db.cursolation=aduseclient
db.open””
end sub
————————
sub tombol(f as form,t0 as boolean,t1 as boolean,t2 asboolen,t3 as boolean,t4 as boolean,t5 as boolean)
f.CmdBaru.enabled=t0
f.CmdSimpan.enabled=t1
f.CmdUpdate.enabled=t2
f.CmdHapus.enabled=t3
f.CmdBatal.enabled=t4
f.CmdKeluar.enabled=t5end sub
untuk form Jabatan
————————————————-
Private Sub Form_Load()
opendb
hapus
tombol Me, True, False, False, False, False, True
End Sub
Sub hapus()
kode.Text = “”
jabatan.Text = “”
tunjangan.Text = “”
End Sub
——————————–
Private Sub kode_KeyPress(KeyAscii As Integer)
if Keyascii=13 then
sql=”select *from jabatan where kode='” & kode.text & “‘”
if rs.state=adstateopen then rs.close
rs.open sql,db,adopendynamic,adlockoptimistic
if rs.recordcout<> 0 then
tampil
tombol me,false,false,true,true,true,true
else
x=kode.text
hapus
kode.text=x
tombol me,false,true,false,false,true,true
msgbox “Data tidak ditemukan..!!”
end if
end if
End Sub
sub tampil
kode.text=rs!kode
jabatan.text=rs!jabatan
tunjangan.text=rs!
tunjangan
end sub
—————————————–
Private Sub CmdSimpan_Click()
sql=”insert into jabatan values(‘” & kode.text & _
“‘,'” & jabatan.text & _
“‘,'” & tunjangan.text & “‘)”
dbproses
End Sub
—————————————
sub dbproses
db.executi sql,AdCmdtable
adodc1.refresh
datagrid1.refresh
msgbox “Data berhasil diproses..!!”
hapus
end sub
ket:
untuk keterangan lebih lanjut
Langkat – langkahnya adalah sebagai berikut :
1.aktifkan mysql_d nya melalui start/program/phptriad/mysql/mysql_d
2.start/run
3.dirun ketik cmd
4.cd \
5.cd apache\mysql\bin
6.mysql
7.show databases;//untuk melihat semua database yag telah dibuat
8.create database stmik;//untuk membuat database stmik
9.use stmik;//mengedit database stmik
10.create table mahasiswa(
-nim varchar(10),
-nama varchar(50),
-jurusan varchar(30),
-angkatan varchar(4));//untuk membuat table mahasiswa dengan 4 field/kolom
-insert into mahasiswa values(‘0711482′,’efori’,’TI’,’2007′);//untuk mengisi table
-select *from mahasiswa;//untuk melihat isi table
-delete from mahasiswa where nip=’0711482′; //menghapus isi tabel dengan nip=0711482
-upade mahasiswa set nama=’efori buulolo’ where nip=’0711482′;//mengedit nama
-desc mahasiswa;//untuk melihat gambaran table
-show tables;//untuk melihat table dalam satu database;
sekian moga bermanfaat..!