26-10-24, 02:38 AM
26-10-24, 03:38 PM
توجد عدة أمثلة تتحدث عن نفس هذا الموضوع
حاول استخدام البحث في هذا المنتدى لتحصل على المشاركات التي تناسبك
حاول استخدام البحث في هذا المنتدى لتحصل على المشاركات التي تناسبك
26-10-24, 06:43 PM
29-10-24, 08:37 PM
السلام عليكم
نعم، يمكنك بالتأكيد إنشاء سكريبت كامل لإنشاء قاعدة بيانات مع الجداول والإجراءات المخزنة والدوال وغيرها باستخدام Visual Basic وتنفيذه دفعة واحدة.
إليك الخطوات الأساسية مع مثال لكيفية القيام بذلك:
1. بناء سلسلة نصية تحتوي على سكريبت SQL كامل:
استخدم SqlCommand لتنفيذ سكريبت SQL.
نعم، يمكنك بالتأكيد إنشاء سكريبت كامل لإنشاء قاعدة بيانات مع الجداول والإجراءات المخزنة والدوال وغيرها باستخدام 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")
استخدم 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