الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ درس بالصور ] بإستخدام فيجوال ستيديو 2005 ( كيفية إنشاء SQL Database والإتصال بها وعرض بيانات الحقول )

مغلق
بدأه أبـو فـارس في 10 ديسمبر 2006 · 28 رد · 5,413 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#26

ماشالله ابوفارس موقع ممتاز وشرح موفق .. نتمنى ان نرى تكمله لمثل هذه الموضيع التي بالفعل يبخل الكثير من اظهارها

#27

شكرا لك اخي ابو فارس

لكن الصور لا تظهر

460.gif

#28

السلام عليكم اخىابو فارس

انا تابعت الدرس بس متاخر ولا اجد صور الدرس الرجاء الردى على لمعرفة اين اجد صور الدرس او ارسالها لى على الاميل هذا

mazhar6666@hotmail.com

#29

انا جديد جدا في هذا النوع من البرمجة و اول درس لي هو درسك

لدي بعض الاستفسارات اتمنى ان اجد لديك اجوبه عليها

قمت بتطبيق الدرس خطو بخطوة و لكن عندما ادخل الصفحة و اضع كلمة السرد و الاسم و اطلب الدخول يعطيني مشكلة في السطر التالي

Using myConnection As New SqlConnection(connString)

و المشكلة

Keyword not supported: 'data 
source'.

الكود بشكل عام

Imports System.Data.SqlClient
Imports System.data
Partial Class _Default
	Inherits System.Web.UI.Page



	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Right.Visible = False
		wrong.Visible = False
	End Sub

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

		Dim connString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString

		Using myConnection As New SqlConnection(connString)


			Const sql As String = "SELECT * FROM users"


			Dim myCommand As New SqlCommand(sql, myConnection)


			Dim myDataSet As New DataSet


			Dim myAdapter As New SqlDataAdapter(myCommand)
			myAdapter.Fill(myDataSet)


			CheckRows(myDataSet, userName.Text, userPass.Text)


			myConnection.Close()


		End Using



	End Sub

	Private Sub CheckRows(ByVal dataSet As DataSet, ByVal userName As String, ByVal userPass As String)

		Dim table As DataTable
		Dim row As DataRow


		For Each table In dataSet.Tables
			For Each row In table.Rows

				If row(1) = userName And row(2) = userPass Then
					Right.Visible = True
				End If

			Next row

			If Not Right.Visible = True Then
				Right.Visible = True
			End If

		Next table
	End Sub

End Class

و السؤال الثاني

لما احاول ادخل الموقع من جهاز اخر على الشبكة

http://localhost:1112/WebSite1/Default.aspx

مع تغييره بIP ادرس لا يعمل ما هو الحل؟

السؤال الثالث

لو نجحت عملية كلمة السر كيف اجلعة يحولني الى صفحة اخر؟

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…