Menampilkan Tanggal dan Waktu di VB.NET Access

Menampilkan Tanggal dan Waktu di VB.NET Access

sudah buat kan timer nya? iya bener banget, cari di toolbox dengan keyword TIMER-> klik taro di form, kalo udah klik dua kali TIMER nya, lalu masukin koding dibawah ini yak...

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Ttanggal.Text = Format(Now, "dd/MM/yyyy")
        Tjam.Text = Format(Now, "hh:mm:ss")
    End Sub

*jangan lupa yess, panggil timer nya di form_load dengan= Timer1.Enabled = True

Koding Login di VB.NET Access

Koding Login di VB.NET Access

Private Sub Blogin_Click(sender As Object, e As EventArgs) Handles Blogin.Click
        Call koneksi()
        cmd = New OleDbCommand("select * from admin where username ='" & Tusername.Text & "' and pass ='" & Tpassword.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            Me.Visible = False
            MenuUtama.Show()
        Else
            MsgBox("login salah, periksan kembali username dan password")
            Tusername.Focus()
        End If
    End Sub

Koding Edit di VB .NET Access

 Koding Edit di VB .NET Access

Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
        Dim update As String
        update = "update Ukuran set " & _
        "ID_ukuran='" & txtidukuran.Text & "'," & _
         "ukuran ='" & txtukuran.Text & "' where ID_ukuran ='" & txtidukuran.Text & "'"
        cmd = New OleDbCommand(update, conn)
        cmd.ExecuteNonQuery()
        MsgBox("Data Sudah dIUBAH", MsgBoxStyle.Information, "INFORMASI")
        txtidukuran.Enabled = True
        Call kosong()
        Call tampil()
    End Sub

Koding Cari di VB .NET Access

 Koding Cari di VB .NET Access

 Private Sub Tcari_TextChanged(sender As Object, e As EventArgs) Handles Tcari.TextChanged
        cmd = New OleDbCommand("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
        dr = cmd.ExecuteReader()
        dr.Read()
        If dr.HasRows Then
            da = New OleDbDataAdapter("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
            ds = New DataSet
            da.Fill(ds, "ketemu")
            DataGridView1.DataSource = ds.Tables("ketemu")
            DataGridView1.ReadOnly = True
            Lcari.ForeColor = Color.Azure
        Else
            MsgBox("Data Gak ADA!!!")
        End If
    End Sub

Koding Hapus di VB .NET Access

Koding Hapus di VB .NET Access

 Private Sub Bhapus_Click(sender As Object, e As EventArgs) Handles Bhapus.Click
        If MessageBox.Show("Yakin Lu mo ngapus?!", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            cmd = New OleDbCommand("delete * from admin where username = '" & Tusername.Text & "'", conn)
            cmd.ExecuteNonQuery()
            Call tampil()
            Call kosong()
        Else
            Call kosong()
        End If
    End Sub

Koding Tampil Datagridview di VB .NET Access

Koding Tampil Datagridview di VB .NET Access

Sub tampil()
        da = New OleDbDataAdapter("select * from admin", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "admin")
        DataGridView1.DataSource = (ds.Tables("admin"))
        DataGridView1.ReadOnly = True
End Sub

*Jangan Lupa panggil di form_load
call koneksi() dan call tampil()

*untuk membuat sub koneksi() klik disini

Koding Simpan di VB .NET Access

Koding Simpan di  VB .NET Access

Private Sub Bsimpan_Click(sender As Object, e As EventArgs) Handles Bsimpan.Click
        If Tusername.Text = "" Or Tpassword.Text = "" Then
            MsgBox("Data Lengkapi dulu boss!")
            Exit Sub
            Else
                cmd = New OleDbCommand("select * from admin where username = '" & Tusername.Text & "'", conn)
                dr = cmd.ExecuteReader
                dr.Read()
                If Not dr.HasRows Then
                    Dim simpan As String = "insert into admin values ('" & Tusername.Text & "', '" & Tpassword.Text & "')"
                    cmd = New OleDbCommand(simpan, conn)
                    cmd.ExecuteNonQuery()
                Call tampil()
                Call kosong()
            Else
                MsgBox("Username sudah ADA!!!")
            End If
            End If
    End Sub

Membuat Module Koneksi di VB .NET Access

Membuat Module Koneksi di VB .NET Access

Imports System.Data.OleDb
Module koneksi
    Public conn As OleDbConnection
    Public ds As New DataSet
    Public dr As OleDbDataReader
    Public da As OleDbDataAdapter
    Public cmd As OleDbCommand
    Public str As String

    Public Sub koneksi()
        str = "provider=microsoft.jet.oledb.4.0;data source = namaDB.mdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        Else
            MsgBox("Gagal bos!")
        End If
    End Sub
End Module

*panggilah koneksi jika dibutuhkan dengan => call koneksi()