Thanking u

shaz

It should be something similar to this:

"
Dim insertSql As String = “Insert into SAdmission(RegistrationNo,Name,DateofBirth,Class,Nationality,MotherTongue,Religion,BloodGroup,SecondLanguage,Address1,Address2,PhoneNo,DateofJoining,FathersName,Occupation,MothersName,Occupation1) values (@RegistrationNo,@Name,@DateofBirth,@Class,@Nationality,@MotherTongue,@Religion,@BloodGroup,@SecondLanguage,@Address1,@Address2,@PhoneNo,@DateofJoining,@FathersName,@Occupation,@MothersName,@Occupation1)”
"

Before altering the dataset
=========
After altering the dataset
1 | Nameera | 16/12/2006
Error: System.Data.SqlClient.SqlException: Incorrect syntax near ‘(‘.
at System.Data.Common.DbDataAdapter.UpdatedRowStatusErrors(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount)
at System.Data.Common.DbDataAdapter.UpdatedRowStatus(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount)
at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
at System.Data.Common.DbDataAdapter.UpdateFromDataTable(DataTable dataTable, DataTableMapping tableMapping)
at System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String srcTable)
at School.SAdmission.Button2_Click(Object sender, EventArgs e) in D:Visual Studio 2005SchoolSchoolSAdmission.vb:line 123
Connection Closed

My code is as below

Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Data.SqlClient

Public Class SAdmission

Shared Sub Main()

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Home.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim thisConnection As New SqlConnection(“Data Source=NASSQLEXPRESS;Database=data2;Integrated Security=True; Connect Timeout=30;”)

Dim sql As String = “SELECT * FROM SAdmission ”

Dim insertSql As String = “Insert into SAdmission(RegistrationNo,Name,DateofBirth,Class,Nationality,MotherTongue,Religion,BloodGroup,SecondLanguage,Address1,Address2,PhoneNo,DateofJoining,FathersName,Occupation,MothersName,Occupation1)values(” ‘RegistrationNo’,’Name’,’DateofBirth’,’Class’,’Nationality’,’MotherTongue’,’Religion’,’BloodGroup’,’SecondLanguage’,’Address1′,’Address2′,’PhoneNo’,’DateofJoining’,’FathersName’,’Occupation’,’MothersName’,’Occupation1′”)”
Try

Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(sql, thisConnection)

‘ Create and fill Dataset
Dim ds As New DataSet
da.Fill(ds, “SAdmission”)
‘ Get the Data Table
Dim dt As DataTable = ds.Tables(“SAdmission”)
Console.WriteLine(“Before altering the dataset”)
For Each row As DataRow In dt.Rows
Console.WriteLine(“{0} | {1} | {2}”, _
row(“RegistrationNo”).ToString().PadRight(10), _
row(“Name”).ToString().PadRight(10), _
row(“DateofBirth”).ToString().PadRight(10), _
row(“Class”).ToString().PadRight(10), _
row(“Nationality”).ToString().PadRight(10), _
row(“MotherTongue”).ToString().PadRight(10), _
row(“BloodGroup”).ToString().PadRight(10), _
row(“SecondLanguage”).ToString().PadRight(10), _
row(“Address1″).ToString().PadRight(10), _
row(“Address2″).ToString().PadRight(10), _
row(“PhoneNo”).ToString().PadRight(10), _
row(“DateofJoining”).ToString().PadRight(10), _
row(“FathersName”).ToString().PadRight(10), _
row(“Occupation”).ToString().PadRight(10), _
row(“MothersName”).ToString().PadRight(10), _
row(“Occupation1″).ToString().PadRight(10))
Next
Dim newRow As DataRow = dt.NewRow()
newRow(“RegistrationNo”) = “1″
newRow(“Name”) = “Nameera”
newRow(“DateofBirth”) = “16/12/2006″
dt.Rows.Add(newRow)
Console.WriteLine(“=========”)
Console.WriteLine(“After altering the dataset”)
For Each row As DataRow In dt.Rows
Console.WriteLine(“{0} | {1} | {2}”, _
row(“RegistrationNo”).ToString().PadRight(10), _
row(“Name”).ToString().PadRight(10), _
row(“DateofBirth”).ToString().PadRight(10), _
row(“Class”).ToString().PadRight(10), _
row(“Nationality”).ToString().PadRight(10), _
row(“MotherTongue”).ToString().PadRight(10), _
row(“BloodGroup”).ToString().PadRight(10), _
row(“SecondLanguage”).ToString().PadRight(10), _
row(“Address1″).ToString().PadRight(10), _
row(“Address2″).ToString().PadRight(10), _
row(“PhoneNo”).ToString().PadRight(10), _
row(“DateofJoining”).ToString().PadRight(10), _
row(“FathersName”).ToString().PadRight(10), _
row(“Occupation”).ToString().PadRight(10), _
row(“MothersName”).ToString().PadRight(10), _
row(“Occupation1″).ToString().PadRight(10))
Next

Dim insertCmd As New SqlCommand(insertSql, thisConnection)
insertCmd.Parameters.Add(“@RegistrationNo”, _
SqlDbType.NVarChar, 10, “RegistrationNo”)
insertCmd.Parameters.Add(“@Name”, _
SqlDbType.NVarChar, 20, “Name”)
insertCmd.Parameters.Add(“@DateofBirth”, _
SqlDbType.NVarChar, 15, “DateofBirth”)
insertCmd.Parameters.Add(“@Class”, _
SqlDbType.NVarChar, 20, “Class”)
insertCmd.Parameters.Add(“@Nationality”, _
SqlDbType.NVarChar, 20, “Nationality”)
insertCmd.Parameters.Add(“@MotherTongue”, _
SqlDbType.NVarChar, 20, “MotherTongue”)
insertCmd.Parameters.Add(“@Religion”, _
SqlDbType.NVarChar, 20, “Religion”)
insertCmd.Parameters.Add(“@BloodGroup”, _
SqlDbType.NVarChar, 20, “BloodGroup”)
insertCmd.Parameters.Add(“@SecondLanguage”, _
SqlDbType.NVarChar, 20, “secondlanguage”)
insertCmd.Parameters.Add(“@Address1″, _
SqlDbType.NVarChar, 20, “Address1″)
insertCmd.Parameters.Add(“@Address2″, _
SqlDbType.NVarChar, 20, “Address2″)
insertCmd.Parameters.Add(“@PhoneNo”, _
SqlDbType.NVarChar, 20, “PhoneNo”)
insertCmd.Parameters.Add(“@DateofJoining”, _
SqlDbType.NVarChar, 20, “DateofJoining”)
insertCmd.Parameters.Add(“@FathersName”, _
SqlDbType.NVarChar, 20, “FathersName”)
insertCmd.Parameters.Add(“@Occupation”, _
SqlDbType.NVarChar, 20, “Occupation”)
insertCmd.Parameters.Add(“@MothersName”, _
SqlDbType.NVarChar, 20, “MothersName”)
insertCmd.Parameters.Add(“@Occupation1″, _
SqlDbType.NVarChar, 20, “Occupation1″)
da.InsertCommand = insertCmd
da.Update(ds, “SAdmission”)
Catch ex As SqlException
Console.WriteLine(“Error: ” & ex.ToString())
Finally
thisConnection.Close()
Console.WriteLine(“Connection Closed”)
End Try
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()

End Sub
End Class

As stated above, the Update method of the data adapter changes the data in the data source to match the data in the DataSet, but you don’t have any data in the data set, and I think that is the problem.

This is the description of the InsertCommand property:

“A SqlCommand used during Update to insert records into the database that correspond to new rows in the DataSet.”

If you want to insert records into the database table through a dataset, you need to add those new records to the dataset first, and remember that the Update method will perform any necessary actions to synchronize information between the data source, and the dataset, so if your dataset has only 1 row, I guess that is what you will have in the underlying table after the update.

Please, have a look at the following example on using datasets and data adapters:

Insert command with parameters

Update unable to find TableMapping['SAdmission'] or DataTable ‘SAdmission’. But still iam getting above error.
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Data.SqlClient

Public Class SAdmission
Shared WithEvents con As SqlConnection
Shared Sub Main()

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Home.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim adapter As SqlDataAdapter
Dim cmd As SqlCommand
Dim ds As New DataSet
Dim test As Boolean
Dim conn As SqlConnection

Dim sql As String
conn = New SqlConnection(“Data Source=NASSQLEXPRESS;Database=data2;Integrated Security=True; Connect Timeout=30;”)

sql = “Insert into SAdmission(RegistrationNo,Name,DateofBirth,Class,Nationality,MotherTongue,Religion,BloodGroup,SecondLanguage,Address1,Address2,PhoneNo,DateofJoining,FathersName,Occupation,MothersName,Occupation1)values(” ‘RegistrationNo’,’Name’,’DateofBirth’,’Class’,’Nationality’,’MotherTongue’,’Religion’,’BloodGroup’,’SecondLanguage’,’Address1′,’Address2′,’PhoneNo’,’DateofJoining’,’FathersName’,’Occupation’,’MothersName’,’Occupation1′”)”

conn.Open()
MsgBox(“conection has open”)
test = conn.State ‘to check the connection state
MsgBox(test)
cmd = New SqlCommand(sql, conn)
MessageBox.Show(cmd.CommandText.ToString())
adapter = New SqlDataAdapter
adapter.InsertCommand = cmd
adapter.Update(ds, “SAdmission”)
conn.Close()
MsgBox(“You have successflly updated”)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()

End Sub
End Class
Plz check

Shaz