I am converting my VB.Net code for Access table to SQL tables. In the Access tables I had a primary key that was Autonumber. I need to fill that field when I insert a record.
How can I do Autonumber in SQL - server
Here is my code so far... this does not work, ,,,, how can do it.
!
How can I do Autonumber in SQL - server
Here is my code so far... this does not work, ,,,, how can do it.
Code:
Dim query5 As String = "Insert Into TradeEnrolment (National_Id, Person_Alternate_Id,OFO_Code,Learner_Enrolled_Date,Learner_Achievement_Date ) Values (@National_Id, @Person_Alternate_Id, @OFO_Code, @Learner_Enrolled_Date,@Learner_Achievement_Date)"
Dim query6 As String = "Select @@Identity"
Using conn As New SqlConnection(constr)
Using cmd As New SqlClient.SqlCommand(query5, conn)
cmd.Parameters.AddWithValue("@StudentId", UCase(Trim(txtIdNumber.Text)))
cmd.Parameters.AddWithValue("@AlternativeId", UCase(Trim(Alt_Id_Type(cmbIDType.Text))))
If lstNew_OFO_codes.Items.Count > 0 Then
cmd.Parameters.AddWithValue("@OFO_code", lstNew_OFO_codes.Items(0).ToString)
Else
cmd.Parameters.AddWithValue("@OFO_code", DBNull.Value)
End If
If txtDateRegistered.Text = "" Then
cmd.Parameters.AddWithValue("@Learner_Enrolled_Date", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Learner_Enrolled_Date", CDate(txtDateRegistered.Text).Date)
End If
If txtDateCompetant.Text = "" Then
cmd.Parameters.AddWithValue("@Learner_Achievement_Date", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Learner_Achievement_Date", CDate(txtDateCompetant.Text).Date)
End If
conn.Open()
cmd.ExecuteNonQuery()
cmd.CommandText = query6
ID2 = cmd.ExecuteScalar()
End Using
End Using
If con.State = ConnectionState.Open Then
con.Close()
End If