Scribd
Upload
49 views

Listing Program Ado - Net & Validasi

The document contains code samples in Visual Basic demonstrating different validation techniques in a form application. It includes using an ErrorProvider to validate textbox entries, looping through controls to check for empty textboxes and comboboxes, and using regular expressions to validate textbox entries against predefined formats with color-coding valid and invalid entries.

Uploaded by

Falah Miftah
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
49 views

Listing Program Ado - Net & Validasi

The document contains code samples in Visual Basic demonstrating different validation techniques in a form application. It includes using an ErrorProvider to validate textbox entries, looping through controls to check for empty textboxes and comboboxes, and using regular expressions to validate textbox entries against predefined formats with color-coding valid and invalid entries.

Uploaded by

Falah Miftah
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 6

LISTING PROGRAM MICROSOFT VISUAL BASIC (ADO.

NET)
Imports System.Data.OleDb
Public Class Form1
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=… \Databarang.Mdb")
Dim da As New OleDbDataAdapter("Select * from Barang", cn)
Dim dt As New DataTable
Dim ds As New DataSet
Dim cm As CurrencyManager
Dim ketemu As Boolean
Public m As Integer

Private Sub tampil()


Me.TextBox1.Text = dt.Rows(cm.Position).Item("Kode")
Me.TextBox2.Text = dt.Rows(cm.Position).Item("Nama")
Me.ComboBox1.Text = dt.Rows(cm.Position).Item("Jenis")
Me.TextBox3.Text = dt.Rows(cm.Position).Item("Jumlah")
Me.ComboBox2.Text = dt.Rows(cm.Position).Item("Satuan")
Me.TextBox4.Text = dt.Rows(cm.Position).Item("Harga")
End Sub

- Label Page/Halaman
Private Sub posisi()
Me.Label9.Text = cm.Position + 1 & " Page " & cm.Count
End Sub

- Membuka Database
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
cn.Open()
ds = New DataSet("Barang")
Dim cb As New OleDbCommandBuilder(da)
da.Fill(dt)
cm = CType(Me.BindingContext(dt), CurrencyManager)
cm.Position = 0
tampil()
Me.DataGridView1.DataSource = dt
cn.Close()
posisi()
End Sub
End Class

- Tombol Go Top
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
cm.Position = 0
tampil()
posisi()
End Sub

- Tombol Back
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
cm.Position = cm.Position - 1
tampil()
posisi()
End Sub

- Tombol Next
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
cm.Position = cm.Position + 1
tampil()
posisi()
End Sub

- Tombol Go Bottom
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
cm.Position = cm.Count
tampil()
posisi()
End Sub

Private Sub cari()


Dim n As Integer
ketemu = False
For n = 0 To cm.Count - 1
If dt.Rows(n).Item("Kode") = Me.TextBox1.Text Then
ketemu = True
cm.Position = n
End If
Next
End Sub

- Button Cari/Browse
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
cari()
Dim Jawab As Integer
If ketemu = True Then
tampil()
Else
Jawab = MsgBox("Data tidak ada", MsgBoxStyle.OkOnly +
MsgBoxStyle.Exclamation, "Pesan")
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.ComboBox1.Text = "Pilih"
Me.ComboBox2.Text = "Pilih"
End If
End Sub

- Button Keluar
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim Keluar As Integer
Keluar = MessageBox.Show("Anda yakin ingin keluar?", "Pesan",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Keluar = MsgBoxResult.Yes Then
Me.Close()
End If
End Sub

- Button Simpan/Save
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
cari()
If ketemu = False Then
cm.AddNew()
cm.Position = cm.Count
End If
dt.Rows(cm.Position).Item("kode") = TextBox1.Text
dt.Rows(cm.Position).Item("nama") = TextBox2.Text
dt.Rows(cm.Position).Item("jenis") = ComboBox1.Text
dt.Rows(cm.Position).Item("jumlah") = TextBox3.Text
dt.Rows(cm.Position).Item("satuan") = ComboBox2.Text
dt.Rows(cm.Position).Item("harga") = TextBox4.Text
da.Update(dt)
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.ComboBox1.Text = "Pilih"
Me.ComboBox2.Text = "Pilih"

'------- Mengarahkan Kursor ke TextBox1


Me.TextBox1.Focus()
End Sub

Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e


As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles
DataGridView1.CellMouseClick
On Error Resume Next
TextBox1.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value
cari()
If ketemu = True Then
Me.TextBox2.Text = dt.Rows(cm.Position).Item("Nama")
Me.ComboBox1.Text = dt.Rows(cm.Position).Item("Jenis")
Me.TextBox3.Text = dt.Rows(cm.Position).Item("Jumlah")
Me.ComboBox2.Text = dt.Rows(cm.Position).Item("Satuan")
Me.TextBox4.Text = dt.Rows(cm.Position).Item("Harga")
End If
End Sub

- Button Hapus/Delete
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim jawab As Integer
cari()
If ketemu = True Then
jawab = MsgBox("Data Sudah Ada, Mau Dihapus?", MsgBoxStyle.YesNo +
MsgBoxStyle.Exclamation, "Pesan")
If jawab = DialogResult.Yes Then
cm.RemoveAt(cm.Position)
da.Update(dt)
End If
End If
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.ComboBox1.Text = "Pilih"
Me.ComboBox2.Text = "Pilih"
'------- Mengarahkan Kursor ke TextBox1
Me.TextBox1.Focus()
End Sub

LISTING PROGRAM MICROSOFT VISUAL BASIC (VALIDASI)


ErrorProvider
Public Class ErrorProvider

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As


System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
If TextBox1.Text = "" Then
ErrorProvider1.SetError(TextBox1, "Isikan Nrp Anda")
Else
ErrorProvider1.SetError(TextBox1, "")
End If
End Sub

Private Sub TextBox2_Validating(ByVal sender As System.Object, ByVal e As


System.ComponentModel.CancelEventArgs) Handles TextBox2.Validating
If TextBox2.Text = "" Then
ErrorProvider1.SetError(TextBox2, "Isi Nama Anda")
Else
ErrorProvider1.SetError(TextBox2, "")
End If
End Sub

- ErrorProvider untuk diisi dengan angka


Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) = False Then
ErrorProvider1.SetError(TextBox1, "Isikan Nilai Angka")
Else
ErrorProvider1.SetError(TextBox1, "")
End If
End Sub
End Class
Control Collection (TextBox Belum Terisi)
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim aCtrl As Control
For Each aCtrl In Controls
If TypeOf aCtrl Is TextBox AndAlso aCtrl.Text = "" Or TypeOf aCtrl
Is ComboBox AndAlso aCtrl.Text = "" Then
MsgBox("Kontrol Ada Yang Kosong")
aCtrl.Focus()
Exit Sub
End If
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Komputerisasi Akuntansi")
ComboBox1.Items.Add("Manajemen Perusahaan")
ComboBox1.Items.Add("Keuangan dan Perbankan")
ComboBox2.Items.Add("PAKA 211")
ComboBox2.Items.Add("PAKA 212")
ComboBox2.Items.Add("PAKA 211")
ComboBox2.Items.Add("PAT 211")
End Sub
End Class
Regullar Expression (Pada TextBox yang benar berwarna hijau & salah merah)
Imports System.Text.RegularExpressions
Public Class RegularExpression

Private Sub RegularExpression_Load(ByVal sender As System.Object, ByVal e


As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim isValid As Boolean = True

'---- Text untul Tanggal Lahir


If Not Regex.IsMatch(TextBox1.Text, "^\d{2}-\d{2}-\d{4}$") Then
TextBox1.ForeColor = Color.Red
isValid = False
Else
TextBox1.ForeColor = Color.DarkCyan
End If
'--------------Text untuk Kode Pos
If Not Regex.IsMatch(TextBox2.Text, "^\d{5}$") Then
TextBox2.ForeColor = Color.Red
isValid = False
Else
TextBox2.ForeColor = Color.DarkCyan
End If
'-------------Untuk Email
If Not Regex.IsMatch(TextBox3.Text, "^\w+@\w+\.\w+$") Then
TextBox3.ForeColor = Color.Red
isValid = False
Else
TextBox3.ForeColor = Color.DarkCyan
End If
'----------- Untuk Telepon
If Not Regex.IsMatch(TextBox4.Text, "^\d{4}-\d{6}$") Then
TextBox4.ForeColor = Color.Red
isValid = False
Else
TextBox4.ForeColor = Color.DarkCyan
End If
End Sub
End Class

You might also like