[غزة العزة]

لإنشاء قاعدة بيانات SQL Server جديدة وإنشاء جداول داخلها:

PHP كود :

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        ' معلومات الاتصال بقاعدة البيانات (لا تحتوي على اسم قاعدة البيانات)
        Dim connectionString As String = "Server=your_server_name;Integrated Security=true;"
        Dim databaseName As String = "NewDatabase"

        Try
            ' إنشاء قاعدة البيانات
            Using connection As New SqlConnection(connectionString)
                connection.Open()

                Dim createDatabaseQuery As String = $"CREATE DATABASE {databaseName}"

                Using command As New SqlCommand(createDatabaseQuery, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Database created successfully.")
                End Using
            End Using

            ' سلسلة الاتصال مع اسم قاعدة البيانات الجديدة
            Dim connectionStringWithDb As String = $"Server=your_server_name;Database={databaseName};Integrated Security=true;"

            ' إنشاء الجداول في قاعدة البيانات الجديدة
            Using connection As New SqlConnection(connectionStringWithDb)
                connection.Open()

                ' استعلام لإنشاء الجدول الأول
                Dim createTable1Query As String = "
                    CREATE TABLE Customers (
                        CustomerID INT PRIMARY KEY IDENTITY(1,1),
                        FirstName NVARCHAR(50),
                        LastName NVARCHAR(50),
                        Email NVARCHAR(100)
                    )"

                Using command As New SqlCommand(createTable1Query, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Table 'Customers' created successfully.")
                End Using

                ' استعلام لإنشاء الجدول الثاني
                Dim createTable2Query As String = "
                    CREATE TABLE Orders (
                        OrderID INT PRIMARY KEY IDENTITY(1,1),
                        OrderDate DATETIME,
                        CustomerID INT,
                        Amount DECIMAL(18, 2),
                        FOREIGN KEY (CustomerID) REFERENCES Customers(CustomerID)
                    )"

                Using command As New SqlCommand(createTable2Query, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Table 'Orders' created successfully.")
                End Using
            End Using
        Catch ex As Exception
            Console.WriteLine("An error occurred: " & ex.Message)
        End Try
    End Sub
End Module 


الشرح:

سلسلة الاتصال الأولى:



Server=your_server_name;Integrated Security=true; تستخدم لإنشاء الاتصال بالخادم دون تحديد قاعدة بيانات.

إنشاء قاعدة البيانات:



فتح اتصال بالخادم وإنشاء قاعدة بيانات جديدة باستخدام استعلام CREATE DATABASE.

سلسلة الاتصال الثانية:



بعد إنشاء قاعدة البيانات، سلسلة الاتصال يتم تعديلها لتتضمن اسم قاعدة البيانات الجديدة.

إنشاء الجداول:



فتح اتصال جديد بقاعدة البيانات الجديدة.

إنشاء الجدول الأول Customers باستخدام استعلام CREATE TABLE.

إنشاء الجدول الثاني Orders باستخدام استعلام CREATE TABLE مع تعريف علاقة المفتاح الأجنبي (FOREIGN KEY) إلى جدول Customers.

ملاحظة:

تأكد من استبدال your_server_name باسم خادم SQL Server الخاص بك.

تأكد من أن لديك الصلاحيات اللازمة لإنشاء قاعدة بيانات وجداول على خادم SQL Server.

كيفية تشغيل الكود:

أنشئ مشروع جديد في Visual Studio (مثل مشروع Console App باستخدام VB.NET).

أضف الكود أعلاه إلى ملف Module1.vb.

قم بتعديل سلسلة الاتصال بما يتناسب مع إعدادات خادم SQL Server الخاص بك.

قم بتشغيل البرنامج.
سيقوم البرنامج بإنشاء قاعدة بيانات جديدة باسم NewDatabase، ثم إنشاء جدولين Customers وOrders داخل هذه القاعدة.