موضوع مثبت.
X
X
 
  • Filter
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة

    #21
    جزاك الله خير استاذي مافصرت ساحاول انشاء الله حتي اجد الحل
    تعليق

      #22
      اجمل انسان في الكون اشكرك علي مساعتدك الي شخص ولك جزيل الشكر والامتنان
      تعليق

        #23
        Originally posted by Abufahmi *

        من الصورة الكود سليم وما فيه اي خطأ !!! اسماء الجداول موجود بالقائمة (Table_Name) ابضغط عليها دبل كلك ويبحدث خطأ!!!!!!!!
        اخي ابو فهمي الحمد لله حليت المشكله وججدت الخطا في حرف T في عند الجلب الجدوال طلبت جلبها تحت اسم table _Name في الحقول طلبها بيTable _Name يعني فقط حرف t لكن
        اواجه مشكله بالدرس التاسع فعند طلبinsert الcption يعني فشل وlabبيعطي شويه وبختفي وعندتنفيذ الجمله التي تحتوي علي abufami مع اسم table تظهر عند اضافه بقيه الاجراءت الا يظهر ولا شي ارجو الافاد وشكرا لك مقدما
        تعليق

          #24
          اخي وكذلك update ايضا لا تاتي بنتجه عليtexqurey وstatus بيعطي فشل ماهو المشكل جزاك الله كل الخير
          تعليق

            #25
            ارجو الافاده
            تعليق

              #26
              بارك الله فيك أخي العزيز
              تعليق

                #27
                افديني جزاك الله خير
                تعليق

                  #28
                  يا اساتذي ارجو التفاعل لانو والله مالنا حدا غيرك ووفي ميزان حساناتك اوجه مشكله في الانسريت والابديت والسبب ان هذه العبار For Each field As Column In ser.Databases(db).Tables(strTable).Columns

                  الاتاتي باي قيمه عندم استعملها في الانسريت والابديت حتي في funtion insert حتي استبدلها بهي الحلقه For i As Integer = 0 To Dg.Rows.Count - 1
                  واستبدلتfield.DataType.Name ب ل Dg.Rows(i).Cells("Column_Name").Value.ToString() وستبدلت field.DataType. ب الDg.Rows(i).Cells("Data_Type").Value.ToString())
                  لكن هنالك مشكله في اني بهي العباره الاستطيع ارجاع الرقم الذي ياتي مع نوع المتغير يعني يطلع فقط varchar من دون رقم ارجو الافاده اجيرنا اجارنا الله من حر جهنم جزاك الله خير
                  تعليق

                    #29
                    Originally posted by Suliman1234 *
                    يا اساتذي ارجو التفاعل لانو والله مالنا حدا غيرك ووفي ميزان حساناتك اوجه مشكله في الانسريت والابديت والسبب ان هذه العبار For Each field As Column In ser.Databases(db).Tables(strTable).Columns

                    الاتاتي باي قيمه عندم استعملها في الانسريت والابديت حتي في funtion insert حتي استبدلها بهي الحلقه For i As Integer = 0 To Dg.Rows.Count - 1
                    واستبدلتfield.DataType.Name ب ل Dg.Rows(i).Cells("Column_Name").Value.ToString() وستبدلت field.DataType. ب الDg.Rows(i).Cells("Data_Type").Value.ToString())
                    لكن هنالك مشكله في اني بهي العباره الاستطيع ارجاع الرقم الذي ياتي مع نوع المتغير يعني يطلع فقط varchar من دون رقم ارجو الافاده اجيرنا اجارنا الله من حر جهنم جزاك الله خير
                    ما فهمت شيء والله
                    تعليق

                      #30
                      Originally posted by Abufahmi *

                      ما فهمت شيء والله
                      ياخي جمله insert والابديت الاتطلع معي بقيمه tex qure مع نو قيمهconstrin سليملهconnct sql يعني عندم اضغط insert اوupdat في cptionبيعطي فشل والا تظهر اي شي اي خلاصه الامر المشكله فيهي الجمله For Each field As Column In ser.Databases(db).Tables(strTable).Columns
                      الاتاتي بقيمه مثلا هنا
                      Public Sub InsertNoImage_SQL(Dg As DataGridView)
                      Try
                      conString = My.Settings.str.ToString().Trim()
                      Con = New SqlConnection(conString)
                      ServerCon = New ServerConnection(Con)
                      ser = New Server(ServerCon)
                      Dim strTable As String = My.Settings.TableName.ToString().Trim()
                      Dim db As String = My.Settings.DbSql.ToString().Trim()
                      Tx = "-- Abufahmi *********** Insert ***********" & Environment.NewLine
                      Tx += "Create Proc Insert_" & strTable & Environment.NewLine
                      يعني عندما انفذ هذا لوحده من دون بقيه الكود ينفذ وبيعطي هيك
                      -- Abufahmi *********** Insert ***********
                      Create Proc Insert_ مع اسم الجدول
                      لكن اضافه ابقيه الكود والذي يبدا من هي الجمله

                      Dim count As Integer = -1
                      For Each field As Column In ser.Databases(db).Tables(strTable).Columns
                      count += 1
                      ما بظهر والااي شي فيtextqeruy اظن هيك وضح اجيرنا اجراك الله من حر جهنم وجزاك الله الف خير
                      تعليق
                      Working...
                      X