Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement