[aliday03]

السلام عليكم

نعم، يمكنك بالتأكيد إنشاء سكريبت كامل لإنشاء قاعدة بيانات مع الجداول والإجراءات المخزنة والدوال وغيرها باستخدام Visual Basic وتنفيذه دفعة واحدة.
إليك الخطوات الأساسية مع مثال لكيفية القيام بذلك:
1. بناء سلسلة نصية تحتوي على سكريبت SQL كامل:

• قم بإنشاء سلسلة نصية (String) في Visual Basic تحتوي على جميع أوامر SQL لإنشاء قاعدة البيانات، والجداول، والإجراءات المخزنة، والدوال، إلخ.
  
  كود :
  

  Dim script As New StringBuilder

' إضافة أمر إنشاء قاعدة البيانات
script.AppendLine("CREATE DATABASE MyDatabase;")
script.AppendLine("GO")

' إضافة أمر إنشاء جدول
script.AppendLine("USE MyDatabase;")
script.AppendLine("CREATE TABLE Employees (")
script.AppendLine("    EmployeeID INT PRIMARY KEY,")
script.AppendLine("    FirstName VARCHAR(50),")
script.AppendLine("    LastName VARCHAR(50)")
script.AppendLine(");")
script.AppendLine("GO")

' إضافة أمر إنشاء إجراء مخزن
script.AppendLine("CREATE PROCEDURE AddEmployee")
script.AppendLine("    @EmployeeID INT,")
script.AppendLine("    @FirstName VARCHAR(50),")
script.AppendLine("    @LastName VARCHAR(50)")
script.AppendLine("AS")
script.AppendLine("BEGIN")
script.AppendLine("    INSERT INTO Employees (EmployeeID, FirstName, LastName)")
script.AppendLine("    VALUES (@EmployeeID, @FirstName, @LastName)")
script.AppendLine("END;")
script.AppendLine("GO")
  
  
  

2. تنفيذ سكريبت SQL:
استخدم SqlCommand لتنفيذ سكريبت SQL.

كود :

Using connection As New SqlConnection(connectionString)
   connection.Open()

   ' بدء Transaction
   Using transaction As SqlTransaction = connection.BeginTransaction()
       Try
           ' إنشاء أمر SQL
           Using command As New SqlCommand(script.ToString(), connection, transaction)
               ' تنفيذ الأمر
               command.ExecuteNonQuery()
           End Using

           ' تنفيذ المعاملة
           transaction.Commit()

           MessageBox.Show("تم تنفيذ السكريبت بنجاح.")

       Catch ex As Exception
           ' التراجع عن المعاملة في حالة حدوث خطأ
           transaction.Rollback()

           MessageBox.Show($"حدث خطأ: {ex.Message}")
       End Try
   End Using
End Using