تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشروع مرفق يبين كيفية التعامل مع Datagridview lkaam 4 2,372 منذ 5 ساعة مضت
آخر رد: sulim
  مشكلة في كود اضافة الى sql 2012 moh developer 12 198 منذ 5 ساعة مضت
آخر رد: ابراهيم ايبو
  هل يمكن اضافة اشعار صوتى mostafa nada 5 79 , 03:48 PM
آخر رد: enjoy
  مشكلة بعد استخراج مشروع رسالة خطء chankar 13 245 20-09-20, 09:34 PM
آخر رد: chankar
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 319 20-09-20, 08:46 PM
آخر رد: jam3h
  [VB.NET] طباعة صورة من الإكسيس بأستخدام الفيجول بيسك 2010 رامى محمد 3 116 20-09-20, 03:12 PM
آخر رد: رامى محمد
Exclamation [VB.NET] مشكلة بعد استخراج مشروع إدارة المكتبة abarrak 0 42 20-09-20, 11:43 AM
آخر رد: abarrak
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 106 16-09-20, 03:57 PM
آخر رد: رامى محمد
  كيف يتم عمل قناع ادخال للتيسكت بوكس في الفيجوال بيسك دوت نت؟ adnan gharbi 2 92 15-09-20, 02:53 PM
آخر رد: adnan gharbi
  هل استطيع وضع مجلد فيه برنامج وملفاته dll معه وادمجن داخل ادات في فيجوال بيسك jam3h 0 58 13-09-20, 11:14 PM
آخر رد: jam3h

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


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