دخول

**boudyonline** · 17-07-16, 12:29 AM

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

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

**aliday03** · 18-07-16, 05:18 PM

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

**salah mansour** · 18-07-16, 11:25 PM

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

**ابو نجلاء** · 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

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

تحياتي

**salah mansour** · 19-07-16, 03:00 AM

(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** · 19-07-16, 10:48 AM

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

**Apollondz** · 23-07-16, 06:40 PM

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

**noro66** · 23-07-16, 10:29 PM

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

**aliday03** · 23-07-16, 11:05 PM

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

**Apollondz** · 24-07-16, 02:20 AM

ربنا يعاونك

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	دورة إنشاء برنامج مبيعات متكامل	ملهمـ	225	134,228	29-02-24, 04:12 AM آخر رد: عصام نت
	[VB.NET] دورة لانشاء برنامج ادارة مدارس مع قاعدة بيانات Sql	aljzazy	0	167	17-02-24, 05:09 PM آخر رد: aljzazy
	[VB.NET] برنامج صانع الاكواد الاصدار الرابع	aljzazy	31	33,791	15-02-24, 02:45 PM آخر رد: ausama.balaid
	دورة كيفية تصميم برنامج محاسبة VB.NET+SQL	محاسب يوسف	7	36,981	01-08-23, 05:25 PM آخر رد: ibrahimibrahim
	[اقتراح] استفسار انشاء برنامج الفاتوره الالكترونيه	asseriano	3	3,520	26-07-23, 07:43 PM آخر رد: ibrahimibrahim
	[VB.NET] برنامج صانع الاكواد لقواعد بيانات نوع الاكسس	aljzazy	17	26,077	23-02-23, 03:49 AM آخر رد: mohamed81
	[كورس] دورة تصميم وبرمجة برنامج صانع الاكواد	aljzazy	1	1,088	03-01-23, 09:24 PM آخر رد: Taha Okla
	[سلسلة تعليمية] دورة انشاء برنامج مبيعات شامل فيجوال + قاعدة بيانات SQL	aljzazy	12	14,342	24-10-22, 02:06 AM آخر رد: b97er
	[كورس] دورة انشاء برنامج ادارة المطاعم فيجوال بيسك وقاعدة بيانات sql	aljzazy	2	3,436	15-05-22, 10:32 PM آخر رد: ابراهيم ايبو
	[درس فيديو] عمل برنامج مبيعات	اسامه الهرماوي	13	10,284	18-04-22, 05:47 AM آخر رد: lionexxd