تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود التسجيل بموقعي ..
#1
السلام عليكم ورحمة الله

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

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

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

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

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

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

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

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


كود :
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


الملفات المرفقة
.rar   code.rar (الحجم : 2.82 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 10 193 أمس, 11:47 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 59 أمس, 10:56 AM
آخر رد: aliday03
  [VB.NET] مشكلة معايا فى الTEXTBOX MOSTAFA.KAMEL 12 154 22-09-17, 10:45 PM
آخر رد: MOSTAFA.KAMEL
  مشكلة في حفظ الصورة Fantastico 3 80 22-09-17, 04:46 PM
آخر رد: Fantastico
  مشكلة الفورم الشفاف محمود صالح 5 186 22-09-17, 12:47 AM
آخر رد: Fantastico
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 6 132 20-09-17, 02:49 PM
آخر رد: السندبااد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 183 19-09-17, 07:59 PM
آخر رد: سعود الشامان
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 130 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 522 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 664 14-09-17, 06:24 PM
آخر رد: محمود صالح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم