Source code berikut untuk memfungsikan agar textbox hanya menerima input angka. Cocok digunakan untuk input kode pos atau no telepon.
Yang diperlukan :
1 Form
1 TextBox
Source code :
1 | Public Sub HanyaAngka(ByRef KeyAscii As Integer) |
2 | If ((KeyAscii <> |
3 | KeyAscii = 0 |
4 | End If |
5 | End Sub |
6 |
7 | Private Sub Text1_KeyPress(KeyAscii As Integer) |
8 | HanyaAngka KeyAscii |
9 | End Sub |
Source code berikut untuk memfungsikan textbox hanya bisa menerima input huruf. Bisa digunakan untuk input nama atau yang lainnya yang tidak menggunakan angka.
Yang diperlukan :
1 Form
1 TextBox
Source code pada Form :
1 | Public Sub HanyaHuruf(ByRef KeyAscii As Integer) |
2 | If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then |
3 | KeyAscii = 0 |
4 | End If |
5 | End Sub |
6 |
7 | Private Sub Text1_KeyPress(KeyAscii As Integer) |
8 | HanyaHuruf KeyAscii |
9 | End Sub |
Source code berikut untuk mengoneksikan VB 6 dengan database Access. Agar aplikasi bisa di running dimana saja, dengan menggunakan fungsi App.Path, dan database Access disimpan dalam satu folder yang sama dengan project VB nya.
Source code simpan di Module :
01 | Public Conn As New ADODB.Connection |
02 |
03 | Public Sub koneksi() |
04 | On Error GoTo konekErr |
05 |
06 | If Conn.State = 1 Then Conn.Close |
07 |
08 | 'sesuaikan database .mdb nya dengan database anda |
09 | Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db_tes.mdb;Persist Security Info=False" |
10 | Exit Sub |
11 |
12 | konekErr: |
13 | MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan" |
14 | End Sub |
Untuk penggunaannya dengan Adodc dan DataGrid, seperti contoh berikut :
1 | Private Sub Form_Load() |
2 | koneksi 'pemanggilan koneksi database |
3 |
4 | Adodc1.ConnectionString = Conn.ConnectionString |
5 | Adodc1.RecordSource = "select * from contoh" |
6 | Adodc1.Refresh |
7 | Set DataGrid1.DataSource = Adodc1 |
8 | End Sub |
Untuk lebih jelasnya, [Download Source Code]
