السلام عليكم ورحمة الله وبركاته
في هذا الدرس إن شاء الله ندرس سويا كيفية إنشاء قواعد البيانات sql server بواسطة viualbasic.net
وكذلك إنشاء الجداول
والاستعلامات والعلاقات وكل ما يتعلق بقواعد البيانات
أولا إنشاء قاعدة البيانات
ولعمل ذلك نقوم بعمل الكود التالي
في البداية نقوم باستدعاء المكتبة التالية
Imports System.Data.SqlClient
ثم نقوم بعمل التعريفات العامة التالية
Dim sql As String
Dim cs As New SqlConnection
Dim cm As New SqlCommand
وأخيرا نقوم بكتابة الكود التالي في زر إنشاء قاعدة البيانات
sql = "Server=(local); DataBase=; Integrated Security=SSPI"
Dim sqlStatement As String = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE Name = 'Data_Base_Name')DROP DATABASE Data_Base_Name CREATE DATABASE Data_Base_Name"
cs = New SqlConnection(sql)
cm = New SqlCommand(sqlStatement, cs)
cs.Open()
cm.ExecuteNonQuery()
cs.Close()الشرح
sql = "Server=(local); DataBase=; Integrated Security=SSPI"
يتم الاتصال بالسيرفر المحلي وذلك بلغة sql وتحديد نوع الحماية وإسناد ذلك إلى المتغير النصي sql
Dim sqlStatement As String = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE Name = 'Data_Base_Name')DROP DATABASE Data_Base_Name CREATE DATABASE Data_Base_Name"
في هذا الجزء يتم الاستعلام عن قاعدة البيانات المطلوبة فإذا لم تكن موجودة يتم إنشائها أما إذا كانت موجودة فيتم حذفها وإنشائها من جديد
cs = New SqlConnection(sql)
cm = New SqlCommand(sqlStatement, cs)
cs.Open()
cm.ExecuteNonQuery()
cs.Close()يتم بعد ذلك إسناد قيمة الاتصال الذي وضعناه في المتغير sql إلى متغير الاتصال عندنا cs ثم نعطي نعطي قيمة الاستعلام الذي عملناه في السطر الماضي إلى command الذي أعطيناه اسم cm
ثم نقوم بفتح الاتصال بالسيرفر وتنفيذ الاستعلام وأخيرا غلق الاستعلام
وبذلك نكون قد أنشأنا قاعدة البيانات وفيما بعد سنقوم بإنشاء الجداول وباقي مكونات قاعدة البيانات إن شاء الله
