و الله لا أدري إخوتي كيف أشكركم .... كلكم أدلى بدلوه و قدمتم لي مساعدة ما كنت احلم بها جعلها الله في ميزان حسناتكم
بالنسبة للخطوات التي اتبعتها لتجاوز مشكل الاتصال
1- تغيير localhost إلى اسم الجهاز
2- انشاء مستخدم في sql servr يحمل اسم aspnet
وبعدها تجاوزت مشكل الاتصال
و الحين أصبح الكود بعد توجيهاتكم كالتالي
لكن ظهر مشكل أخر و هو عند أجراء كود الاستعلامكود:Imports System.Data.SqlClient Public Class confirm Inherits System.Web.UI.Page Dim cnx As SqlClient.SqlConnection = New SqlClient.SqlConnection() Dim Cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand() Dim strCnx As String Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strCnx = ConfigurationSettings.AppSettings("connection") cnx = New SqlConnection(strCnx) cnx.Open() Cmd = cnx.CreateCommand Cmd.CommandText = "select count(login_user) from users where login_user='" & Me.Session("login") & "'" Dim nbrL As Byte = Cmd.ExecuteScalar If nbrL > 0 Then Cmd.CommandText = "select password from users where login_user='" & Me.Session("pass") & "'" Dim passw As String = Cmd.ExecuteScalar If Trim(passw) = Trim(Me.Session("pass")) Then Me.Session("name") = Me.Session("login") 'Response.Redirect("webadmin.aspx") MsgBox("heheheheheheheheheheheeeeeeeeee") Else Me.Session("erreur") = "كلمة المرور خاطئة" Response.Redirect("default.aspx") End If Else Me.Session("erreur") = "اسم المستخدم غير موجود" Response.Redirect("default.aspx") End If cnx.Close() End Sub
حيث أصبح المشكل في السطر 30كود:Erreur du serveur dans l'application '/WebApplication1'. -------------------------------------------------------------------------------- Autorisation SELECT refusée sur l'objet 'Users', base de données 'da3wa', propriétaire 'dbo'. Description : Une exception non gérée s'est produite au moment de l'exécution de la demande Web actuelle. Contrôlez la trace de la pile pour plus d'informations sur l'erreur et son origine dans le code. Détails de l'exception: System.Data.SqlClient.SqlException: Autorisation SELECT refusée sur l'objet 'Users', base de données 'da3wa', propriétaire 'dbo'. Erreur source: Ligne 28 : Cmd = cnx.CreateCommand Ligne 29 : Cmd.CommandText = "select count(login_user) from users where login_user='" & Me.Session("login") & "'" Ligne 30 : Dim nbrL As Byte = Cmd.ExecuteScalar Ligne 31 : If nbrL > 0 Then Ligne 32 : Cmd.CommandText = "select password from users where login_user='" & Me.Session("pass") & "'"
وترجمة الخطأ هي أنه لا توجد صلاحية لإجراء الاستعلام
ملاحظة أرجو أن تنصحوني إن كان هناك خطأ آخر في الكود


رد مع اقتباس
