سلام عليكم
انا عندي مشروع كامل فيجوال بيسك على قاعدة البيانات sql sever
ولقد قمت بعمل سكريب لقاعدة البيانات
ولكم كيف يتم تحميل سكريب للمشروع
..
للتوضيح لو عملت بوتن اضافة قاعدة بيانات جديدة في مشروع .. كيف يتم تشغيل سكريب
..
انا عايز المستخدم البرنامج عند ضغط على زر اضافة قاعدة بيانات يتم البرنامج لوحده اضافة جداول و لفيو
شكرا لك
بس انا عندي اسماء جداول و stored procedures كثير جدا
هل يوجد طريقة غير هي Sub CreateTable(Dgv As DataGridView) Dim StrSQL As String = "CREATE TABLE [dbo].[CompanyName](" _ & "ID int Not Null," _ & "CompanyName nvarchar(255) Not Null," _ & "StartDate date Not Null," _ & "EndDate date Not Null," _ & "CompanyCase bit Not Null," _ & "ServerName nvarchar(255) Not Null," _ & "DatabaseName nvarchar(255) Not Null" _ & ") ON [PRIMARY]" Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, con) Dim dt As New DataTable
da.Fill(dt) End Sub
لو انك قرات الموضوع من اوله الى اخره بتمعن لوجدت هذا الكود في المشاركة رقم 11 :
PHP كود :
#Region "Creat Database And Table From Sql Scrpt" 'يقرأ ملفات السكول سيرفر من ملفات التكست الموجودة في مسار البرنامج' Public Sub ExecutesqlFile(ByVal sqlFile As String, DatabaseName As String) Using connection As New SqlClient.SqlConnection("Server =(local);database=" & DatabaseName & ";integrated security=true") If connection.State = ConnectionState.Closed Then connection.Open() Dim sql As String = "" Using strm As FileStream = File.OpenRead(sqlFile) Dim reader As New StreamReader(strm) sql = reader.ReadToEnd() End Using Dim regex As New RegularExpressions.Regex("^GO", RegexOptions.IgnoreCase Or RegexOptions.Multiline) Dim lines As String() = regex.Split(sql) Dim transaction As SqlClient.SqlTransaction = connection.BeginTransaction() Using cmd As SqlClient.SqlCommand = connection.CreateCommand() cmd.Connection = connection cmd.Transaction = transaction For Each line As String In lines If line.Length > 0 Then cmd.CommandText = line cmd.CommandType = CommandType.Text Try cmd.ExecuteNonQuery() Catch generatedExceptionName As SqlClient.SqlException MsgBox(generatedExceptionName.Message, MsgBoxStyle.Critical, "") transaction.Rollback() Throw End Try End If Next End Using transaction.Commit() If connection.State = ConnectionState.Open Then connection.Close() End Using End Sub #End Region
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر