i am using sqldatasource to display gridview
and using additional textboxes with a add button with code in vb behind to insert the data to database
the code which i am using to insert data to database is as under
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\web\auth.mdb"
Dim con As OleDbConnection = New OleDbConnection(connectString)
con.Open()
Dim qstr As String
qstr = " select * from tasks"
Dim oledb As New OleDbDataAdapter(qstr, con)
Dim dt As New DataSet
dt.Clear()
oledb.Fill(dt, "tasks")
If DropDownList1.SelectedValue = "Select" Then
Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "<script> alert('Please Select Appt........') </script>")
DropDownList1.Focus()
Exit Sub
End If
If tasktxt.Text = "" Then
Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "<script> alert('Please Assign Task.........') </script>")
tasktxt.Focus()
Exit Sub
End If
If DropDownList2.SelectedValue = "Select" Then
Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "<script> alert('Please Select Action By........') </script>")
DropDownList1.Focus()
Exit Sub
End If
If comptxt.Text = "" Then
Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "<script> alert('Please Select Date of Completion........') </script>")
comptxt.Focus()
Exit Sub
End If
rmk.Text = "No"
Dim sql_ins As String
sql_ins = "insert into tasks (Appt,Task,Actionby,Complete,Remark) values (@a,@b,@c,@d,@e)"
Dim oledbcom As New OleDbCommand(sql_ins, con)
oledbcom.Parameters.Add(New OleDbParameter("@a", OleDbType.VarChar, 8)).Value = DropDownList1.Text
oledbcom.Parameters.Add(New OleDbParameter("@b", OleDbType.VarChar, 50)).Value = tasktxt.Text
oledbcom.Parameters.Add(New OleDbParameter("@c", OleDbType.VarChar, 50)).Value = DropDownList2.Text
oledbcom.Parameters.Add(New OleDbParameter("@d", OleDbType.Date)).Value = comptxt.Text
oledbcom.Parameters.Add(New OleDbParameter("@e", OleDbType.VarChar, 50)).Value = rmk.Text
oledbcom.ExecuteNonQuery()
AccessDataSource1.DataBind()
GridView1.DataBind()
tasktxt.Text = ""
comptxt.Text = ""
DropDownList1.Text = "Select"
DropDownList2.Text = "Select"
Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "<script> alert('Record Inserted Succesfully .........') </script>")
End Sub