okay..this are my codes...
hope it helps :-\
Sub Page_Load
DropDownList1.Items.Clear()
TextBox1.Text= ""
TextBox10.Text = ""
TextBox2.Text = ""
TextBox11.Text= ""
TextBox12.Text= ""
TextBox13.Text= ""
TextBox15.Text= ""
TextBox16.Text= ""
TextBox17.Text= ""
TextBox18.Text= ""
DropDownList1.Items.Add("Ordinary")
DropDownList1.Items.Add("Administrator")
end sub
Sub Add_Click (s as Object, e As EventArgs)
if IsValid then
dim conn, conn2, conn3 as SqlConnection
dim strIns, strIns2, uname as String
dim cmdInsert,cmdInsert2, cmdSelectLogin as SqlCommand
dim login as SqlDataReader
dim check as boolean
conn3 = new SqlConnection("Server=localhost;User Id=sa;Password=edna;database=TA")
conn3.Open()
cmdSelectLogin= new SqlCommand ("Select Name From Passwd", conn3)
login =cmdSelectLogin.ExecuteReader()
check = true
uname = TextBox10.Text
While login.Read()
if login("Name") = uname then
check = false
Label1.Visible = True
end if
end while
login.Close()
conn3.Close()
if check = true then
conn = new SqlConnection("Server=localhost;User Id=sa;Password=edna;database=TA")
strIns = "Insert Profile (FName, DOB, HP, House, Address, Email, Exmail, Name, IC) Values (@fname,@dob,@hp,@house,@address,@email,@exmail,@name,@ic)"
cmdInsert = New SqlCommand(strIns, conn)
cmdInsert.Parameters.Add("@fname",TextBox12.Text)
cmdInsert.Parameters.Add("@dob",TextBox15.Text)
cmdInsert.Parameters.Add("@hp",TextBox16.Text)
cmdInsert.Parameters.Add("@house",TextBox17.Text)
cmdInsert.Parameters.Add("@address",TextBox2.Text)
cmdInsert.Parameters.Add("@email",TextBox18.Text)
cmdInsert.Parameters.Add("@exmail",TextBox1.Text)
cmdInsert.Parameters.Add("@name",TextBox10.Text)
cmdInsert.Parameters.Add("@ic",TextBox13.Text)
conn.Open()
cmdInsert.ExecuteNonQuery()
conn.Close()
conn2 = new SqlConnection("Server=localhost;User Id=sa;Password=edna;database=TA")
strIns2 = "Insert Passwd (Name,Password) Values (@name2,@password)"
cmdInsert2 = New SqlCommand(strIns2, conn2)
cmdInsert2.Parameters.Add("@name2",TextBox10.Text)
cmdInsert2.Parameters.Add("@password",TextBox11.Text)
conn2.Open()
cmdInsert2.ExecuteNonQuery()
conn.Close()
else
Label1.Visible = True
end if
end if
end sub