I know the below code isnt right.
objCurrentRow1.Item("StudentID") = mintStudentID
objCurrentRow1.Item("Attendance Date") = dateToday
objCurrentRow1.Item("Present") = Tues1.CheckState
objDataSet.Tables("tblAttendance").Rows.Add(objCurrentRow1)
Take the first line for example; what I need to get it to do is read
all the StudentIDs related to all the student names currently in the
listbox and write them to the database. I see what you're saying about
the loop, cos I need write into possibly 25 rows in the database.
With the third line of that piece of code,
objCurrentRow1.Item("Present") = Tues1.CheckState
there are up to 25 checkboxes on the form for each day of the week
(chkTues1 chkTues2......chkTues25) so how can I get it to check the
state of all the checkboxes without writing 25lines of code?
I should probably also explain that on the form for recording the
attendance there is a list of checkboxes under each day of the week
and I have code behind the form so that if today is Wednesday - only
Wednesdays checkboxes are enabled.
I realise that I'm going to have to put the 'save' code into a do
while loop of some sort but could you give me a bit more help??
Thanks.
On Jan 27, 7:58 pm, The_Fruitman <[email protected]> wrote:
> You have several possible issues that are causing the error.
> Think about the logic behind these two statements.
> mintStudentID = objDataSet.Tables("tblStudent").Rows.Count
> objCurrentRow1.Item("StudentID") = mintStudentID
> I don't think you really want to be doing this.
>
> Think about what happens when the following statements are executed:
>
> objCurrentRow1.Item("StudentID") = mintStudentID
> objCurrentRow1.Item("Attendance Date") = dateToday
> objCurrentRow1.Item("Present") = Tues1.CheckState
> objDataSet.Tables("tblAttendance").Rows.Add(objCurrentRow1)
>
> It seems to me that you are adding the same information every time.
> This (just speculating on your database design) would cause primary
> key violations.
>
> Also, a more detailed error message would be helpful.
> I would recommend using some error handling as well (Try Catch
> blocks).
>
> For the listbox information you will need to determine which student's
> names are checked and which names are not checked. For you this may
> be easiest to do with a loop. You state you also need to get the
> student id for each student name so that you can do your update.
> There are various ways to do this, but based on the programming skills
> I've seen from your other posts it may be easier for you to do this
> through a loop as well, even though this requires additional
> processing time.
>
> On Jan 27, 8:55 am, Laura <[email protected]> wrote:
>
>
>
> > Thanks for the help and I appreciate your advice.
> > I have abandoned doing what I was intending to do and have since found
> > a way around the problem. I think the main reason I wanted to do it
> > that way initially was for visual appeal. However I have moved on with
> > my project (the project I'm working on is an attendance recording and
> > monitoring system for a small secondary school, its my final year
> > project undertaking for college).
>
> > I keep getting the following error as I am trying to get the 'save'
> > part of the system going and was hoping for some help:
>
> > OleDbException was unhandled
> > Syntax error in INSERT INTO statement
>
> > and the line of code the error points to goes as follows:
>
> > objAttendanceDA.Update(objDataSet, "tblAttendance")
>
> > The rest of my code is :
>
> > Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e
> > As System.EventArgs) Handles btnSave.Click
> > 'Save the attendance
> > Dim dateToday As Date = Now.Date
>
> > 'setup the relationship
> > objDataSet.Relations.Clear()
> > objDataSet.Relations.Add("Class2Student", _
> > objDataSet.Tables("tblClass").Columns
> > ("ClassID"), _
> > objDataSet.Tables
> > ("tblStudent").Columns("ClassID"))
> > objDataSet.Relations.Add("Student2Attendance", _
> > objDataSet.Tables
> > ("tblStudent").Columns("StudentID"), _
> > objDataSet.Tables
> > ("tblAttendance").Columns("StudentID"))
>
> > 'Select the next row
> > objCurrentRow1 = objDataSet.Tables("tblAttendance").NewRow
> > mintStudentID = objDataSet.Tables("tblStudent").Rows.Count
>
> > objCurrentRow1.Item("StudentID") = mintStudentID
> > objCurrentRow1.Item("Attendance Date") = dateToday
> > objCurrentRow1.Item("Present") = Tues1.CheckState
> > objDataSet.Tables("tblAttendance").Rows.Add(objCurrentRow1)
> > objAttendanceDA.Update(objDataSet, "tblAttendance")
> > objDataSet.AcceptChanges()
>
> > MsgBox("Saving Complete", MsgBoxStyle.OkOnly, "Saved")
>
> > End Sub
>
> > I think I might have an idea as to why I keep getting the error. On my
> > windows form you select a class from a combobox and then the class
> > list (all the student names) are populated into a listbox. We'll say
> > there are 25 names, then there is also 25 checkboxes next to the list
> > of names. If all students are present, all checkboxes are checked. So
> > what the save button really needs to do is save the attendance for the
> > class, but the code I have so far is only kinda for one row. Also to
> > save to the Attendance table, a StudentID is needed and I don't really
> > know how to deal with that in my code. All the names that come into
> > the list box have an associated StudentID and it is those ID I need to
> > save.
>
> > I hope the way I have explained this is somewhat clear and any help
> > would be greatly appreciated.
>
> > Thanks.
> > On Jan 24, 10:13 am, Kabeer <[email protected]> wrote:
>
> > > Hi,
>
> > > why you want to like this ?
> > > according to me its not a good programming.
> > > as per The_Fruitman you need gridview on your web page.
>
> > > its not well but do this.
> > > get records in say Datatable
> > > Read the Table Entry one by one after fill it with your records.
> > > use loop for fill the textboxes
> > > like
> > > For init to dt.rows.count -1
> > > REM here fill your text boxes one by one with respect to record and
> > > dt.rows[i]
> > > end for
>
> > > For this you have to define your textboxes id at runtime
> > > like <asp:TextBox id="txtvalue" & i ..... />
> > > here i means the value as per your recoed.- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -
