Visual Basic

Private Sub bsPlantLocSub_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles bsPlantLocSub.AddingNew
    Dim strTemp As String = GetNewDefaultValue_LabelPrefix()

    dsLocSetup.DataTable_PlantLocSub.PlantLocationIDColumn.DefaultValue = _Default_PlantLocID
    dsLocSetup.DataTable_PlantLocSub.LabelPrefixColumn.DefaultValue = strTemp
    dsLocSetup.DataTable_PlantLocSub.LocationSubColumn.DefaultValue = "Location:" & Strings.Right(strTemp, 4)
    dsLocSetup.DataTable_PlantLocSub.ComponentStatusColumn.DefaultValue = "IC"
    dsLocSetup.DataTable_PlantLocSub.SysLocOnlyColumn.DefaultValue = False
    bsPlantLocSub.MoveLast()
End Sub

Dim dv As DataView = TryCast(bsPlantLocSub.List, DataView)
Dim drv As DataRowView = dv.AddNew
Dim strTemp As String = GetNewDefaultValue_LabelPrefix()

drv("PlantLocationID") = _Default_PlantLocID
drv("LabelPrefix") = strTemp
drv("LocationSub") = "Location:" & Strings.Right(strTemp, 4)
drv("ComponentStatus") = "IC"
drv("SysLocOnly") = False
e.NewObject = drv
bsPlantLocSub.MoveLast()

conn.ConnectionString = "server=localhost;userid=root;password=;database=amwps"
        Dim result As Integer
        Dim dto As DateTime
        Dim dfrom As datetime
        Try
            conn.Open()
            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.Cells(0).FormattedValue <> "" Or row.Cells(1).FormattedValue <> "" Then
                    Dim sDateFrom As String
                    Dim sDateTo As Double
                    sDateFrom = CStr(row.Cells(3).FormattedValue)
                    sDateTo = CStr(row.Cells(4).FormattedValue)
                    tHrs = sDateFrom - sDateTo
                    strSql = "INSERT INTO tbl_attendance (id, employeeNumber, dates, timein, timeout, totalhrs, late) VALUES ('" _
                                & CStr(row.Cells(0).FormattedValue) & "','" _
                                & CStr(row.Cells(1).FormattedValue) & "','" _
                                & CStr(row.Cells(2).FormattedValue) & "','" _
                                & CStr(row.Cells(3).FormattedValue) & "','" _
                                & CStr(row.Cells(4).FormattedValue) & "','" _
                                & CStr(row.Cells(5).FormattedValue) & "','" _
                                & CStr(row.Cells(6).FormattedValue) & "')"
                    With cmd
                        .Connection = conn
                        .CommandText = strSql
                    End With
                    result = cmd.ExecuteNonQuery
                End If

            Next
            If result = 0 Then
                MsgBox("No saved Record.")
            Else
                MsgBox("All Records Saved.")
            End If
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try
        conn.Close()

Imports MySql.Data.MySqlClient
Public Class frmCreditSubjs
    Public conn As New MySqlConnection
    Public cmd As New MySqlCommand
    Public cmd1 As New MySqlCommand
    Public dadapter As New MySqlDataAdapter
    Public datardr As MySqlDataReader
    Public strSql As String
    Public datardr1 As MySqlDataReader
    Public strSql1 As String
    Public subjectcode1 As String
    Public units1 As String
    Public preReq1 As String
    Public semester1 As String
    Public year1 As String
    Public count As Integer
    Private Sub InsertLoad()
        conn.ConnectionString = "server=localhost;userid=root;password=;database=aes"

        Try
            conn.Open()
            strSql = "select subjectcode, units, prereq, semester, year from tbl_subjects"
            cmd = New MySqlCommand(strSql, conn)
            datardr = cmd.ExecuteReader()
            While datardr.Read()
                count += 1
                subjectcode1 = datardr("subjectcode")
                units1 = datardr("units")
                preReq1 = datardr("prereq")
                semester1 = datardr("semester")
                year1 = datardr("year")
                
                Try
                    strSql = "INSERT INTO tbl_studProspectus values ('', '" & textSNumber.Text & "','" & subjectcode1 & "', '" & units1 & "', '" & preReq1 & "', '" & semester1 & "', '" & year1 & "','')"
                    cmd = New MySqlCommand(strSql, conn)
                    datardr = cmd.ExecuteReader()
                Catch ex As MySqlException
                    MessageBox.Show(ex.Message)
                Finally
                    conn.Dispose()
                End Try
            End While
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try

    End Sub
    Private Sub frmCreditSubjs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        InsertLoad()
    End Sub
End Class