Closed Basic codes lang to add/update/delete sa vb 2010

[ReverseEngineering]

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

 

[DanielELT]

Para sa ano ba to boss?

 

[ReverseEngineering]

Para sa ano ba to boss?

watch the thread title plsss

 

[PHC-DrowRangeR]

ty

 

[AmehGoOoO]

thank you sir...,

 

[jefzheven]

thank you ng madami sir.

 

[basaca10]

salamat dito boss, keep sharing.
newbies pa ako nito.

 

[CADEline]

Boss pwede po ba yung code naman para sa mysql database? Salamat ng madami

 

[Castroboy07]

Salamat boss

 

[Fox Hole]

Kuya pa request sana ng video tutorial nito kuya request lang po maganda to pag aralan ReverseEngineering

 

[sobciana]

Marami po nyan sa YøùTùbé at google basta alam mo lang po yung isesearch mo

 

[Fox Hole]

Marami po nyan sa yôutubê at google basta alam mo lang po yung isesearch mo

Ate matanong ko sana bakit po siya nag popost ng codes ng CRUD kung wala ding database na kasama?

Naguguluhan ako kahit ms access lang sana , thanks sa share.