[Samosoft]

PHP كود :

On Error Resume Next
        For MyRows As Integer = 0 To Me.DGV1.Rows.Count - 1

            SerSt = DGV1.Item(0, MyRows).Value
            SerGr = DGV1.Item(1, MyRows).Value
            SerPr = DGV1.Item(2, MyRows).Value
            Dim adI01 As New SqlDataAdapter("SELECT * FROM Itm01 WHERE I01_St LIKE '" & SerSt & "' And I01_Gr LIKE '" & SerGr & "' And I01_Pr LIKE '" & SerPr & "'", Conn)
            Conn.Open()
            DsI01.Clear()
            adI01.Fill(DsI01, "Itm01")
            Conn.Close()
            Dim MyPosition As Integer = Me.BindingContext(DsI01, "Itm01").Position
 DsI01.Tables("Itm01").Rows(MyPosition).BeginEdit()
DsI01.Tables("Itm01").Rows(MyPosition).Item("I01_Outside") = Val(Doq)
DsI01.Tables("Itm01").Rows(MyPosition).EndEdit()
            Validate()
            adI01.Update(DsI01.Tables(0))
            DsI01.AcceptChanges()
Next 


[سعود]

PHP كود :

LIKE '" & SerSt & "' 


عبارة Like حسب معلوماتي تحتاج اضافة علامة بالمئة % هكذا

PHP كود :

LIKE ' %" & SerSt & "% ' 


[سعود]

الفراغ احذف لاني اضفته لترى الفرق

[Samosoft]

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

[Samosoft]

ارجو الرد على سؤالى ما الخطأ فى الكود

[kslawy]

لا يمكننا معرفة الخطأ ما لم تقم يا أخي علي الأقل بعرض رسالة الخطأ اللي بتظهر لك

[Samosoft]

نص الخطأ عبارة عن
Update Requires A Valid UpdateCommand when Passed Datarow Collection with Modified Rows
ارجو المساعدة

[سعود]

كود :

Update Requires A Valid UpdateCommand

هذه الرسالة تقول لا بد من امر تحديث ويمكن بناء كل ما يحتاجه مكيف البيانات بالكود التالي

PHP كود :

dim da as new sqldataadapter("",con)
dim cmdb as new sqlcommandbuilder(da) 


[Samosoft]

تم حل المشكلة بفضل الله تعالى ... وفضل مجهود الرائع اخى سعود
جزاك الله خيرا