تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب المساعدة في مشكلة عدم حفظ التعديل على السجل
#11
اخي سعود ممكن توضخ لي هذه الطريقة ولو بمثال او بتعديل على مشروعي وشكر لك على تجوبك معي
الرد }}}
تم الشكر بواسطة:
#12
اخي الكريم نقطة ضعفي هي التعديل على المشاريع..
https://www.youtube.com/watch?v=yzWCw5yekgQ
الرد }}}
تم الشكر بواسطة:
#13
المثال مرفق
وكلمة المرور هي الدومين والنطاق الخاص بمنتدانا

هههههههههههههههههه
الصراحة اني مش مضبوط
انا مدمن الربط بالكود
الله المستعان
شلون نسيت


الملفات المرفقة
.rar   For_3liK3bi.rar (الحجم : 210.1 ك ب / التحميلات : 65)
الرد }}}
تم الشكر بواسطة: الكاتب , الكاتب
#14
ام افهم كلمة المرور اخي سعود

ممكن تكتب كلمة المرور
الرد }}}
تم الشكر بواسطة:
#15
كلمة المرور:
كود :
vb4arb.com
الاصدار 2015 لو لديك اقل انظر هنا
الرد }}}
تم الشكر بواسطة:
#16
يااخوان والله تعبت علماً باني طبقت كل الطرق التي تم طرحه ولكن مافي اي فية يعطيني مره رسالة تم التعديل ولكن لم يقوم بتغيير البيانات في قاعدة البيانات وبطريقة اخرى يقول لم يتم اعطاء قيمة لاكثر من معامل
تكفون ساعدوني تكفون بطريقة الابديت مع شرح يكون مع مثال فية اكثر من 20حقل والترقيم يكون كل سنة حسب مشروعي الموجود في الموضوع
تكفون تكفون لي ثلاثة ايام وان ابحث ولكن دون جدوى اودلوني على برنامج يقوم بكتابة الكود يكون مجاني
الرد }}}
تم الشكر بواسطة:
#17
نصيحة اخي الكريم ان تعمل مثال جديد وتقوم بتسجيل عملك بفيديو وترفعه لنا لرؤية خطوات عملك.
فقط يمكن معرفة السر بعدم حصولك على المطلوب.
صمم مثال جديد اترك مشروعك الحالي.
الرد }}}
تم الشكر بواسطة:
#18
اخي الكريم ربما المشكلة تكمن في ترتيب البارامترات
قم بتجربة الكود بالطريقة التالية
PHP كود :
Private Sub btn_Save_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles btn_Save.Click
        
''UPDATERECORD()
 
       'On Error Resume Next
        Dim SQL As String = " Update tbl1 SET  b=@b, B3=@B3, B4=@B4, B5=@B5, B6=@B6, B7=@B7, B8=@B8, B10=@B10, B11=@B11, B12=@B12 WHERE ID=@id"
        Dim CMD As OleDb.OleDbCommand = New OleDb.OleDbCommand
        CMD.CommandType = CommandType.Text
        CMD.Connection = con
        With CMD
            .Parameters.AddWithValue("@b", Me.tex.Text.Trim)
            .Parameters.AddWithValue("@B3", Me.tex5.Text.Trim)
            .Parameters.AddWithValue("@B4", Me.tex6.Text.Trim)
            .Parameters.AddWithValue("@B5", Me.tex7.Text.Trim)
            .Parameters.AddWithValue("@B6", Me.tex8.Text.Trim)
            .Parameters.AddWithValue("@B7", Me.tex9.Text.Trim)
            .Parameters.AddWithValue("@B8", Me.tex10.Text.Trim)
            .Parameters.AddWithValue("@B10", Me.tex12.Text.Trim)
            .Parameters.AddWithValue("@B11", Me.tex20.Text.Trim)
            .Parameters.AddWithValue("@B12", Me.tex11.Text.Trim)
            .Parameters.AddWithValue("@id", Me.IDLb.Text.Trim)
        End With
        CMD.CommandText = SQL
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        CMD.ExecuteNonQuery()
        con.Close()
    End Sub 

الرد }}}
تم الشكر بواسطة: سعود
#19
نعم اخي كما قال الاخ Adrees انت لديك مشكلة في عدد البارمترات بين جملة الاستعلام و كائن الكوماند (لديك بارمتر واحد مختلف عن جملة الاستعلام)

الحقول لديك تحتاج لاعادة ترتيب و الكود كذلك يحتاج الى صياغة منظمة على اي حال هذا تعديل في المرفقات


الملفات المرفقة
.rar   New folder.rar (الحجم : 423.39 ك ب / التحميلات : 75)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: سعود , Adrees
#20
(13-05-16, 04:00 AM)nonoms كتب : نعم اخي كما قال الاخ Adrees انت لديك مشكلة في عدد البارمترات بين جملة الاستعلام و كائن الكوماند (لديك بارمتر واحد مختلف عن جملة الاستعلام)

الحقول لديك تحتاج لاعادة ترتيب و الكود كذلك يحتاج الى صياغة منظمة على اي حال هذا تعديل في المرفقات

مشكور اخي والله انك ريحتني من هذا الهم
الرد }}}
تم الشكر بواسطة:



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


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