تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اضافة سكربت في مشروع فيجوال بيسك
#1
سلام عليكم
انا عندي مشروع كامل فيجوال بيسك على قاعدة البيانات sql sever 
ولقد قمت بعمل سكريب لقاعدة البيانات
ولكم كيف يتم تحميل سكريب للمشروع
..
للتوضيح لو عملت بوتن اضافة قاعدة بيانات جديدة في مشروع .. كيف يتم تشغيل سكريب
..
انا عايز المستخدم البرنامج عند ضغط على زر اضافة قاعدة بيانات يتم البرنامج لوحده اضافة جداول و لفيو



...
وشكرا سلفا
الرد
تم الشكر بواسطة: alaaahamd , alaaahamd
#2
http://vb4arb.com/vb/showthread.php?tid=33109
وعليكم السلام يمكنك مشاهده هذا الرابط
الرد
#3
سلام عليكم

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

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

مثال :

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

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



وشكرا


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة: asemshahen5
#4
[VB.NET] كيفية عمل تعدد الشركات في البرنامج المحاسبي .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: Alaamakkawi , mohamedahmed1 , ابراهيم ايبو
#5
شكرا لك
بس انا عندي اسماء جداول و 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(StrSQLcon)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
   End Sub

وشكرا اليك
الرد
تم الشكر بواسطة: asemshahen5
#6
لو انك قرات الموضوع من اوله الى اخره بتمعن لوجدت هذا الكود في المشاركة رقم 11 :

PHP كود :
#Region "Creat Database And Table From Sql Scrpt"
 
   'يقرأ ملفات السكول سيرفر من ملفات التكست الموجودة في مسار البرنامج'
 
   Public Sub ExecutesqlFile(ByVal sqlFile As StringDatabaseName 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.MessageMsgBoxStyle.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 , ابو روضة
#7
شكرا اليك كتيرررررررررررررررررررررررررررررررررر
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة عند ربط اكسس به دوال اجرائية بالفيجوال بيسك هيثم_هيثم 4 245 24-11-20, 03:01 PM
آخر رد: هيثم_هيثم
  ما الفرق بين لغة Java و الفيجوال بيسك؟ Hazem1 1 89 20-11-20, 11:54 PM
آخر رد: اسامه الهرماوي
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 693 16-11-20, 12:10 AM
آخر رد: sherf
  كيفية اضافة مشغل mpv بداخل الفورم ميدو الفنان 18 437 08-11-20, 09:48 PM
آخر رد: ميدو الفنان
  [VB.NET] مساعدة في اضافة drm ل browser trakktour 0 75 08-11-20, 12:48 AM
آخر رد: trakktour
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 142 08-11-20, 12:17 AM
آخر رد: برحوت
  عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql khowla.goma 1 202 02-11-20, 02:52 AM
آخر رد: اسامه الهرماوي
  [VB.NET] برنامج اقساط على الفجوال بيسك 2010 وقاعده بيانات سيكوال سيرفر 2008 shawky ahmed 2 404 31-10-20, 06:03 PM
آخر رد: kebboud
  [VB.NET] هل هناك مشغلات تعمل علي فيجوال بيسك غير vlc & media player` ميدو الفنان 6 284 30-10-20, 07:01 PM
آخر رد: ميدو الفنان
  [VB.NET] كيفية اضافة drm لمتصفح geckofx لسبسيب 2 165 27-10-20, 02:51 PM
آخر رد: لسبسيب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم