سوال در مورد آپدیت دیتابیس , مشکل این کد چیه ؟

[a_m_i_n_000]

سلام .
خواهش میکنم راهنمایی کنید مشکل این کد چیه . میخوام یه مقدار رو تو دیتابیس سرچ کنم و تو همون سطری که قرار داشته به جای مقدار قبلی مقدار جدید ثبت شه ولی این خطا رو میده : Query Too Complex (http://support.microsoft.com/kb/103429)


Dim b As Integer
Dim c As Integer
b = Text1.Text
Adodc101.RecordSource = "SELECT * FROM kanalrikhtenashode WHERE ShomareKanal LIKE '%" & b & "%'"
Adodc101.Refresh
Adodc101.Recordset.MoveFirst
For c = 0 To List1.ListCount - 1
Adodc101.Recordset.Fields(c) = Trim(List1.List(c))
Next
Adodc101.Recordset.Update
End Sub

[mohammadriano]

سلام .
خواهش میکنم راهنمایی کنید مشکل این کد چیه . میخوام یه مقدار رو تو دیتابیس سرچ کنم و تو همون سطری که قرار داشته به جای مقدار قبلی مقدار جدید ثبت شه ولی این خطا رو میده : Query Too Complex (http://support.microsoft.com/kb/103429)


Dim b As Integer
Dim c As Integer
b = Text1.Text
Adodc101.RecordSource = "SELECT * FROM kanalrikhtenashode WHERE ShomareKanal LIKE '%" & b & "%'"
Adodc101.Refresh
Adodc101.Recordset.MoveFirst
For c = 0 To List1.ListCount - 1
Adodc101.Recordset.Fields(c) = Trim(List1.List(c))
Next
Adodc101.Recordset.Update
End Sub


Dim b As Integer
Dim c As Integer
b = Text1.Text
Adodc101.RecordSource = "SELECT * FROM kanalrikhtenashode WHERE ShomareKanal LIKE '%" & b & "%'"
Adodc101.Refresh
Adodc101.Recordset.MoveFirst
Adodc101.Recordset.edit
For c = 0 To List1.ListCount - 1
Adodc101.Recordset.Fields(c).value = Trim(List1.List(c))
Adodc101.Recordset.movenext

Next c

Adodc101.Recordset.Update
End Sub