Hi PRA,
Please refer below sample.
Namespaces
C#
using System.Windows.Forms;
using System.Data.SqlClient;
VB.Net
Imports System.Data.SqlClient
Code
C#
private void button1_Click(object sender, EventArgs e)
{
string constr = @"Server=.\SQL2005;DataBase=dbLogin;UID=user;PWD=password";
SqlConnection con = new SqlConnection(constr);
SqlCommand cmd = con.CreateCommand();
cmd.CommandText = "insert into tblPerson(LastName, Name) values(@LastName,@Name) SELECT SCOPE_IDENTITY()";
cmd.Parameters.AddWithValue("@LastName", txtLastName.Text);
cmd.Parameters.AddWithValue("@Name", txtName.Text);
con.Open();
int id = Convert.ToInt32(cmd.ExecuteScalar());
con.Close();
cmd = new SqlCommand("INSERT INTO [tblLogin] (PerLogin,Password,IdPerson) VALUES(@PerLogin,@Password,@IdPerson)", con);
cmd.Parameters.AddWithValue("@PerLogin", "std000" + id);
cmd.Parameters.AddWithValue("@Password", "12345");
cmd.Parameters.AddWithValue("@IdPerson", id);
con.Open();
cmd.ExecuteNonQuery();
con.Close();
txtLastName.Text = "";
txtName.Text = "";
}
VB.Net
Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click
Dim constr As String = "Server=.\SQL2005;DataBase=dbLogin;UID=user;PWD=password"
Dim con As SqlConnection = New SqlConnection(constr)
Dim cmd As SqlCommand = con.CreateCommand()
cmd.CommandText = "insert into tblPerson(LastName, Name) values(@LastName,@Name) SELECT SCOPE_IDENTITY()"
cmd.Parameters.AddWithValue("@LastName", txtLastName.Text)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
con.Open()
Dim id As Integer = Convert.ToInt32(cmd.ExecuteScalar())
con.Close()
cmd = New SqlCommand("INSERT INTO [tblLogin] (PerLogin,Password,IdPerson) VALUES(@PerLogin,@Password,@IdPerson)", con)
cmd.Parameters.AddWithValue("@PerLogin", "std000" & id)
cmd.Parameters.AddWithValue("@Password", "12345")
cmd.Parameters.AddWithValue("@IdPerson", id)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
txtLastName.Text = ""
txtName.Text = ""
End Sub