احترف ربط فيجوال استوديو 2005 مع SQL Server

[Jordan_Eyes]

اخواني الكرام ..... موضوع مهم جداً لكل مبرمج أو طالب برمجه ...
الا و هي عمليه ربط البرنامج بقاعده البيانات ...

أثناء تجولي بالانترنت وجدت هذا الشرح التفصيلي الرائع ،،
خاصه للمبتدئين ليتقنوا جانب مهم من جوانب البرمجه ..
أضعه بين أيديكم ....


http://www.abdulmalik.althari.com/myupload/vb2005/db/main.gif

أولاً نقوم بفتح برنامج فيجوال ستيديو 2005

http://www.abdulmalik.althari.com/myupload/vb2005/db/1.gif

ثم نقوم بإنشاء Web Site جديد

http://www.abdulmalik.althari.com/myupload/vb2005/db/2.gif
http://www.abdulmalik.althari.com/myupload/vb2005/db/3.gif

نبدأ أولاً في إنشاء قواعد البيانات بالضغط على هذه الأيقونة

Add new item بما معناه إضافة عنصر جديد
ثم نختار SQL Database

http://www.abdulmalik.althari.com/myupload/vb2005/db/4.gif

بتظهر لك رسالة ( هل تريد إنشاء قاعدة البيانات داخل مجلد App_Data ؟ ) نضغط نعم

http://www.abdulmalik.althari.com/myupload/vb2005/db/6.gif

سنجد الداتابيس في نافذة Server Explorer

نضغط بالفارة باليمين على المجلد Tables ثم نختار Add New Table

http://www.abdulmalik.althari.com/myupload/vb2005/db/7.gif

ثم نقوم بكتابة أسامي الأعمدة ونوع بياناتها

http://www.abdulmalik.althari.com/myupload/vb2005/db/8.gif

الأن العمود userID مفتاح رئيسي ( Primery Key ) نختار العمود userID ونضغط على أيقونة المفتاح كما في الصورة التالية

http://www.abdulmalik.althari.com/myupload/vb2005/db/9.gif

الأن سيكون لا يقبل بيانات متكررة لأنه مفتاح رئيسي فبياناته يجب أن لا تتكرر

والأن نريد أن نجعل العمود userID ( ترقيم تلقائي ) بحيث عن كل إضافة صف جديد يتم إضافة رقم جديد لهذا العمود تلقائياً



يتبع ...

[Jordan_Eyes]

في الخصائص أسفل الأعمدة اعمل كما في الصورة التالية

http://www.abdulmalik.althari.com/myupload/vb2005/db/10.gif

وبعد الإنتهاء نضغط على حفظ ( كما في الصورة التالية )

http://www.abdulmalik.althari.com/myupload/vb2005/db/11.gif

ونكتب أسم الجدول users

http://www.abdulmalik.althari.com/myupload/vb2005/db/12.gif

الأن نريد تعبئة الجدول بيوزر وباسورد لنقوم بتجربتها لاحقاً
في نافذة Server Explorer اضغط بالزر الأيمن من الفارة على الجدول users داخل المجلد Tables ثم أختر Show Table Data

http://www.abdulmalik.althari.com/myupload/vb2005/db/13.gif

وتكتب هذه البيانات داخل الجدول ثم تغلق الجدول

http://www.abdulmalik.althari.com/myupload/vb2005/db/14.gif

الأن تذهب إلى الصفحة Default.aspx
وتضيف هذه الأدوات من نافذة الأدوات

http://www.abdulmalik.althari.com/myupload/vb2005/db/15.gif

الخطوط التي باللون الرصاصي الفاتح والصغيرة هي أسامي الأدوات وهي الـ ID ويتم تعديل إسمها عن طريق الـ Properties
كما في الصورة

http://www.abdulmalik.althari.com/myupload/vb2005/db/16.gif

الأن نبدأ في البرمجة
من نافذة الـ Solution Explorer نفتح الملف web.config

http://www.abdulmalik.althari.com/myupload/vb2005/db/17.gif

ضلل الكود

<connectionStrings/>

وألصق بداله هذا الكود

<connectionStrings>
<add name="ConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;User Instance=True" providerName="System.Data.SqlClient"/>
</connectionStrings>

وهو كود خاص بمعلومات عن قاعدة البيانات
الأن إذهبة إلى الصفحة Default.aspx
إضغط مرتين على الزر ( Sign In )
وفي أول سطر أضف

Imports System.Data.SqlClient
Imports System.data

وبعد الكود

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

أضف هذا الكود

'هنا نقوم بتعريف نص يحتوي على معلومات قاعدة البيانات التي كتبناها في صفحة web.config
Dim connString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
'نقوم بالإتصال بالداتا بيس
Using myConnection As New SqlConnection(connString)
'نقوم بإنشاء الـ SQL query في متغير نصي
Const sql As String = "SELECT * FROM users"

'نقوم بتنفيذ أمر الـ query
Dim myCommand As New SqlCommand(sql, myConnection)

'هنا نقوم بإنشاء DataSet
Dim myDataSet As New DataSet

'ثم نقوم بإنشاء DataAdapter لكي يتواصل بين الـ DataSet وقاعدة البيانات
Dim myAdapter As New SqlDataAdapter(myCommand)
myAdapter.Fill(myDataSet)

'هنا نقوم بإضافة دالة من صنعنا وتحتوي على الـ DataSet و اليوزر والباسورد
CheckRows(myDataSet, userName.Text, userPass.Text)

'أغلق الإتصال
myConnection.Close()
End Using

الأن نريد صنع الدالة

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

وما نريد فعله بالضبط هو عندما يقوم المستخدم الضغط على Sign In فإنه يبحث عن معلومات اليوزر والباسورد ويرى إن كانت موجوده أم لا
وهذه هي الدالة قم بكتابتها بعد End Sub الخاص بالـ Protected Sub Button1_Click


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
wrong.Visible = True
End If

Next table
End Sub
row()
هنا بإمكانك كتابة رقم العمود مثل ما كتبنا إحنا

أو تكتب اسم العمود مثل هكذا
row("userName")
الأن كل شي جاهز ما عدا حاجه وحده
إحنا عملنا في الدالة CheckRows إذا وجد في قاعدة البيانات اليوزر والباسورد صحيحه أضهر right.Visible = True وإذا لم تجدها أضهر wrong.Visible = True
بحيث يجب أن تكون الـ Label للنتيجه مخفيه منذ البدايه ولا تضهر إلا لما يضغط المستخدم على Sign In
إذهب إلى Default.aspx
وأضغط مرتين في أي مكان في الصفحة
راح يرجعك للكود ولكن بينشأ لك دالة خاصة عند تحميل الصفحه تتنفذ وهي هذه
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
وتكتب فيها بكل بساطه
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
right.Visible = False
wrong.Visible = False
End Sub
ثم تضغط الأن زر تشغيل


يتبع ...

[Jordan_Eyes]

http://www.abdulmalik.althari.com/myupload/vb2005/db/18.gif

قد تضهر لك أول مره هذه الرساله تفيد بأن الـ Debugging معطل هل تريد تفعيله من ملف web.config إضغط نعم

http://www.abdulmalik.althari.com/myupload/vb2005/db/19.gif

والأن نختبر عملنا
بكتابة اليوزر
muhmmad
والباسورد
aaa123
ثم تضغط Sign In
والنتيجة ؟؟
- Right

http://www.abdulmalik.althari.com/myupload/vb2005/db/20.gif

تم بحمد الله

[Jordan_Eyes]

اخواني ... نسالكم دعوة بظهر الغيب لي ولوالدي ولكل المسلمين

[veto_44]

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

[Ahmed_ghanam]

الف شكر اخى الغالى على الموضوع الرائع الى مزيد من التقدم باذن الله

[Jordan_Eyes]

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


اللهم امين يارب العالمين ...
باركالله فيك أخي وجزاك كل الخير :smailes80: :smailes80:

شاكر لك مرورك و مشاركتك و جهودك بالقسم :smailes80:

[abdelkader11]

شكراً لك على هذة المعلومات

[MoHaMeD-Mpsi]

شكرا لك على النقل المتميز.
بارك الله فيك و في والديك و جميع المسلمين.

[#Mahmoud.C]

جزاك الله كل خير اخي الفاضل علي هذا الموضوع الرائع

[Jordan_Eyes]

الف شكر اخى الغالى على الموضوع الرائع الى مزيد من التقدم باذن الله

العفو أخوي ....... و شكراً لك للمشاركه .. جزيت خيراً :smailes80:

[Jordan_Eyes]

شكراً لك على هذة المعلومات

العفو اخي ... شكراً لمرورك :smailes80:

[Jordan_Eyes]

شكرا لك على النقل المتميز.
بارك الله فيك و في والديك و جميع المسلمين.

العفو أخي ... ان شالله تكون استفدت :smailes60:

اللهم انا نسالك الاخلاص بالعمل :smailes7:

[Jordan_Eyes]

جزاك الله كل خير اخي الفاضل علي هذا الموضوع الرائع

العفو أخي .. و شكراً لك للمرور و المشاركه :smailes21: :smailes21:

[AJAX]

شكرا لك اخي موضوع مميز ورائع بارك الله فيك ووفقك لكل خير .

[Jordan_Eyes]

شكرا لك اخي موضوع مميز ورائع بارك الله فيك ووفقك لكل خير .

و اياكم أخي ... لا شكر على واجب ..
خير الناس أنفعهم للناس ... :smailes21: :smailes21:

[majid64]

موضوع مهم جدا اخي الكريم و ارجو ان تتابع بدروس اخرى في نفس الموضوع
و اتمنى ان يكون في كيفية ادخال المستخدم لبيانات جديدة للتسجيل لقاعدة البيانات في منتدى ما مثلا .......و شكرا مرة اخرى

[Jordan_Eyes]

موضوع مهم جدا اخي الكريم و ارجو ان تتابع بدروس اخرى في نفس الموضوع
و اتمنى ان يكون في كيفية ادخال المستخدم لبيانات جديدة للتسجيل لقاعدة البيانات في منتدى ما مثلا .......و شكرا مرة اخرى

حياك الله اخوي ... ان شالله ستكون هناك دروس اخرى بالفتره القادمه
لكن اعذروني الان فأنا مشغول بعض الشيء

:smailes21: :smailes21:

[amer 2005]

الف شكر يا جميل

[Jordan_Eyes]

الف شكر يا جميل

حيالله اخوي .. ان شالله تكون استفدت و انتظر كل جديد منا :smailes21: :smailes21:

[baradoss-wac]

بارك الله فيك اخي

[era2006]

موضوع جميل وفعال اخوى الكريم
نرجو منك عدم الانقطاع عنا وتزويدا بكل ما لديك
وبارك الله فيك مرة اخرى
اخوك احمد عصام

[Jordan_Eyes]

بارك الله فيك اخي

حيالله بيك أخوي .. نورت :smailes107:

[jockey4ever]

ترليون
ترليون ترليون ترليون ترليون
ترليون ترليون ترليون ترليون ترليون ترليون ترليون ترليون
ترليون ترليون ترليون ترليون ترليون ترليون ترليون
ترليون ترليون ترليون ترليون ترليون ترليون
ترليون ترليون ترليون ترليون ترليون
ترليون ترليون ترليون ترليون
ترليون ترليون ترليون
ترليون ترليون
ترليون


عافية..

[Jordan_Eyes]

موضوع جميل وفعال اخوى الكريم
نرجو منك عدم الانقطاع عنا وتزويدا بكل ما لديك
وبارك الله فيك مرة اخرى
اخوك احمد عصام

ولا يهمك اخوي .. ان شالله المزيد من الدروس قادمه و هي قيد التجهيز

شكراً على متابعتك :smailes21:

[tetoresha]

شكرا على مجهودك الرائع يا غالى بجد مية مية

[Jordan_Eyes]

أهلاً شباب ...شكراً على مروركم جميعاً ...
نورتو البوست

[Jordan_Eyes]

شكرا على مجهودك الرائع يا غالى بجد مية مية


يسلمو لردك اخي ... نورت البوست يا غالي :smailes96:

[جبل النار]

جزاك الله كل خير

[Jordan_Eyes]

جزاك الله كل خير

جميعاً ان شاءالله

شكراً لمشاركتك يا غالي :smailes1:

[maggime]

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

[ABCARINO77]

مشششششششششششششكور يا أخى

[Jordan_Eyes]

مشكور جدا على العلم المميز
يا هلا اخوي ... شكراً لمرورك و مشاركتك ...
أتمنى لك الافاده ان شاءالله ،،،

[Jordan_Eyes]

مشششششششششششششكور يا أخى

العفو اخي و شكراً لمشاركتك :smailes15::smailes60::smailes80:

[Jordan_Eyes]

رب اغفر لي خطيئتي وجهلي وإسرافي في أمري كله , وما أنت أعلم به مني , اللهم اغفر لي خطئي وعمدي وجهلي وهزلي , وكل ذلك عندي , اللهم اغفر لي ما قدمت وما أخرت , وما أسررت وما أعلنت , أنت المقدم وأنت المؤخر , وأنت على كل شيء قدير

دعـــــاء
يارب : إذا أعطيتني مالاً فلا تأخذ سعادتي ، وإذا أعطيتني قوةً فلا تأخذ عقلي وإذا أعطيتني نجاحاً فلا تأخذ تواضعي وإذا أعطيتني تواضعاً فلا تأخذ اعتزازي بكرامتي .

يارب : علمني أن أحب الناس كما أحبُ نفسي ، وعلمني أن أحاسب نفسي كما أحاسب الناس ، وعلمني أن التسامح هو أكبر مراتب القوة ، وأن حب الإنتقام هو أول مظاهر الضعف .

يارب : لا تـدعني أصــاب بالغــرور إذا نجحتٌ ، ولا باليـأس إذا فشـلتُ ، بل ذكرني دائماً أن الفشل هو التجارب التي تسبقٌ النجاح .

يارب : إذا جردتني من النجاح فاترك لي قوة العناد حتى أتغلب على الفشل ، وإذا جردتني من نعمة الصحة فاترك لي نعمة الإيمان .

يارب : إذا أســأت الى الناس فاعطنـي شـجاعة الإعتـذار ، وإذا أسـاء لي الناس فاعطني شـجاعة العفو .

يارب : إذا نســــيتٌك فلا تنسٍـــني .

[CLoNY]

شرح ممتاز بارك الله فيك

[Jordan_Eyes]

شكرررررررراً لكم جميعاً على المرور و المشاركة ,,

:))

[Jordan_Eyes]

http://www.stoptalk.net/images/thankyou.jpg

[Jordan_Eyes]

أنا على أتم الاستعداد لتقديم المساعده بهذا المجال ,,, :)