منتدى رياض الجنة - Riad Al-Ganah - الدرس 19: ربط قاعدة بيانات accessمع c#,vb.net وتنفيذ جمل إستعلام

السلام عليكم ورحمة الله وبركاته...
*** ملاحظة : الفرق بين هذا الدرس والدرس 18 هو قاعدة البيانات المستخدمة فقط ***

أولا :

قم بإنشاء قاعدة بيانات وسمها mydata**** ( تم شرح الطريقة في الدرس 17 )...
ثم قم بإنشاء جدول بها وسمه mytable وضع فيه عواميد كالتالي...

العمود - الإسم - نوع البيانات
1 - FirstName - نصية nchar(10)
2 - Age - رقم bigint

الان قم بعرض بيانات الجدول عن طريق RightClick من ال Mouse على الجدول ثم إختر Show Table Data ثم إبدأ بوضع البيانات كالتالي...

طارق - 15
إسمك - عمرك وهكذا ....

ثانيا... ربط قاعدة البيانات مع ال c#,vb.net

أولا قم بإستيراد المجال:

كود PHP:


		
			
System.Data.OleDb;

الان ضع Button على الفورم وضع أيضا listbox ...

ثم إكتب في الكود الخاص بالحدث Click لل button1 ...

c#:

كود PHP:


		
			
OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TD\********s\mydata****.mdb");

string mycmd = "select FirstName,Age from mytable";

OleDbCommand loecmd = new OleDbCommand(mycmd, cn);

cn.Open();

OleDbDataReader myreader = loecmd.ExecuteReader();

while (myreader.Read())

{

listBox1.Items.Add("firstname: " + myreader["FirstName"].ToString() + " Age: " + myreader["Age"].ToString());

}

cn.Close();

vb.net :

كود PHP:


		
			
Dim cn As New OleDbConnection

cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\TD\********s\mydata****.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Dim mycmd As String = "select FirstName,Age from mytable"

Dim cmd As OleDbCommand = New OleDbCommand(mycmd, cn)

cn.Open()

Dim myreader As OleDbDataReader = cmd.ExecuteReader

While myreader.Read()

ListBox1.Items.Add("firstname: " + myreader("FirstName") + " Age: " + myreader("Age").ToString)

End While

cn.Close()

شرح الكود السابق...
أولا:
vb.net:

كود PHP:


		
			
Dim cn As New OleDbConnection

cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\TD\********s\mydata****.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

c#:

OleDbConnection cn = new OleDbConnection(@"Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\TD\* *******s\mydata****.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True");

هنا قمنا بتعريف الإتصال الخاص بقاعدة البيانات mydata**** ...

vb.net :

كود PHP:


		
			
Dim mycmd As String = "select FirstName,Age from mytable"

هنا قمنا بتعريف متغير من نوع String يحوي على نص جملة الإستعلام...

vb.net :

كود PHP:


		
			
Dim cmd As OleDbCommand = New OleDbCommand(mycmd, cn)

cn.Open()

c# :

كود PHP:


		
			
OleDbCommand mysqlcmd = new OleDbCommand(mycmd, cn);

cn.Open();

هنا قمنا بتعريف ال Command الذي سوف نرسله لقاعدة البيانات وفتح الإتصال...

vb.net :

كود PHP:


		
			
Dim myreader As OleDbDataReader = cmd.ExecuteReader

c# :

كود PHP:


		
			
OleDbDataReader myreader = loecmd.ExecuteReader();

الان قمنا بتعريف قارئ للبيانات علما أن أنواع القوارئ هي...

ExecuteReader: في حال كان الناتج عدد كبير من البيانات...

ExecuteNonQuery: في حال لا يوجد أي قيمة مرجعة مثل عمل update أو delete ...

ExecuteScalar : في حال كان لا يوجد إلا قيمة مرجعة واحدة مثل الإسم الأول مثلا...

ExecuteXmlReader : لأخذ الناتج على شكل XML ...

الكود التالي...

vb.net:

كود PHP:


		
			
While myreader.Read()

ListBox1.Items.Add("firstname: " + myreader("FirstName") + " Age: " + myreader("Age").ToString)

End While

c# :

كود PHP:


		
			
while (myreader.Read())

{

listBox1.Items.Add("firstname: " + myreader["FirstName"].ToString() + " Age: " + myreader["Age"].ToString());

}

قراءة البيانات الناتجة كما في الشكل السابق...

vb.net :

كود PHP:


		
			
myreader.Close()

cn.Close()

c# :

كود PHP:


		
			
myreader.Close();

cn.Close();

إغلاق كل شيئ تم إستخدامه وهو الإتصال والقارئ...

الان نكون قد بدأنا بأساسيات ربط قواعد البيانات...

بإذن الله في الدرس القادم سوف نطبق جمل إستعلام متقدمة والتعلم كيف عمل insert,update,delete إلى ما هنالك...

إلى اللقاء في الدرس القادم إن شاء الله...

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