سلام عليكم
انا عندي مشروع كامل فيجوال بيسك على قاعدة البيانات sql sever
ولقد قمت بعمل سكريب لقاعدة البيانات
ولكم كيف يتم تحميل سكريب للمشروع
..
للتوضيح لو عملت بوتن اضافة قاعدة بيانات جديدة في مشروع .. كيف يتم تشغيل سكريب
..
انا عايز المستخدم البرنامج عند ضغط على زر اضافة قاعدة بيانات يتم البرنامج لوحده اضافة جداول و لفيو
...
وشكرا سلفا
سلام عليكم
كيف يمكن اضافة button في مشروع عند الضغط عليه يتم انشاء قاعدة البيانات و يقوم بجلب سكربت
الذي تم بحفظ في ملفات المشروع
مثال :
في برنامج الامين للمحاسبة عند فتح البرنامج و دخلو الى ملف ثم جديد
يقوم البرنامج بانشاء قاعدة البيانات و سكربت ( انشاء جداول و العلاقات و و استعلامات )
وشكرا
شكرا لك
بس انا عندي اسماء جداول و 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
شكرا اليك كتيرررررررررررررررررررررررررررررررررر