Wb Mba saya pengen lebih menguasai cara membuat aplikasi barcode menggunakan VB 6.0. Dengan tulisan mba ttg barcode, buat saya ada sedikit pencerahan tentang barcode. Dengan tulisan mba ttg barcode, buat saya ada sedikit pencerahan tentang barcode.

Waktu itu saya pernah pake kode ini pas saya lihat' dan entah dapet dari mana (inged bged saya pakai kode sperti it). Dan saya lupa untuk kodenya - thanks atas infonya yah.:) maaf permisi numpang tannya nh. Klo andaikan saya menginputkan data yang sama, contoh. Kode, nim, nis, NO_RS, nip. ( pokoknya data field yg bersifat unik, atau (data yg seharusnya di input tidak boleh sama)), tapi pas saya coba saya inputkan berhasil kesimpan. Itu kenapa yah ' kok aneh.?? Contoh: nim, nama, alamat, ttl, ket.

Nah pas saya input untuk data nim. Nim= 0000001, nama=woltdy, alamat= gang_buntu, ttl=9 otober 1992, ket=lumayan nim= 0000001, nama=finer, alamat= Jl-damai, ttl=2 mei 1994, ket=cukup nah kesimpulannya' dari data field dari nim itu kan sama pas di inputkan seharusnya tidak kesimpen. Kok kesimpen. Mohon penjelasan kodenya m'bak, kenapa alasannya kok begitu?? Punya anda belum bisa masuk data dengan valid kalau cuma pakai koding saya di atas gan, itu karena kodingnya belum diberi validasi hehe jadi koding di atas masih diberi tambahan lagi.

Logika kodingnya seperti dibawah ini gan: cek field nim pada tabel mahasiswa, dimana field nim=textnim.text jika nim sudah ada di database maka muncul pesan 'NIM SUDAH ADA. MASUKKAN NIM YANG LAIN' jika nim belum ada di database maka masukkan dalam database, dimana field nim=textnim.text field nama=textnama.nama dan seterusnya untuk kodingnya seperti ini gan: Adodc1.Recordset.Find 'NIM=' + Text1.Text + '',, adSearchForward, 1 If Not Adodc1.Recordset.EOF Then MsgBox 'NIM SUDAH ADA. MASUKKAN NIM YANG LAIN' else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields('NIM') = Textnim.Text Adodc1.Recordset.Fields('NAMA') = Textnama.Text (dan seterusnya lanjut sendiri ya gan?) Adodc1.Recordset.Update Adodc1.Refresh MsgBox ('DATA SUDAH DISIMPAN') End If End Sub silahkan dicoba ya gan? Terima kasih gan sudah mampir:). Langkahnya dari awal sudah betul belum mas?

Anda sudah Buat Data Source ODBC belum? Buka control panel, masuk ke administrative tools dan pilih Data Source (ODBC) Tekan tombol Add. Pada kolom name pilih MySQL ODBC Driver, lalu tekan tombol finish Isikan pada textbox seperti di bawah ini: -Data Source Name: (beri nama data source, misalnya: dsnbelajarprogram) -Description: -Server: localhost -User: root -Password: -Database:(isi dengan nama database anda) klik tanda panah dan pilih silahkan dicoba. Alhamdulillah:) untuk membuat textfield pindah otomatis dengan enter, klik di desain textfield-nya mas, kita beri koding di text fieldnya.

Sebagai contoh, dalam tutorial ini kita klik TextNama, masuk halaman koding lihat di kanan atas, di situ event nya change. Ultimate collection ben 10. Di rubah menjadi KeyPress. Otomatis koding textfieldnya akan menjadi seperti ini: Private Sub TextNama_KeyPress(KeyAscii As Integer) Setelah itu, masukkan koding ini di bawahnya: If KeyAscii = 13 Then TextAlamat.SetFocus End If End Sub Logika dari koding tersebut adalah: Andai TextNama ditekan enter, maka Kursor berada di TextAlamat Perandaian Selesai SetFokus artinya ketika tombol ini ( tentunya tempat kita meletakan code ini) di click maka satu(nama variabel) menjadi focus dari pointer Sedangkan maksud 'KeyAscii = 13' adalah kode keyboard =13 (13 adalah nama lain dari tombol enter).