My textbox6 represents the dateprinted of my asssessment form.. i code it like this :

TextBox6.Text = My.Computer.Clock.LocalTime.Date

then in the my SAVE Button coded like this :

Dim cn As OleDbConnection
    If TextBox1.Text = "" Then
        MsgBox("Enter a Student Number! ", MsgBoxStyle.Information, "Warning")
    ElseIf TextBox1.TextLength = 9 Then
        con = New OleDbConnection("Provider= Microsoft.ACE.oledb.12.0; Data Source=C:\Users\user\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
        Dim ewaaa As String = "Select * from Assessment  where StudentNumber = '" & TextBox1.Text & "'"
        com = New OleDbCommand(ewaaa, con)
        con.Open()
        com.ExecuteNonQuery()
        rid = com.ExecuteReader
        rid.Read()
        If (rid.HasRows) Then
            TextBox1.Text = rid(0)

            cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb;Persist Security Info=False;")
            cn.Open()

            cmd = New OleDbCommand("UPDATE Assessment SET DatePrinted = '" & TextBox6.Text & "'And YearLevels = '" & TextBox3.Text & "' And Sections = '" & TextBox4.Text & "' ", cn)
            cmd.ExecuteNonQuery()

            cn.Close()
            MsgBox("Assessment Updated", MsgBoxStyle.Information, "Update")
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox7.Clear()
            TextBox8.Clear()
            TextBox9.Clear()
            TextBox11.Clear()
            txt2PFull.Clear()
            txt2PTwo.Clear()
            txt2PThree.Clear()
            txt3PTwo.Clear()
            txt3PFull.Clear()
            txt3PThree.Clear()
            txtTPTwo.Clear()
            txtTPFull.Clear()
            txtTPThree.Clear()
            txtUEFull.Clear()
            txtUEThree.Clear()
            txtUETwo.Clear()
            TxtIDFull.Clear()
            TxtIDTwo.Clear()
            TxtIDThree.Clear()
            TxtPTAFull.Clear()
            TxtPTATwo.Clear()
            TxtPTAThree.Clear()
            TxtMiscFull.Clear()
            TxtMiscTwo.Clear()
            TxtMiscThree.Clear()
            ListView1.Items.Clear()

        End If
    Else

        con = New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;Data Source=C:\Users\user\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
        da.SelectCommand = New OleDbCommand("Select* from Assessment", con)
        Dim cmd = New OleDbCommandBuilder(da)
        If con.State = ConnectionState.Closed Then con.Open()
        ds = New DataSet
        da.Fill(ds, "Assessment")
        ds.Tables("Assessment").Rows.Add()
        lastrow = ds.Tables("Assessment").Rows.Count - 1
        myrow = ds.Tables("Assessment").Rows.Item(lastrow)
        myrow.Item("StudentNumber") = TextBox1.Text
        myrow.Item("StudentNames") = TextBox2.Text
        myrow.Item("YearLevels") = TextBox3.Text()
        myrow.Item("Sections") = TextBox4.Text
        myrow.Item("DatePrinted") = TextBox6.Text()
        ds.Tables("Assessment").GetChanges()
        cmd.GetInsertCommand()
        da.Update(ds, "Assessment")
        MsgBox("Assessment Successful")
        con.Close()

            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox7.Clear()
            TextBox8.Clear()
            TextBox9.Clear()
            TextBox11.Clear()
            txt2PFull.Clear()
            txt2PTwo.Clear()
            txt2PThree.Clear()
            txt3PTwo.Clear()
            txt3PFull.Clear()
            txt3PThree.Clear()
            txtTPTwo.Clear()
            txtTPFull.Clear()
            txtTPThree.Clear()
            txtUEFull.Clear()
            txtUEThree.Clear()
            txtUETwo.Clear()
            TxtIDFull.Clear()
            TxtIDTwo.Clear()
            TxtIDThree.Clear()
            TxtPTAFull.Clear()
            TxtPTATwo.Clear()
            TxtPTAThree.Clear()
            TxtMiscFull.Clear()
            TxtMiscTwo.Clear()
            TxtMiscThree.Clear()
            ListView1.Items.Clear()


    End If

then the output of my Textbox6 in my database become 0 or -1 . i dont know why happen like that... can you please help me? thank you in advance..

Recommended Answers

try using Date.Today instead of using My.Computer.Clock.LocalTime.Date

Jump to Post

Duplicate?

Jump to Post

All 5 Replies

Thats not any C++ code I recognize... is it SQL or VB?

its VB. wrong category. sorryy.

try using Date.Today instead of using My.Computer.Clock.LocalTime.Date

Close the thread if its repeated....u have already closed the same thread....

Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.21 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.