[علي كعبي]

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

[سعود]

اخي الكريم نقطة ضعفي هي التعديل على المشاريع..
https://www.youtube.com/watch?v=yzWCw5yekgQ

[سعود]

المثال مرفق

وكلمة المرور هي الدومين والنطاق الخاص بمنتدانا

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

[علي كعبي]

ام افهم كلمة المرور اخي سعود

---

ممكن تكتب كلمة المرور

[سعود]

كلمة المرور:

كود :

vb4arb.com

الاصدار 2015 لو لديك اقل انظر هنا

[علي كعبي]

يااخوان والله تعبت علماً باني طبقت كل الطرق التي تم طرحه ولكن مافي اي فية يعطيني مره رسالة تم التعديل ولكن لم يقوم بتغيير البيانات في قاعدة البيانات وبطريقة اخرى يقول لم يتم اعطاء قيمة لاكثر من معامل
تكفون ساعدوني تكفون بطريقة الابديت مع شرح يكون مع مثال فية اكثر من 20حقل والترقيم يكون كل سنة حسب مشروعي الموجود في الموضوع
تكفون تكفون لي ثلاثة ايام وان ابحث ولكن دون جدوى اودلوني على برنامج يقوم بكتابة الكود يكون مجاني

[سعود]

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

[Adrees]

اخي الكريم ربما المشكلة تكمن في ترتيب البارامترات
قم بتجربة الكود بالطريقة التالية

PHP كود :

Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 


[ابو ليلى]

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

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

[علي كعبي]

(13-05-16, 04:00 AM)nonoms كتب : نعم اخي كما قال الاخ Adrees انت لديك مشكلة في عدد البارمترات بين جملة الاستعلام و كائن الكوماند (لديك بارمتر واحد مختلف عن جملة الاستعلام)

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

مشكور اخي والله انك ريحتني من هذا الهم