المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الدرس 19: ربط قاعدة بيانات accessمع c#,vb.net وتنفيذ جمل إستعلام - الوضع المتصل...


khaledbelal
02-13-2010, 03:39 AM
السلام عليكم ورحمة الله وبركاته...
*** ملاحظة : الفرق بين هذا الدرس والدرس 18 هو قاعدة البيانات المستخدمة فقط ***


أولا :

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

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

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

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




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

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

System.Data.OleDb;

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

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

c#:

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 :

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:

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 :

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

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

vb.net :

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

c# :

OleDbCommand mysqlcmd = new OleDbCommand(mycmd, cn);
cn.Open();

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

vb.net :

Dim myreader As OleDbDataReader = cmd.ExecuteReader

c# :

OleDbDataReader myreader = loecmd.ExecuteReader();

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



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

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

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

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


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

vb.net:

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

c# :

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

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


vb.net :

myreader.Close()
cn.Close()

c# :

myreader.Close();
cn.Close();

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


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

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


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

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