[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
سبحان الله من الدرس الاول الى الدرس الرابع كان الخط صغيرا و اشتكى عدة إخوة من هدا المشكل
في الدرس الخامس بالدات كبرت الخط
المهم اين وقع لك المشكل حتى أساعدك
لان السورس الكود مش هقدر أنزلوا لغاية في نفسي و هي
انا عايز الدرس يتحفظ في الدماغ
بمعنى لما تتفرج على الفيديو هتنقل الكود في ورقة
و بعدين تدخل الكود لمشروعك عبر الكيبورد
و هتحقق فيه لو كان خطأ
يعني الكود مر معاك ثلاث مرات أي حفظته
و هده غايتي
السلسلة تعليمية و انا كل من شاهد الفيديوهات يفهم و يتعلم
قلي المشكل عندك فين و انا هساعدك