Sitemap

MEDIAdepia

Home (current)
Sitemap
Disclaimer
Contact Us
Privacy Policy

Langsung ke konten utama

Sitemap

Diposting oleh Unknown

Dapatkan link
Facebook
X
Pinterest
Email
Aplikasi Lainnya

Dapatkan link
Facebook
X
Pinterest
Email
Aplikasi Lainnya

Komentar

Posting Komentar

Postingan Populer

Tutorial Cara Agar Textbox Hanya Dapat Diisi Dengan Angka, VB6 Tutorial

Sering kali kita membuat aplikasi terutama dektop yang mengharuskan kita untuk mengisi form itu. dan fotm itu seharusnya hanya bisa di isi dengan angka, kali ini saya akan membahas bagaimana cara agar textbox atau form tersebut hanya akan dapat di isi dengan angka saja, langkah pertama adalah buat formnya terlebih dahulu setelah itu masukkan satu buah textbox dengan nama tnomor, klik dua kali pada textboxnya maka akan masuk halam script, pastikan anda masuk pada menu keypress setelah itu copi dan pastekan kode di bawah ini : If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then MsgBox "Isikan Angka Saja", 48, "Perhatian" KeyAscii = 0 End If sehingga hasilnya akan seperti ini.. kemudian coba jalankan, apabila tidak bisa diisi dengan selain angka,maka langkah anda sudah berhasil, semoga bermanfaat.. tinggalk...

Cara Memindahkan Data dari Datagrid Ke Textbox atau Label vb6

Setelah kita tahu bagaimana cara memasukkan data pada database, kali ini kita akan memindahkan data dari tabel ke textbox atau label, BACA JUGA : Koneksi Database VB6 dengan Ms Access 2010 dan Cara Menampilkan data Pada Tabel dari yang scrip kode yang kemarin tidak begitu banyak ada perubahan, berikut adalah script kode yang kemarin. Public Db As Connection Public Function Aktif_Koneksi() As Boolean Set Db = New ADODB.Connection Db.CursorLocation = adUseClient Db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\database.accdb;" End Function Pada form1 Dim WithEvents rccoba As Recordset Private Sub Form_Load() Aktif_Koneksi Set rccoba = New Recordset rccoba.Open "select * from table1", Db, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rccoba End Sub kita rubah menjadi seperti ini, Dim WithEvents rccoba As Recordset Private Sub Form_Load() Aktif_Koneksi Set rccoba = New Recordset rc...

Koneksi Database VB6 dengan Ms Access 2010 dan Cara Menampilkan data Pada Tabel

Sebelum menjadi seorang master, alangkah baiknya kita belajar dari hal yang paling terkcil dulu, kali ini kita akan belajar tentang bagaimana cara mengkoneksikan database dengan vb 6, kali ini kita menggunakan database ms access 2010. berikut adalah scriptnya.. Pada modul kita tambahkan, Public Db As Connection Public Function Aktif_Koneksi() As Boolean Set Db = New ADODB.Connection Db.CursorLocation = adUseClient Db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\database.accdb;" End Function Pada form1 Dim WithEvents rccoba As Recordset Private Sub Form_Load() Aktif_Koneksi Set rccoba = New Recordset rccoba.Open "select * from table1", Db, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rccoba End Sub sekian dan terimakasih, semoga bisa bermanfaat.

')