ReverseEngineering
Forum Veteran
- Joined
- Mar 10, 2016
- Posts
- 1,815
- Reaction
- 667
- Points
- 580
- Age
- 28
Code:
Imports System.Data.OleDb
Public Class SchedForm
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=justlocateyourdatabasehere.accdb")
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
'save the file
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cn.Open()
Dim i As Integer
With cmd
.Connection = cn
.CommandText = "INSERT INTO sched(sdate,stime,seminar,speaker)VALUES('" & DateTimePicker1.Text & "','" & txtTime.Text &
"','" & txtSem.Text & "','" & txtSpeaker.Text & "')"
i = .ExecuteNonQuery()
End With
If i > 0 Then
MsgBox("Save Record is: " & i & "" & " row")
clear()
End If
cn.Close()
showdata()
End Sub
'clear
Sub clear()
txtTime.Clear()
txtSem.Clear()
txtSpeaker.Clear()
'show data
End Sub
Private Sub showdata()
cn.Open()
With cmd
.Connection = cn
.CommandText = "SELECT * FROM sched"
End With
ListView1.Items.Clear()
dr = cmd.ExecuteReader
While dr.Read
With ListView1
.Items.Add(dr.Item(0))
With .Items(.Items.Count - 1).SubItems
.Add(dr(1))
.Add(dr(2))
.Add(dr(3))
.Add(dr(4))
End With
End With
End While
cn.Close()
End Sub
Private Sub SchedForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
showdata()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
cn.Open()
With cmd
.Connection = cn
.CommandText = "UPDATE sched SET sdate='" & DateTimePicker1.Text & "',stime='" & txtTime.Text & "',seminar='" &
txtSem.Text & "',speaker='" & txtSpeaker.Text & "'WHERE id=" & ListView1.SelectedItems(0).SubItems(0).Text & ""
i = .ExecuteNonQuery()
End With
If i > 0 Then
MsgBox("Update Record: " & i & "" & "row" & " is successful")
End If
cn.Close()
showdata()
End Sub
Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
txtTime.Text = ListView1.SelectedItems(0).SubItems(2).Text
txtSem.Text = ListView1.SelectedItems(0).SubItems(3).Text
txtSpeaker.Text = ListView1.SelectedItems(0).SubItems(4).Text
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
cn.Open()
With cmd
.Connection = cn
.CommandText = "DELETE FROM sched WHERE id=" & ListView1.SelectedItems(0).SubItems(0).Text & ""
i = .ExecuteNonQuery()
End With
If i > 0 Then
MsgBox("Delete Success " & i & " row ")
clear()
End If
cn.Close()
showdata()
End Sub
End Class