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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصميم مشروع لاختار اسم MOHAMMED ALZWI 2 82 25-03-24, 01:32 PM
آخر رد: MOHAMMED ALZWI
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
  تحويل مشروع من 2008 الي 2015 atefkhalf2004 0 259 23-11-23, 03:10 PM
آخر رد: atefkhalf2004

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


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