12-04-16, 01:52 PM
(آخر تعديل لهذه المشاركة : 12-04-16, 01:53 PM {2} بواسطة الراجية عفو ربها.)
السلام عليكم ورحمة الله
حياكم الله إخوتي
سامحوني على أي إزعاج
ولكن أريد مساعدتكم فضلاً حول كود التسجيل بالدوت نت بلغة الفيجوال بيسك
جربت اكثر من كود للتسجيل وحاولت اعدل عليه يتنفذ طبيعي لكن المشكلة لا يضيف بيانات التسجيل لقاعدة البيانات
فلا أدري ما هي المشكلة ؟
ولدي استفسار حول كيفية ربط جدول اللوجن بالريجيستر في الداتا بيز ؟
في المرفق الصفحة الخاصة بالتسجيل علماً بأن الداتا بيز كبيرة جدا ولم استطع نسخها ولكن ما في الجدول موضح
في ملف الكود ..
جزاكم الله كل خير
كود :
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