مساعد لو سمحتوا asp.net

[محمد عبد]

السلام عليكم بديت من مده اتعلم asp.net2.0 بلغة vb.net 2005

واجهتني مشكله في صفحه عندي يوجد بها:


TextBox1

واريد ان اقارن بين القيمه التي كتبت في TextBox1

مع قيمه في الداتا بيز في الجدول Table1الذي يحوي فقط قيمه واحده في الصف name يعني اليوزر يدخل قيمه اذا كانت تساوي القيمه الي في الداتا بيز يخرج رساله : القيمه صحيحه والعكس يخرج رسالة : خطا

لازم اسلم المشروع بعد مده وما قادر اخلص هنقطه لو سمحتوا ساعدوني جزاكم الله خير

وشكرا

[كلاسيك]

قم بوضع الكود هنا حتى نساعدك في اصلاحهاً

[محمد عبد]

هذا الكود للصفحه مع الداتابيز على ما اعتقد اني بحاجه الى كود ado.net للمقارنه بين القيمه المدخله والقيمه الموجوده في الداتا بيزز

وشكرا مسبقا

[كلاسيك]

هذا كود يقوم باستخدام الطريقة التقليدية ل ADO.NET

قم بفتح ملف "Default.aspx.vb" واستبدله بالكود الآتي

Imports System.Data.SqlClient
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            '' Create connection and command objects
            Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
            Dim cmd As New SqlCommand("select count(*) from table1 where name=@name", con)

            '' Attach a parameter
            cmd.Parameters.Add(New SqlParameter("name", SqlDbType.NVarChar, 50)).Value = TextBox1.Text

            '' Open the connection and execute query
            con.Open()
            If (cmd.ExecuteScalar > 0) Then
                lblResult.Text = "Found"
            Else
                lblResult.Text = "Not Found"
            End If

        Catch ex As Exception
            lblResult.Text = ex.Message
        End Try
        

    End Sub
End Class

قم بإضافة Label الى صفحتك وقم بتسميته lblResult لمشاهدة النتيجة


ملاحظة : انا اكره لغة VB

[محمد عبد]

شكرا اخي على الكود وجزاك الله كل خير