دورة الدوت نت
الدرس 18- ربط قاعدة بيانات sql مع -vb.net وتنفيذ
جمل إستعلام - الوضع المتصل
--- السلام عليكم ورحمة الله وبركاته ---
أولا :
قم بإنشاء قاعدة بيانات وسمها mydatabase ( تم شرح الطريقة في الدرس
17 )...
ثم قم بإنشاء جدول بها وسمه mytable وضع فيه
عواميد كالتالي...
العمود - الإسم - نوع البيانات
1 - FirstName
- نصية nchar(10)
2 - Age
- رقم bigint
الان قم بعرض بيانات الجدول عن طريق RightClick من ال Mouse على الجدول
ثم إختر Show Table Data ثم إبدأ بوضع البيانات كالتالي...
طارق - 15
إسمك - عمرك وهكذا ....
ثانيا... ربط قاعدة البيانات مع ال vb.net
أولا قم بإستيراد المجال:
System.Data.SqlClient
الان ضع Button
على الفورم وضع أيضا listbox
...
ثم إكتب في الكود الخاص بالحدث Click لل button1 ...
vb.net
Dim cn As New SqlConnection
cn.ConnectionString = "Data
Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\TD\Documents\mydatabase.mdf;Integrated
Security=True;Connect Timeout=30;User Instance=True"
Dim mycmd As String = "select FirstName,Age from
mytable"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
Dim myreader As SqlDataReader = cmd.ExecuteReader
While myreader.Read()
ListBox1.Items.Add("firstname: " +
myreader("FirstName") + " Age: " +
myreader("Age").ToString)
End While
cn.Close()
myreader.Close()
شرح الكود السابق...
أولا:
vb.net:
Dim cn As New SqlConnection
cn.ConnectionString = "Data
Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\TD\Documents\mydatabase.mdf;Integrated
Security=True;Connect Timeout=30;User Instance=True"
هنا قمنا بتعريف الإتصال الخاص بقاعدة البيانات
mydatabase ...
vb.net
:
Dim mycmd As String = "select FirstName,Age from
mytable"
هنا قمنا بتعريف متغير من نوع String يحوي على
نص جملة الإستعلام...
vb.net
:
كود:
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
هنا قمنا بتعريف ال Command الذي سوف نرسله لقاعدة البيانات وفتح الإتصال...
vb.net :
كود:
Dim myreader As SqlDataReader = cmd.ExecuteReader
الان قمنا بتعريف قارئ للبيانات علما أن
أنواع القوارئ هي...
ExecuteReader:
في حال كان الناتج عدد كبير من البيانات...
ExecuteNonQuery:
في حال لا يوجد أي قيمة مرجعة مثل عمل update
أو delete
...
ExecuteScalar
: في حال كان لا يوجد إلا قيمة مرجعة واحدة مثل الإسم الأول مثلا...
ExecuteXmlReader
: لأخذ الناتج على شكل XML
...
الكود التالي...
While myreader.Read()
ListBox1.Items.Add("firstname: " +
myreader("FirstName") + " Age: " +
myreader("Age").ToString)
End While
قراءة البيانات الناتجة كما في الشكل السابق...
cn.Close()
myreader.Close()
إغلاق كل شيئ تم إستخدامه وهو الإتصال والقارئ...
الان نكون قد بدأنا بأساسيات ربط قواعد
البيانات...
إلى اللقاء في الدرس القادم إن شاء الله...
ليست هناك تعليقات:
إرسال تعليق