[boudyonline]

مشكور ... وبارك الله فيك

ولكن كما ذكر الأخ Salah فإذا أمكن ادماج الكود في ملف نصي مع كل درس

[aliday03]

السلام عليكم ايها الاخوة الكرام
أيها الخ الكريم salah mansour
سبحان الله من الدرس الاول الى الدرس الرابع كان الخط صغيرا و اشتكى عدة إخوة من هدا المشكل
في الدرس الخامس بالدات كبرت الخط
المهم اين وقع لك المشكل حتى أساعدك
لان السورس الكود مش هقدر أنزلوا لغاية في نفسي و هي
انا عايز الدرس يتحفظ في الدماغ
بمعنى لما تتفرج على الفيديو هتنقل الكود في ورقة
و بعدين تدخل الكود لمشروعك عبر الكيبورد
و هتحقق فيه لو كان خطأ
يعني الكود مر معاك ثلاث مرات أي حفظته
و هده غايتي
السلسلة تعليمية و انا كل من شاهد الفيديوهات يفهم و يتعلم
قلي المشكل عندك فين و انا هساعدك

[salah mansour]

اخى الحبيب aliday03 اولاً شكراً على تفاعلك معى بالنسبة لطلبى ..اود ان اعرفك منذ البداية هذه طريقتى...استمع للشرح جيداً وبدقة لان هذا هو المهم فى الموضوع لانى استفيد منه كثيراً ثم بعد ذلك اكتب الكود خطوة بخطوة كما تفعل ثم اجرب ايضا خطوة خطوة وهكذا فى كل الفيديوهات ..لكن المشكلة فى الدرس الخامس الجزء الاول بالرغم من كتابة الكود صحيح كما تفضلت الا ان النتائج لا تعمل كما ينبغىوسوف ارفع لك صورة باذن الله اما ان حضرتك لا تريد نشر السورس كود فهذا راى يحترم لا جدال فيه..مرة اخرى جزاك الله خيراً كثيراً ونفعك بما علمك وعلمك ما ينفعك

---

تفضل اخى هذا كود الاجراء الخاص بجملة insert كاملاً

Sub insertstoredorocedurs(ByVal txtquery As TextBox, ByVal dgvtables As DataGridView, ByVal dgvfields As DataGridView)
        txtquery.Text = ""
        Dim objcn As New SqlConnection(connectionstring)
        serverconnection = New ServerConnection(objcn)
        Dim server As New Server(serverconnection)
        Dim strtablename As String = dgvtables.CurrentRow.Cells(0).Value.ToString()
        strSql = "----------CREATE stored procedure insert----------" & Environment.NewLine & "Create PROCEDURE Insert " & strtablename & Environment.NewLine
        keycount = -1
        For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
            keycount += 1
            If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
                ' strSql &= "@" & item.Name & " " & Environment.NewLine
                strSql &= String.Format("@(0) (1)", item.Name.ToString().Replace(" ", ""), item.DataType)
                If item.DataType.SqlDataType = SqlDataType.VarCharMax Then
                    strSql &= "(MAX)"
                ElseIf item.DataType.Name.ToUpper().Contains("CHAR") Then
                    strSql &= String.Format("((0))", item.DataType.MaximumLength)
                End If
                If keycount < dgvfields.Rows.Count - 1 Then
                    strSql &= ","
                Else
                    strSql &= ""
                End If
            End If
        Next item
        strSql &= "" & Environment.NewLine
        strSql &= String.Format("As (0) Insert Into (1)(", Environment.NewLine, strtablename)
        keycount = -1
        For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
            keycount += 1
            If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
                strSql &= item.ToString().Replace(" ", "")
                If keycount < dgvfields.Rows.Count - 1 Then
                    strSql &= ","
                Else
                    strSql &= ""
                End If
            End If
        Next item
        strSql &= ")" & Environment.NewLine
        strSql &= "values ("
        keycount = -1
        For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
            keycount += 1
            If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
                strSql &= "@" & item.ToString().Replace(" ", "")
                If keycount < dgvfields.Rows.Count - 1 Then
                    strSql &= ","
                Else
                    strSql &= ""
                End If
            End If
        Next
        strSql &= ")" & Environment.NewLine
        txtquery.Text += strSql & Environment.NewLine & Environment.NewLine
    End Sub
ومرفق صورة برنت سكرين بعد التنفيذ

(18-07-16, 05:18 PM)aliday03 كتب : السلام عليكم ايها الاخوة الكرام
أيها الخ الكريم salah mansour
سبحان الله من الدرس الاول الى الدرس الرابع كان الخط صغيرا و اشتكى عدة إخوة من هدا المشكل
في الدرس الخامس بالدات كبرت الخط
المهم اين وقع لك المشكل حتى أساعدك
لان السورس الكود مش هقدر أنزلوا لغاية في نفسي و هي
انا عايز الدرس يتحفظ في الدماغ
بمعنى لما تتفرج على الفيديو هتنقل الكود في ورقة
و بعدين تدخل الكود لمشروعك عبر الكيبورد
و هتحقق فيه لو كان خطأ
يعني الكود مر معاك ثلاث مرات أي حفظته
و هده غايتي
السلسلة تعليمية و انا كل من شاهد الفيديوهات يفهم و يتعلم
قلي المشكل عندك فين و انا هساعدك

[ابو نجلاء]

من باب المساعده ليس إلا تم تصحيح الكود وتبيان ذلك بالتعليقات داخل الكود

كود :

 Sub insertstoredorocedurs(ByVal txtquery As TextBox, ByVal dgvtables As DataGridView, ByVal dgvfields As DataGridView)
       txtquery.Text = ""
       Dim objcn As New SqlConnection(connectionstring)
       serverconnection = New ServerConnection(objcn)
       Dim server As New Server(serverconnection)
       Dim strtablename As String = dgvtables.CurrentRow.Cells(0).Value.ToString()
       'امسح المسافة التي بين جملة انسيرت واسم الجدول عشان ماتسبب لك مشكلة عند تخزينها في قاعدة البينات

       strsql = "----------CREATE stored procedure insert----------" & Environment.NewLine & "Create PROCEDURE Insert" & strtablename & Environment.NewLine
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' strSql &= "@" & item.Name & " " & Environment.NewLine
               'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
               strsql &= String.Format("@{0} {1}", item.Name.ToString().Replace(" ", ""), item.DataType)
               If item.DataType.SqlDataType = SqlDataType.VarCharMax Then
                   strSql &= "(MAX)"
               ElseIf item.DataType.Name.ToUpper().Contains("CHAR") Then
                   'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
                   strsql &= String.Format("({0})", item.DataType.MaximumLength)
               End If
               If keycount < dgvfields.Rows.Count - 1 Then
                   strSql &= ","
               Else
                   strSql &= ""
               End If
           End If
       Next item
       strsql &= "" & Environment.NewLine
       'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
       strsql &= String.Format("As {0} Insert Into {1}(", Environment.NewLine, strtablename)
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' قم بإضافة نيم بين كلمة ايتم وكلمة تو سترنق
               strsql &= item.Name.ToString().Replace(" ", "")
               If keycount < dgvfields.Rows.Count - 1 Then
                   strsql &= ","
               Else
                   strsql &= ""
               End If
           End If
       Next item
       strSql &= ")" & Environment.NewLine
       strSql &= "values ("
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' قم بإضافة نيم بين كلمة ايتم وكلمة تو سترنق
               strsql &= "@" & item.Name.ToString().Replace(" ", "")
               If keycount < dgvfields.Rows.Count - 1 Then
                   strsql &= ","
               Else
                   strsql &= ""
               End If
           End If
       Next
       strSql &= ")" & Environment.NewLine
       txtquery.Text += strSql & Environment.NewLine & Environment.NewLine
   End Sub

جرب الكود وبلغنا وش صار معك

تحياتي

[salah mansour]

(19-07-16, 02:46 AM)ابو نجلاء كتب : من باب المساعده ليس إلا تم تصحيح الكود وتبيان ذلك بالتعليقات داخل الكود

كود :

 Sub insertstoredorocedurs(ByVal txtquery As TextBox, ByVal dgvtables As DataGridView, ByVal dgvfields As DataGridView)
       txtquery.Text = ""
       Dim objcn As New SqlConnection(connectionstring)
       serverconnection = New ServerConnection(objcn)
       Dim server As New Server(serverconnection)
       Dim strtablename As String = dgvtables.CurrentRow.Cells(0).Value.ToString()
       'امسح المسافة التي بين جملة انسيرت واسم الجدول عشان ماتسبب لك مشكلة عند تخزينها في قاعدة البينات

       strsql = "----------CREATE stored procedure insert----------" & Environment.NewLine & "Create PROCEDURE Insert" & strtablename & Environment.NewLine
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' strSql &= "@" & item.Name & " " & Environment.NewLine
               'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
               strsql &= String.Format("@{0} {1}", item.Name.ToString().Replace(" ", ""), item.DataType)
               If item.DataType.SqlDataType = SqlDataType.VarCharMax Then
                   strSql &= "(MAX)"
               ElseIf item.DataType.Name.ToUpper().Contains("CHAR") Then
                   'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
                   strsql &= String.Format("({0})", item.DataType.MaximumLength)
               End If
               If keycount < dgvfields.Rows.Count - 1 Then
                   strSql &= ","
               Else
                   strSql &= ""
               End If
           End If
       Next item
       strsql &= "" & Environment.NewLine
       'دالة استرنق فورمات الارقام تكون داخل اقواس معكوفة{}
       strsql &= String.Format("As {0} Insert Into {1}(", Environment.NewLine, strtablename)
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' قم بإضافة نيم بين كلمة ايتم وكلمة تو سترنق
               strsql &= item.Name.ToString().Replace(" ", "")
               If keycount < dgvfields.Rows.Count - 1 Then
                   strsql &= ","
               Else
                   strsql &= ""
               End If
           End If
       Next item
       strSql &= ")" & Environment.NewLine
       strSql &= "values ("
       keycount = -1
       For Each item As Column In server.Databases(databasename).Tables(strtablename).Columns
           keycount += 1
           If dgvfields.Rows(keycount).Cells("Selected").Value = True Then
               ' قم بإضافة نيم بين كلمة ايتم وكلمة تو سترنق
               strsql &= "@" & item.Name.ToString().Replace(" ", "")
               If keycount < dgvfields.Rows.Count - 1 Then
                   strsql &= ","
               Else
                   strsql &= ""
               End If
           End If
       Next
       strSql &= ")" & Environment.NewLine
       txtquery.Text += strSql & Environment.NewLine & Environment.NewLine
   End Sub

جرب الكود وبلغنا وش صار معك

تحياتي

الاخ العزيز ابو نجلاء....بارك الله لك فى الدارين وجزاك خيراً كثيراً بالفعل تم عمل الكود بنجاح بعد التعديلات التى قمت بها ....اشكرك شكراً جزيلاً

[aliday03]

الحمد لله رب العالمين

[Apollondz]

مشكور عل ى الجهد المقدم و نتمنى أن تواصل و لا تباعد بين الحلقات إذ أمكن

[noro66]

سلام الله عليك واتمنى ان تكون في صحة جيدة ..أخي طال غيابك ونحن في شوق لعلمك ..أرجو منك ياأخي إن كنت متفرغا أن لا تطيل علينا غيابك ..دمت لخدمة الخيروشكرا.

[aliday03]

كنت في عطلة الصيف و قد رجعت للدار اليوم سأرتاح غدا و أباشر العمل في الحلقة السادسة إن شاء الله و شكرا جزيلا لك لدعمك

[Apollondz]

ربنا يعاونك