Click here to Skip to main content
16,021,430 members
Please Sign up or sign in to vote.
1.67/5 (2 votes)
See more: , +
VB
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    Try
        myconnection.Open()
        'Declaration of Variables
        Dim str As String

        Dim vCourseCode As String
        Dim vSection As String
        Dim vSurname As String
        Dim vFirstName As String
        Dim vMiddleInitial As String
        Dim vDate1 As Boolean
        Dim vDate2 As Boolean
        Dim vDate3 As Boolean
        Dim vDate4 As Boolean
        Dim vDate5 As Boolean
        Dim vDate6 As Boolean
        Dim vDate7 As Boolean
        Dim vDate8 As Boolean
        Dim vDate9 As Boolean
        Dim vAbsent As String
        Dim vPresent As String
        Dim vEQ As String


        For x As Integer = 0 To DataGridView1.Rows.Count - 2
            vCourseCode = DataGridView1.Rows(x).Cells(1).Value
            vSection = DataGridView1.Rows(x).Cells(2).Value
            vSurname = DataGridView1.Rows(x).Cells(3).Value
            vFirstName = DataGridView1.Rows(x).Cells(4).Value
            vMiddleInitial = DataGridView1.Rows(x).Cells(5).Value 
            vAbsent = DataGridView1.Rows(x).Cells(6).Value
            vPresent = DataGridView1.Rows(x).Cells(7).Value
            vEQ = DataGridView1.Rows(x).Cells(8).Value
            vDate1 = DataGridView1.Rows(x).Cells(0).Value
            vDate2 = DataGridView1.Rows(x).Cells(1).Value
            vDate3 = DataGridView1.Rows(x).Cells(2).Value
            vDate4 = DataGridView1.Rows(x).Cells(3).Value
            vDate5 = DataGridView1.Rows(x).Cells(4).Value
            vDate6 = DataGridView1.Rows(x).Cells(5).Value
            vDate7 = DataGridView1.Rows(x).Cells(6).Value
            vDate8 = DataGridView1.Rows(x).Cells(7).Value
            vDate9 = DataGridView1.Rows(x).Cells(8).Value

            str = "Insert into StudentsAttendance ([CourseCode],[Section],[Surname],[FirstName],[MiddleName],[Date1],[Date2],[Date3],[Date4],[Date5],[Date6],[Date7],[Date8],[Date9],[Absent],[Present],[EQ]) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"


            Dim cmd As OleDbCommand = New OleDbCommand(str, myconnection)
            cmd.Parameters.AddWithValue("@CourseCode", vCourseCode)
            cmd.Parameters.AddWithValue("@Section", vSection)
            cmd.Parameters.AddWithValue("@Surname", vSurname)
            cmd.Parameters.AddWithValue("@FirstName", vFirstName)
            cmd.Parameters.AddWithValue("@MiddleName", vMiddleInitial)
            cmd.Parameters.AddWithValue("@Date1", vDate1)
            cmd.Parameters.AddWithValue("@Date2", vDate2)
            cmd.Parameters.AddWithValue("@Date3", vDate3)
            cmd.Parameters.AddWithValue("@Date4", vDate4)
            cmd.Parameters.AddWithValue("@Date5", vDate5)
            cmd.Parameters.AddWithValue("@Date6", vDate6)
            cmd.Parameters.AddWithValue("@Date7", vDate7)
            cmd.Parameters.AddWithValue("@Date8", vDate8)
            cmd.Parameters.AddWithValue("@Date9", vDate9)
            cmd.Parameters.AddWithValue("@Absent", vAbsent)
            cmd.Parameters.AddWithValue("@Present", vPresent)
            cmd.Parameters.AddWithValue("@EQ", vEQ)
        Next
        myconnection.Close()
        MessageBox.Show("Saved Successfully!", "Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As OleDb.OleDbException
        MsgBox(ex.Message, MsgBoxStyle.Critical, "oledb Error")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
    End Try
End Sub

'This is the code we use to save the checked/unchecked checkboxes in the database. Unfortunately, it didn't work! but when we used this to the other part of the program it worked! so were a little bit confuse on why it didn't work on the part of the program where we put this code . can anyone help us? thank you very much!
Posted
Updated 26-May-14 21:56pm
v2
Comments
[no name] 26-May-14 7:11am    
If "didn't work" means that you never executed your INSERT command, then that is correct.
jhennie 26-May-14 21:53pm    
okay . Thank you
Sunasara Imdadhusen 27-May-14 3:57am    
Can you please share Page_Load code

Need to add cmd.ExecuteNonQuery() line in the for loop.
 
Share this answer
 
Comments
jhennie 27-May-14 21:08pm    
Thank you . We already solved the error
use Gridview Cellvalue Change Event and use Gridview view control as refVal and make coding on this event.
 
Share this answer
 
Comments
jhennie 27-May-14 21:07pm    
Thank you . We already solved the error

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900