Script VB6 Auto Number

-
Component-component yang harus digunakan
1 buah Adodc
1 buah Command Button
1 buah Textbox
1 buah Label

Langkah:
Pertama-tama buatlah koneksi database dengan script dibawah ini
Sub Buka_Pembeli()
Set con = New ADODB.Connection
Set rsa = New ADODB.Recordset
conect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA"
con.Open conect
rsa.Open "Pembeli", con
End Sub

Untuk script auto numbernya, kopas dibawah ini

Call Buka_Pembeli
sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc"
Set rsa = con.Execute(sql)
With rsa
If .EOF Then
Label8.Caption = "001"
TxtIDPembeli.Text = Label8.Caption
Else
Label8.Caption = rsa.Fields("ID_Pembeli")
a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2))
b = Right("000" & Val(a + 1), 3)
TxtIDPembeli.Text = b
End If
End With

Semoga tutorial diatas dapat bermanfaat buat semua aja.

Komentar

Posting Komentar

Postingan populer dari blog ini

-
Perbedaan Internet, Intranet dan Extranet Kita semua tahu apa itu Internet, mudah-mudahan saya tidak salah. Paling tidak bagi yang belum mengetahui-nya Internet secara sederhana Internet adalah jaringan dari jaringan (network of networks). Intranet adalah sebuah jaringan komputer berbasis protokol TCP/IP seperti internet hanya saja digunakan dalam internal perusahaan, kantor, bahkan warung internet (WARNET) pun dapat di kategorikan Intranet. Antar Intranet dapat saling berkomunikasi satu dengan yang lainnya melalui sambungan Internet yang memberikan tulang punggung komunikasi jarak jauh. Akan tetapi sebetulnya sebuah Intranet tidak perlu sambungan luar ke Internet untuk berfungsi secara benar. Intranet menggunakan semua protocol TCP/IP dan aplikasi-nya sehingga kita memiliki “private” Internet. Jika sebuah badan usaha / bisnis / institusi mengekspose sebagian dari internal jaringannya ke komunitas di luar, hal ini di sebut ekstranet. Memang biasanya tidak semua isi intranet di kelu...
MyBlog

Memecah dan membuat relasi tabel

-
Gambar
Selamat malam teman-teman, malam ini kita akan mencoba membuat relasi tabel dari tabel yang sebelumnya sudah kita buat pada artikel Mendefinisikan metadata dari sebuah artikel . Dalam hal ini kita akan mencoba memisahkan data author menjadi tabel terpisah diluar tabel artikel. Pertama-tama kita buat tabel author seperti biasa dengan tipe data seperti dibawah ini Gambar 1 Struktur tabel author Lalu kita set kolom id pada tabel author sebagai primary key dengan menggunakan perintah ALTER TABLE `author` ADD PRIMARY KEY (`id`); Setelah kita menambahkan primary key pada tabel author, saatnya kita beralih pada tabel artikel yang sudah kita buat sebelumnya.  Pertama yang harus kita lakukan yaitu merubah kolom penulis  menjadi author_id dengan tipe data int dengan menggunakan perintah ALTER TABLE `artikel` CHANGE `penulis` `author_id` int Setelah kita merubah nama kolom dan tipe datanya, saatnya kita memberikan relasi antar tabel menggunakan foreign key. Dalam kasus ini, kolom author...
MyBlog

avatar galeh

-
Dalam Hindu, Avatar atau Awatara (Devanagari अवतार, bahasa Sansekerta untuk "keturunan" [yaitu, dari langit ke bumi].) Mengacu pada keturunan sengaja dewa dari langit ke bumi, dan sebagian besar diterjemahkan ke dalam bahasa Inggris sebagai "inkarnasi", tetapi lebih tepat sebagai "tampilan" atau "manifestasi" [1.] Istilah ini paling sering dikaitkan dengan Wisnu, meskipun juga datang untuk dihubungkan dengan dewa lainnya [2] Memvariasikan daftar avatar Wisnu muncul dalam kitab Hindu, termasuk sepuluh Dashavatara Purana Garuda dan dua puluh dua avatar di. Bhagavata Purana, meskipun yang terakhir ini menambahkan bahwa inkarnasi Wisnu yang tak terhitung banyaknya. [3] avatar Wisnu merupakan komponen utama Vaishnavism. Sebuah referensi awal untuk avatar, dan avatar doktrin, adalah dalam Bhagavad Gita. [4] Siwa dan Ganesha juga digambarkan sebagai turun dalam bentuk avatar. Berbagai manifestasi Devi, Ibu Ilahi utama dalam Hindu, juga dise...
MyBlog