هذا كود يقوم باستخدام الطريقة التقليدية ل 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