Cara Textbox Hanya Dapat Diisi Angka Pada Vb 6.0

Pada Tutorial Gratis Visual Basic 6.0 kali ini akan dibahas mengenai cara memvalidasi sebuah TextBox hanya dapat diisi oleh angka. Fungsi ini biasanya dipakai semoga pada dikala insert kedalam database dengan Design Numeric tidak terjadi error. Sebagaimana kita tahu bahwa sebuah Tabel didalam database, jikalau kita setting Numeric hanya dapat diisi oleh angka, maka jikalau anda sebagai programmer anda harus memperhatikan hal tersebut.

Untuk menciptakan Validasi TextBox hanya dapat diisi angka sangat mudah.
Berikut langkahnya :

Buka Visual Basic 6.0 anda
Buatlah Form ibarat contohb berikut ini :

Jika sudah menciptakan Design form ibarat gambar diatas, silahkan masukan koding dibawah ini :
Karena pada text3 dan text4 harus kita masukan agka, maka Validasi yang kini akan kita buat akan disisipkan pada Text3 dan Text4

Default Kodingnya ibarat dibawah ini :

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0

Sika kita akan gunakan pada TextBox pada VB 6.0 silahkan gunakan pada KeyPress.
Pada Form yang telah kita buat diatas, maka berikut kodingnya :

Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" Text4 = "" End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0 End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0 End Sub

Kemudian silahkan anda Run Project VB 6.0 anda
Jika anda berhasil, ketika anda memasukan data pada TextBox3 dan 4 anda harus memasukannya dengan angka, jikalau bukan angka maka tidak bisa

Anda dapat KLIK DISINI untuk melihat Tutorial diatas semoga anda lebih jelas

Bagaimana, cukup gampang bukan?? semoga bermanfaat untuk anda :)

Membuat Validasi Panjang Huruf Pada Vb 6.0

Pada Bab Tutorial Vb 6.0 kali ini akan dibahas mengenai "Membuat Validasi Panjang Karakter Pada VB 6.0". pada Bab ini masih mengenai Validasi pada Form VB 6.0. Fungsi ini biasanya dipakai oleh para programmer semoga data yang diinput pada Form tidak error jikalau dimasukan kedalam sebuah database.

Kenapa dapat Error? sebagai ilustrasi, kita memiliki Tabel didalam database yang panjang karakternya ialah 6. Jika pada ketika kita menginput pada Form VB 6.0 panjang melebihi 6 karakter, maka pada ketika insert kedatabase akan terjadi error. dan untuk menghindarinya kita gunakan validasi pada BAB ini.

Langkahnya sangat gampang :
Silahkan Buka VB 6.0 pada komputer anda
Buatlah design Form Seperti gambar dibawah ini :

Logikanya, pada ketika form load, maka kita buat validasi panjang karakter.
Jika anda suda menciptakan Form Seperti gambar diatas, silahkan masukan koding dibawah ini :

Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" 'validasai panjang abjad Text1.MaxLength = 6 Text2.MaxLength = 50 Text3.MaxLength = 100 Text4.MaxLength = 20 Text5.MaxLength = 50 End Sub

Jika sudah, silahkan anda run Project VB 6.0 anda

Dengan Validasi diatas, maka pada Text1, kita hanya dapat mengetik panjang abjad maksimal 6, text2 = 50 dan seterusnya

Mudah-mudahan Tutorial Validasi pada VB 6.0 diatas bermanfaat untuk anda :)

Cara Gampang Setting Combobox Pada Vb 6.0

Pada pembelajaran gratis VB 6.0 kali ini akan dibahas mengenai cara memunculkan data ComboBox pada VB 6.0. ComboBox ialah sebuah ToolBox pada VB 6.0 yang dapat anda tempatkan pada sebuah Form, Dengan adanya ComboBox ini anda dapat menciptakan Pilihan kepada si pamakai aplikasi yang akan anda buat.

Sebagai pola silahkan ikuti tutorial dibawah ini :
Buka Aplikasi VB 6.0 anda
Kemudian buatlah design Form Seperti gambar dibawah ini :

Pada Form VB 6.0 diatas kita akan menampilan Data "LAKI-LAKI" dan "PEREMPUAN" pada Combo1
Silahkan masukan koding dibawah ini pada Form VB 6.0 diatas

Private Sub Form_Load()

Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" 'Untuk menampikan Combo Combo1.Clear Combo1.AddItem "LAKI-LAKI" Combo1.AddItem "PEREMPUAN" End Sub

Jika sudah, silahkan Run atau Jalankan Project VB 6.0 anda diatas.

Maksud dari Koding diatas ialah :
Jika anda Run / jalankan Project, maka Text1 hingga Text5 dikosongkan. Hal ini dimaksudkan semoga dalam menambahkan textbox biasanya secara default tidak kosong, sehingga untuk persiapan maka perlu dideklarasikan untuk dikosongkan.
Kemudian sehabis kosong, Combo1 di Clearkan atau dikosongkan, tambahkan LAKI-LAKI dan PEREMPUAN pada Combo1

Demikain Cara Setting ComboBox Pada VB 6.0 semoga bermanfaat untuk anda :)

Cara Menciptakan Kalkulator Sederhana Dengan Vb 6.0

Pada Belajar VB 6.0 kali ini akan dibahas mengenai cara menciptakan Kalkulator sederhana dengan Visual Basic 6.0. Fungsi dari menciptakan Kalkulator kali ini yaitu semoga anda mengenali Aritmatika dalam Visual Basic 6.0 dan anda juga dapat menciptakan Validasi pada Form Kalkulator tersebut.

Berikut langkahnya :
Buka Aplikasi VB 6.0 pada komputer anda
Buatlah Design Form menyerupai gambar dibawah ini :

Jika sudah menciptakan Form Kalkulator diatas, logikanya menyerupai ini :
Jika aplikasi anda Run, maka masukan Angka 1 dan Angka 2, lalu kalau anda ingin melihat hasil Penambahan maka Klik Tombol Tambah, Jika pengurangan Klik Tombol Kurang, Jika akan mengalikan Klik tombol Kali, Jika anda ngin membagi Klik Tombol Bagi.

Silahkan masukan koding dibawah ini pada Form Kalkulator

Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" Text3.Enabled = False End Sub  Private Sub Command1_Click() 'Ini untuk coding tambah If Text1 = "" Or Text2 = "" Then MsgBox "Data Belum Lengkap" Text1.SetFocus Else Text3 = Val(Text1) + Val(Text2) End If End Sub  Private Sub Command2_Click() If Text1 = "" Or Text2 = "" Then MsgBox "Data Belum Lengkap" Text1.SetFocus Else Text3 = Text1 - Text2 End If End Sub  Private Sub Command3_Click() If Text1 = "" Or Text2 = "" Then MsgBox "Data Belum Lengkap" Text1.SetFocus Else Text3 = Text1 * Text2 End If End Sub  Private Sub Command4_Click() If Text1 = "" Or Text2 = "" Then MsgBox "Data Belum Lengkap" Text1.SetFocus Else Text3 = Text1 / Text2 End If End Sub

Jika anda sudah memasukan koding diatas, silahkan anda Run atau Jalankan Project Vb 6.0 anda
Demikian Cara Membuat Kalkulator Sederhana Dengan VB 6.0, semoga bermanfaat untuk anda :)

Vb .Net - Cara Koneksi Database Access (.Mdb)

Pada Tutorial Gratis Visual Basic .Net kali ini akan dibahas mengenai Cara Praktis Membuat Koneksi kedatabase Access .mdb dengan VB .Net. Tutorial dibawah ini kami akan memakai VB .Net versi 2010 Express. Bagi anda yang berbeda versinya, anda juga dapat mengikuti Tutorial dibawah ini.

Berikut langkah-langkahnya :

1. Membuat Project Baru VB .Net dan Menyimpannya
2. Membuat Database Access 2003 , Tabel Barang dan menyimpannya pada Bin / Debug
3. Membuat Form, Memasukan Koding dan Jalankan Program

1. Membuat Project Baru VB 2010 dan Menyimpannya

Pastikan anda sudah Install Visual Basic 2010 pada komputer anda,
Klik Start pada Windows
All Programs

Klik Microsoft Visual Basic 2010 Express
Klik File - New - Project
Maka akan muncul :

Klik OK

Maka akan keluar Form1 (lihat gambar diatas)

2. Membuat Database, Tabel Barang dan menyimpannya pada Bin / Debug

Buatlah sebuah database dengan nama : DBJNM.mdb
Buatlah sebuah Tabel dengan Nama : Barang
Silahkan Design Tabel Barang dan Isi Tabel Barang tersebut sesuai gambar dibawah ini :

Setelah selesai, simpan pada folder Bin / Debug

3. Design Form1, Masukan Koding dan Jalankan Program

Buatlah sebuah Form ibarat gambar dibawah

Masukan Koding dibawah ini :

Imports System.Data.OleDb Public Class Form1     Dim Conn As OleDbConnection     Dim da As OleDbDataAdapter     Dim ds As DataSet     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"         Conn = New OleDbConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Koneksi()         da = New OleDbDataAdapter("Select * from barang", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "Barang")         DataGridView1.DataSource = (ds.Tables("Barang"))     End Sub End Class 

Jika sudah semua, silahkan run atau jalankan Proect VB .Net anda
Hasilnya ialah ibarat gambar dibawah ini :

Silahkan KLIK DISINI Untuk mendownload Tutorial diatas
Berikut Tutorial Visual Basic .NET mengkoneksikan database lainnya :

• Koneksi Database Access ACCDB Pada VB .NET
• Koneksi Database MySQL Pada VB .NET
• Koneksi Database SQL Server Pada VB .NET

Demikian Tutorial Visual Basic .NET Cara Koneksi Database Access (.mdb) Pada VB .NET, Semoga bermanfaat untuk anda dan ikuti terus pembelajaran Visual Basic .NET lainnya. Setelah anda dapat mengkoneksikan database, selanjutnya anda dapat menginput, edit dan delete kedalam database.

Vb .Net - Cara Koneksi Database Access (.Accdb)

Pada Tutorial Gratis VB .Net kali akan dibahas mengenai cara menciptakan koneksi database Access .accdb. Secara default jikalau anda menciptakan database access dengan Microsoft Office Access 2007 keatas ( Access 2010, access 2013, Access 2015 atau Access 2016 ) maka akan terbuat dengan Extension .accdb. Ada pengecualian jikalau anda memakai Access 2003, maka yang dapat dibentuk yaitu dengan Extension .MDB. Oleh alhasil pada tutorial lainnya, aku sudah buatkan tutorial koneksi database Access .MDB.

Namun anda juga dapat menciptakan Database Access .MDB pada Office Access 2007 keatas yang sudah aku buatkan pula tutorialnya dengan KLIK LINK INI.

Cara mengkoneksikan Database Access .ACCDB pada VB .NET sangat mudah, anda cukup mengikuti tutorial dibawah ini. Dan pribadi di praktikan. Adapun jikalau ada hambatan anda dapat berkomentar dibawah.

Berikut langkahnya :

LANGKAH 1 : Membuat Database dan Tabel Menggunakan Access 2007 atau 2010 atau 2013

Seperti yang sudah kami informasikan diatas, anda harus menciptakan database dengan Access.
Nama Database : DBJNM.accdb
Buatkah tabel dengan Nama : SISWA
Design Tabel SISWA menyerupai gambar dibawah ini :

Gambar diatas yaitu penampakan dari Tabel SISWA pada DBJNM.accdb dengan field :
NIS, NamaSiswa,JenisKelamin,Alamat,NamaBapak dan NamaIbu
Jika sudah berhasil menciptakan database dan Tabel menyerupai gambar diatas, anda dapat mengikuti langkah ke-2

LANGKAH 2 : Membuat Form1 Dengan Kodingnya

Jika anda sudah menciptakan database dan tabel, sekarang saatnya anda menciptakan form dan koding dengan VB .Net
Buka VB .Net anda
Jika sudah muncul Form1, silahkan design Form1 menyerupai gambar dibawah ini :

Pada gambar diatas, hanya ditambahkan DataGridView

Kemudian masukan koding dibawah ini pada Form1

Imports System.Data.OleDb Public Class Form1     Dim Conn As OleDbConnection     Dim da As OleDbDataAdapter     Dim ds As DataSet     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"         Conn = New OleDbConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Koneksi()         da = New OleDbDataAdapter("Select * from SISWA", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "SISWA")         DataGridView1.DataSource = (ds.Tables("SISWA"))     End Sub End Class  

Note :
Jangan lupa, database DBJNM.accdb di pindahkan ke Folder Bin\Debug Project VB .Net anda
Jika sudah silahkan jalankan Project anda, gambar dibawah yaitu hasil jikalau anda running project VB .Net amda.

Silahkan KLIK DISINI untuk mendownload Tutorial Diatas
Tutorial Mengkoneksikan database lainnya dengan Visual Basic .NET

• Koneksi Database MySQL Dengan Visual Basic .NET
• Koneksi Database SQL Server Dengan Visual Basic .NET
• Koneksi Database Access .MDB Dengan Visual Basic .NET

Demikian Tutorial Visual Basic .NET yaitu Cara Mengkoneksikan database Access .Accdb pada VB .NET, Semoga bermanfaat untuk anda. Silahkan anda share ke rekan anda atau anda dapat juga berkomentar dibawah. Jika anda sudah dapat mengkoneksikan database pada VB .NET, maka langkah selanjutnya anda dapat Input, Edit dan Delete Data didalam database dengan VB .NET.

Vb .Net - Cara Koneksi Database Mysql

Pada tutorial Gratis Visual Basic .Net kali ini akan dibahas mengenai : Cara Koneksi Database MySQL dengan VB .Net. Bagi anda yang akan menciptakan Aplikasi dengan VB .Net database MySQL.. Tutorial ini ialah tahap awal. Karena kalau anda sudah dapat menciptakan Koneksi Database MySQL maka anda akan semakin gampang dalam menciptakan Aplikasi VB .Net dengan Database MySQL tersebut.

Untuk dapat mengikuti tutorial VB .Net kali ini pastikan anda sudah :
1. Install Xampp pada komputer anda
2. Install Connector Xampp ke VB yaitu ODBC versi 3.51
3. dan tentunya anda sudah menginstall Visual Basic .Net ( kami memakai Versi 2010 )

Berikut langkah-langkahnya :

No.1. Membuat database dan Tabel MySQL Dengan Xampp

Buatlah database dengan nama : dbjnm

Buatlah tabel dengan nama : tbl_buku

isi tabel barang tersebut dengan data menyerupai dibawah ini :

Jika sudah menciptakan langkah diatas, silahkan lanjutkan dengan langkah kedua dibawah ini :

Baca Juga : Cara Praktis Koneksi Database SQL Server dengan VB .Net

No.2. Membuat Form1 pada VB Net 2010 dan Kodingnya

Buka Aplikasi VB Net 2010 anda

Buatlah design Form1 menyerupai gambar dibawah ini :

Jika sudah menciptakan Form1 menyerupai gambar diatas, silahkan masukan koding dibawah ini :

Imports System.Data.Odbc Public Class Form1     Dim Conn As OdbcConnection     Dim da As OdbcDataAdapter     Dim ds As DataSet     Dim str As String     Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _        Handles MyBase.Load         Koneksi()         da = New OdbcDataAdapter("Select * from tbl_buku", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "tbl_buku")         DataGridView1.DataSource = (ds.Tables("tbl_buku"))     End Sub     Sub Koneksi()         str = "Driver={MySQL ODBC 3.51 Driver};database=dbjnm;server=localhost;uid=root"         Conn = New OdbcConnection(Str)         If Conn.State = ConnectionState.Closed Then             Conn.Open()         End If     End Sub End Class 

Silahkan Run atau Jalankan Project anda, dan berikut kesudahannya :

Semoga bermanfaat untuk Sobat JNM, ikuti terus Tutorial Gratis VB .Net kami lainnya....