و الله لا أدري إخوتي كيف أشكركم .... كلكم أدلى بدلوه و قدمتم لي مساعدة ما كنت احلم بها جعلها الله في ميزان حسناتكم
بالنسبة للخطوات التي اتبعتها لتجاوز مشكل الاتصال
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
لكن ظهر مشكل أخر و هو عند أجراء كود الاستعلام
كود:
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") & "'"
حيث أصبح المشكل في السطر 30
وترجمة الخطأ هي أنه لا توجد صلاحية لإجراء الاستعلام
ملاحظة أرجو أن تنصحوني إن كان هناك خطأ آخر في الكود