تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود
#1
السلام عليكم
في المثال المرفق يظهر لي خطأ عند محاولة اجراء update  ارجو منكم أيها الأفاضل مساعدتي في اصلاحه و شكرا
علما ان الفضل يعود للسيدان alm2   و  سعود  في تعليمي كيفية الربط بين أكثر من جدول


.rar   UPDATE NET.rar (الحجم : 99.02 ك ب / التحميلات : 14)
الرد
تم الشكر بواسطة: حريف برمجة
#2
اعتقد غير tbl1 الى 1 كما اسميته فى قاعده البيانات
الرد
#3
أولا اسم الجدول غير موجود
ثانيا اسماء الحقول غير موجودة
حاةل ان تستخدم اسماء منطقية للحقول وليست حروف
Don't Be The Perfect one
be the right one
الرد
#4
جرب هذا التعديل
PHP كود :
   Private Sub Button14_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button14.Click
        
        While bs2
.Position " / " bs2.Count <> bs2.Count " / " bs2.Count
            While Val
(TextBox28.Text) <= Val(TextBox30.Text)
 
               While bs1.Position " / " bs1.Count <> bs1.Count " / " bs1.Count

                    If Trim
(TextBox2.Text) = Trim(TextBox21.TextThen

                        TextBox16
.Text TextBox18.Text
                        TextBox17
.Text TextBox19.Text
                        TextBox7
.Text TextBox20.Text
                        Me
.Refresh()
 
                       Dim tab1 As String
                        tab1 
Trim(TextBox28.Text)
 
                       ''Dim savInto As New OleDb.OleDbCommand("update tab1 set TextBox16.Text='" Trim(TextBox18.Text) & "',TextBox17.Text='" Trim(TextBox19.Text) & "',TextBox7.Text='" Trim(TextBox20.Text) & "'"conn)
 
                       Dim savInto As New OleDb.OleDbCommand(String.Format("update [{0}] set [P]=@1,[Q]=@2,[G]=@3"TextBox28.Text), conn)
 
                       savInto.Parameters.AddWithValue("@1"Trim(TextBox18.Text))
 
                       savInto.Parameters.AddWithValue("@2"Trim(TextBox19.Text))
 
                       savInto.Parameters.AddWithValue("@3"Trim(TextBox20.Text))


 
                       conn.Open()
 
                       savInto.ExecuteNonQuery()

 
                       conn.Close()

 
                   End If
 
                   Button2.PerformClick()
 
                   Me.Refresh()
 
               End While









 
               Button9.PerformClick()
 
               Me.Refresh()

 
           End While

 
           TextBox28.Text 1
            Button6
.PerformClick()

 
           Me.Refresh()
 
       End While








 
   End Sub 
الرد
#5
كل الشكر لكم جميعا ولمشاركاتكم
أخ بلدي لك شكر خاص و جاري التجربة ان شاء الله خير
الاخ عبد العزيز البسكري أتشرف باطلاعك على الموضوع و استبشر بوجودك
جزاكم الله عني كل خير
الرد
#6
(17-08-20, 01:48 AM)boudyonline كتب : أولا اسم الجدول غير موجود
ثانيا اسماء الحقول غير موجودة
حاةل ان تستخدم اسماء منطقية للحقول وليست حروف

الأخ   boudyonline السلام عليكم
الفكرة ان الجدول ليس ثابت بل متغير ففي القاعدة نوعين من الجداول
النوع الأول و هو جدول وحيد اسمه cccيحوي كافة النقاط المكونة للمشروع وكل نقطة لها احداثيات
النوع الثاني وهو عبارة عن عدة جداول يتغير عددها حسب طبيعة المشروع المدروس وفي كل جدول منها جزء من النقاط الكلية للمشروع
و المطلوب عمله هو نقل احداثيات كل نقطة من الجدول ccc الى مكانها في الجداول من النوع الثاني و قد تكون في الجدول 1 أو الجدول x
لذلك لا أستطيع تثبيت اسم جدول فاعتمدت الأرقام اسماء لها و إلا لو كان الأمر متعلق بجدولين فقط فالأمر  يصبح أكثر سهولة
أرجو أن أكون أوضحت
عذرا لم أفهم ماذا تقصد بأن أسماء الحقول غير موجودة
تقبل تحياتي و شكرا لصبرك و تفاعلك
الرد
#7
السلام عليكم حميعا
أخ بلدي قمت بتجريب الكود السابق و قام بالحفظ ولكن يعمم احداثيات نقطة من الجدول على كافة تقاط هذا الجدول

يرجى الإطلاع على الصور التي تشرح ذلك و تعديل الكود اذا امكن
ام علي اتباع اسلوب اخر
مع خالص تمنياتي لكم


         
المعلومات المطلوب نقلها من هذا الجدول ccc  الى الجداول الأخرى
  
 
الجدول الذي نتج عن كود الأخ بلدي مشكورا وهو يعمم اخداثيات نقطة على         

كافة نقاط الجدول و المطلوب هو ان لكل نقطة احداثيات خاصة بها
الرد
تم الشكر بواسطة: حريف برمجة



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


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