[Alaamakkawi]

سلام عليكم
انا عندي مشروع كامل فيجوال بيسك على قاعدة البيانات sql sever 
ولقد قمت بعمل سكريب لقاعدة البيانات
ولكم كيف يتم تحميل سكريب للمشروع
..
للتوضيح لو عملت بوتن اضافة قاعدة بيانات جديدة في مشروع .. كيف يتم تشغيل سكريب
..
انا عايز المستخدم البرنامج عند ضغط على زر اضافة قاعدة بيانات يتم البرنامج لوحده اضافة جداول و لفيو



...
وشكرا سلفا

[alshandodi]

http://vb4arb.com/vb/showthread.php?tid=33109
وعليكم السلام يمكنك مشاهده هذا الرابط

[Alaamakkawi]

سلام عليكم

كيف يمكن اضافة button  في مشروع عند الضغط عليه يتم انشاء قاعدة البيانات و يقوم بجلب سكربت 

الذي تم بحفظ في ملفات المشروع

مثال :

في برنامج الامين للمحاسبة عند فتح البرنامج و دخلو الى ملف ثم جديد 

يقوم البرنامج بانشاء قاعدة البيانات و سكربت ( انشاء جداول و العلاقات و و استعلامات )



وشكرا

[asemshahen5]

[VB.NET] كيفية عمل تعدد الشركات في البرنامج المحاسبي .

[Alaamakkawi]

شكرا لك
بس انا عندي اسماء جداول و 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

وشكرا اليك

[asemshahen5]

لو انك قرات الموضوع من اوله الى اخره بتمعن لوجدت هذا الكود في المشاركة رقم 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 


[Alaamakkawi]

شكرا اليك كتيرررررررررررررررررررررررررررررررررر