Imports System.Data.OleDb
Public Class frmMain
Public cn As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public da As OleDbDataAdapter
Public dr As OleDbDataReader
Public ds As DataSet = New DataSet
Public sql As String = Nothing
Public ConString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.AppDB)
Public Sub myCn()
If cn.State = ConnectionState.Open Then cn.Close()
cn.ConnectionString = ConString
cn.Open()
End Sub
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
\'TODO: This line of code loads data into the \'AddEditDeleteLogInDataSet.tblAdmin\' table. You can move, or remove it, as needed.
Me.tblAdminTableAdapter.Fill(Me.AddEditDeleteLogInDataSet.tblAdmin)
myCn()
ListViewItem()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Put some data!")
Else
Try
Dim xSQL As New System.Text.StringBuilder
xSQL.AppendLine("INSERT INTO tblAdmin")
xSQL.AppendLine("(Uname,Pword,Dtoday)")
xSQL.AppendLine("VALUES")
xSQL.AppendLine("(@name,@word,@today)")
Dim bReturn As Boolean
Using cn As New OleDbConnection(ConString)
cn.Open()
Dim cmd As New OleDbCommand(xSQL.ToString, cn)
cmd.Parameters.AddWithValue("@name", TextBox1.Text)
cmd.Parameters.AddWithValue("@word", TextBox2.Text)
cmd.Parameters.AddWithValue("@date", DateTimePicker1.Text.Trim)
Dim n As Integer = cmd.ExecuteNonQuery
If n <> 0 Then
bReturn = True
MessageBox.Show("Record added Successfuly!")
TextBox1.Text = ""
TextBox2.Text = ""
Else
bReturn = False
MessageBox.Show("Fail to add record!")
End If
End Using
Catch ex As Exception
MessageBox.Show("ERROR:" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
ListViewItem()
End Sub
Private Function ListViewItem()
Try
ListView1.Items.Clear()
Dim xSQL As New System.Text.StringBuilder
xSQL.AppendLine("SELECT ID,Uname,Pword,Dtoday")
xSQL.AppendLine("FROM tblAdmin")
xSQL.AppendLine("ORDER BY ID")
Using cn As New OleDbConnection(ConString)
cn.Open()
Dim cmd As New OleDb.OleDbCommand(xSQL.ToString, cn)
dr = cmd.ExecuteReader
While dr.Read
Dim lv1 As New ListViewItem(dr.Item("ID").ToString.Trim)
lv1.SubItems.Add(dr.Item("Uname").ToString.Trim)
lv1.SubItems.Add(dr.Item("Pword").ToString.Trim)
lv1.SubItems.Add(dr.Item("Dtoday").ToString.Trim)
lv1.SubItems.Add("------------")
ListView1.Items.Add(lv1)
End While
End Using
cmd.Dispose()
dr.Close()
Return True
Catch ex As Exception
MessageBox.Show("ERROR:" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If Not ListView1.SelectedItems.Count = 0 Then \'// check if item is selected.
With ListView1.SelectedItems.Item(0)
Label1.Text = .Text \'// column 1.
Label2.Text = .Text \'// column 1.
TextBox5.Text = .SubItems(1).Text \'// column 2.
TextBox6.Text = .SubItems(2).Text \'// column 3.
TextBox7.Text = .SubItems(1).Text \'// column 2.
TextBox8.Text = .SubItems(2).Text \'// column 3.
\'// etc...
End With
End If
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
If TextBox5.Text = "" Or TextBox6.Text = "" Then Exit Sub
Try
ListView1.Items.Clear()
Dim xSQL As New System.Text.StringBuilder
xSQL.AppendLine("UPDATE tblAdmin SET")
xSQL.AppendLine("Uname = @name, Pword = @word, Dtoday = @today")
xSQL.AppendLine("WHERE ID = " & Label1.Text.Trim)
Using cn As New OleDbConnection(ConString)
cn.Open()
Dim cmd As New OleDbCommand(xSQL.ToString, cn)
cmd.Parameters.AddWithValue("@name", TextBox5.Text.Trim)
cmd.Parameters.AddWithValue("@word", TextBox6.Text.Trim)
cmd.Parameters.AddWithValue("@today", DateTimePicker1.Text)
cmd.ExecuteNonQuery()
cmd.Dispose()
MsgBox("Sucessfully Updated!!", MsgBoxStyle.OkOnly)
TextBox5.Text = ""
TextBox6.Text = ""
End Using
Catch ex As Exception
MessageBox.Show("ERROR:" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ListViewItem()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If TextBox7.Text = "" Or TextBox8.Text = "" Then Exit Sub
Try
ListView1.Items.Clear()
Dim xSQL As New System.Text.StringBuilder
xSQL.AppendLine("DELETE * FROM tblAdmin")
xSQL.AppendLine("WHERE ID = " & Label2.Text.Trim)
Using cn As New OleDbConnection(ConString)
cn.Open()
Dim cmd As New OleDbCommand(xSQL.ToString, cn)
cmd.ExecuteNonQuery()
cmd.Dispose()
MsgBox("Sucessfully Delete!!", MsgBoxStyle.OkOnly)
TextBox7.Text = ""
TextBox8.Text = ""
End Using
Catch ex As Exception
MessageBox.Show("ERROR:" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ListViewItem()
End Sub
Private Sub btnVReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVReport.Click
Me.ReportViewer1.RefreshReport()
End Sub
End Class