substr

การ Add Data โดยใช้ Datarow

If ds.Tables.Contains("AddData") Then ds.Tables("Adddata").Clear()
Dim daAdd As New OleDbDataAdapter("Select * From TimeTStu ", cn)
daAdd.Fill(ds, "AddData")
Dim AutoID As Integer
Dim CountRow As Integer

CountRow = ds.Tables("AddData").Rows.Count
If CountRow = 0 Then

AutoID = 1

Else

CountRow = ds.Tables("AddData").Rows.Count - 1
AutoID = ds.Tables("AddData").Rows(CountRow).Item("RecNo") + 1

End If

Dim drAdd As DataRow = ds.Tables("AddData").NewRow
drAdd("RecNo") = AutoID
drAdd("AcadYear") = ddlAcadYear.SelectedValue
drAdd("SubjectID") = SubjectID
drAdd("Grade") = GradeID
drAdd("Days") = ddlDays.SelectedValue
drAdd("StartTime") = ddlHStart.SelectedValue & ":" & ddlMStart.SelectedValue
' & ":" & คือการรวม ddl 2 ตัว มารวมกันใน textbox เดียว
drAdd("EndTime") = ddlHEnd.SelectedValue & ":" & ddlMEnd.SelectedValue
drAdd("RoomNo") = txtRoom.Text
drAdd("TeachBy") = TeacherID
ds.Tables("AddData").Rows.Add(drAdd)

Dim cbAdd As New OleDbCommandBuilder(daAdd)
Try

daAdd.Update(ds, "AddData")
Response.Write("

")

Catch ex As Exception

Exit Sub

End Try