Just another WordPress.com site

Visit here

Dah lama gak posting artikel  walaupun subuh n’ mata tinggal 5 watt gak apa-apa, berhubung ada request  dari temen.Gimana sih cara buat autonumber di php.? tu pertanyaan dari salah seorang sahabat.karena mata penulis sudah sangat berat dan kantuk  Nah untuk lebih simple dan gampang nya copas ja script dibawah ini.Untuk penjelasannya lain waktu atau diposting selanjutnya aja..

<?
mysql_connection("$server","$username","$password");
mysql_select_db(db_coba); 
function nopeserta(){
$sql=mysql_query("SELECT no_peserta FROM peserta ORDER BY no_peserta DESC LIMIT 1 ") or die (mysql_error());
$d=mysql_num_rows($sql);

if($d>0){
$r=mysql_fetch_array($sql);
$d=$r['no_peserta'];
$str=substr($d,1,4);
$No_Urut =(int)$str;

}else{
$No_Urut = 0;
}

$No_Urut = $No_Urut + 1;
$Nol="";
$nilai=4-strlen($No_Urut);
for ($i=1;$i<=$nilai;$i++){
$Nol= $Nol."0";
}

$Kode =$Nol.$No_Urut;
return $Kode;
}
?>

sebelumnya buat database  dengan nama “db_coba”. dan buat tabel  “peserta” serta fieldsnya “no_peserta”;

Selesai….

Dalam membuat aplikasi diperlukan adanya validasi agar aplikasi lebih baik. Contohnya membuat inputan Textboxt hanya bisa di inputkan angka saja atau membuat inputan Textboxt terisi huruf kapital semua. Hal ini dilakukan untuk mengurangi kesalahan pada saat pengiinputan.

1. Inputan Angka

Buatlah Form seperti dibawah

masukan kode ini pada textboxt dan event KeyPress

2. Untuk Inputan Hanya Huruf Besar Saja

Buat lah form seperti diatas, Masukan kode dibawah in

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Jalankan program ( Tekan F5 ). Lihat hasilnya

Sekian tulisan kali ini semoga bermanfaat.

 

Bagaimana cara menghubungkan database access ke Visual Basic, itulah pertanyaan dibenak saya ketika baru pertama kali belajar Visual Basic. Bagi teman-teman yang baru belajar VB dibawah ini adalah cara menghubungkan/mengkoneksikan Database Access ke VB.

Pertama yang harus disiapkan adalah Database yang akan kita gunakan. Lalu buka buat project baru pada Visual Basic Jika sudah ikuti langkah sebagai berikut.

1  Klik menu project > Add Modul

2. Klik Open

3. Lalu ketik koding berikut ini, kemudian Simpan  Module tersebut.

Public Conn As New ADODB.Connection
Public Rs As ADODB.REcordset

Public sub BukaDb ( )

Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source”   &
App.Path & “\Databasekamu.mdb”
end sub

Pada koding diatas, pembacaan database menggunkaan Path String tujuannya adalah jika folder tempat database berada di-copy atau diindahkan kemposisi lain, maka database tersebut tetap dapat dibaca.

koding selanjutnya

Private Sub Form_Load ( )

Call BukaDb

End Sub

Selesai…

Ket : Buka menu Project lalu pilih References beri check list pada Microsoft ActiveX Data Object 2.7 Library

Sekian Semoga Bermanfaat…………!!!

%d blogger menyukai ini: