منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في كود التسجيل بموقعي .. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في كود التسجيل بموقعي .. (/showthread.php?tid=15466)

مشكلة في كود التسجيل بموقعي .. - الراجية عفو ربها - 12-04-16

السلام عليكم ورحمة الله

حياكم الله إخوتي

سامحوني على أي إزعاج

ولكن أريد مساعدتكم فضلاً حول كود التسجيل بالدوت نت بلغة الفيجوال بيسك

جربت اكثر من كود للتسجيل وحاولت اعدل عليه يتنفذ طبيعي لكن المشكلة لا يضيف بيانات التسجيل لقاعدة البيانات 

فلا أدري ما هي المشكلة ؟

ولدي استفسار حول كيفية ربط جدول اللوجن بالريجيستر في الداتا بيز ؟

في المرفق الصفحة الخاصة بالتسجيل علماً بأن الداتا بيز كبيرة جدا ولم استطع نسخها ولكن ما في الجدول موضح
في ملف الكود ..

جزاكم الله كل خير


كود :
If Page.IsPostBack = False Then

           Using sqlCon As New SqlConnection(ConfigurationManager.ConnectionStrings("Constr").ConnectionString)
               sqlCon.Open()
               Dim query As String
               query = "insert into AdminSignUp(Username,Password,Email) VALUES(@Username,@Password,@Email)"

               Dim sqlcmd As New SqlCommand(query, sqlCon)
               sqlcmd.Parameters.AddWithValue("@username", txtUsername)
               sqlcmd.Parameters.AddWithValue("@password", txtPassword)
               sqlcmd.Parameters.AddWithValue("@email", txtEmail)
               sqlcmd.ExecuteNonQuery()


               Session.Item("Username") = txtUsername.Text
           End Using

           MsgBox("Account Created with Success")
           Response.Redirect("default.aspx")


       End If

كود آخر



كود :
   Protected Sub RegisterUser(sender As Object, e As EventArgs) Handles Button1.Click

Try
           cmd.Connection = con
           'assigning connection to command
           cmd.CommandType = CommandType.Text
           'representing type of command
         
           cmd.CommandText = "INSERT INTO AdminSignUp VALUES (@Username,@Email,@Password)"

           'adding parameters with value
           cmd.Parameters.AddWithValue("@Username", txtUsername.Text.ToString())
           cmd.Parameters.AddWithValue("@Email", txtEmail.Text.ToString())
           cmd.Parameters.AddWithValue("@Password", txtPassword.Text.ToString())
           con.Open()
           'opening connection
           cmd.Connection = con
           cmd.ExecuteNonQuery()
           'executing query
           con.Close()
           'closing connection

           LabelMSG.Text = "Registered Successfully.."
       Catch ex As Exception
           LabelMSG.Text = ex.Message.ToString()
       Finally
           If con.State = ConnectionState.Open Then con.Close()
       End Try
End sub
T