دورة الدوت نت
الدرس 20- تنفيذ جمل الإستعلام insert-update-delete
السلام عليكم ورحمة الله وبركاته
اليوم سوف يكون الدرس متخصص بجمل sql من أنواعها...
أولا : تجهيز المشروع...
أولا قم بإنشاء قاعدة بيانات سمها mydatabase ثم قم بعمل
جدول سمه mytable وضعه به عمود إسمه FirstName
نوع بياناته nchar
وعمود إسمه Age
نوع بياناته bigint
...
الان قم بإنشاء الإتصال كما ذكرنا سابقا
حيث يكون كود الإتصال كاملا...
قم باستيراد المجال : System.Data.SqlClient
أولا كود الإضافة insert ...
لنفترض الان أننا نريد أن نضيف للجدول mytable موظف إسمه
( tarek) عمره ( 15 ) ...
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 = "insert into mytable values
('tarek','15')"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
2- update
... لنفترض أننا نود تعديل عمر الموظف الذي يدعى tarek
إلى 100 سنة يكون الكود:
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 = "update mytable set Age =
100 where FirstName = 'tarek'"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
3-
delete والان لنفترض
أنك تود حذفي ( tarek
) يكون الكود:
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 = "delete from
mytable where FirstName = 'tarek'"
Dim cmd As SqlCommand = New
SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
ملاحظة : يمكنك وضع شروط الحذف أو التعديل
كيف ما تشاء ...مثلا...
كود:
delete from mytable where Age > 15
حيث في هذه الحالة سوف يتم حذف كل شخص عمره
فوق ال 15 ...
- إنشاء جدول...
جدول إسمه tb1
يحول على name من نوع nchar(10)
و age من نوع
bigint الكود:
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 = "create table tb1 (name
nchar(10),age bigint);"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
لحذف الجدول الذي قمنا به ...
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 = "drop table tb1
cascade"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
إضافة حقول إلى جدول ما ...
بفرض أننا نريد أن نضيف عامود brithday إلى mytable يحوي على
يوم الميلاد ..
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 = "alter table mytable add
brithday datetime"
Dim cmd As SqlCommand = New SqlCommand(mycmd, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
إلى اللقاء في الدرس القادم إن شاء الله
.
مع تحياتي / عبدالقادر البعداني
ليست هناك تعليقات:
إرسال تعليق