تکه کد : کوئری با بیشمار فیلد با 5 خط کد

[ho3ein282 11]

با سلام خدمت همه دوستان 

با اجازه مدیران محترم میخواهیم سلسله تایپیک هایی با عنوان "تکه کد" قرار بدیم تا ضمن یادگیری نحوه کدنویسی و دستورها ، سرعت اجرای برنامه هامون رو افزایش بدیم.

 

اولین بخش :

این کد مربوط میشه به آپدیت جدول  با بیشمار آیتم !!

' UpdateItems(ID=6,array as string(name,family),array as string(hossein,ghadami))
Sub UpdateItems(where As String,field() As String,value() As String) As Boolean
Try
If field.Length<> value.Length Then Return False
Dim fielues As String = ""
For i=0 To field.Length - 1
If i = field.Length - 1 Then
	fielues = fielues&field(i)&"="&value(i) 
Else
	fielues = fielues&field(i)&"="&value(i) &","
End If
Next
sq.ExecNonQuery("update meta_tbl set "&fielues&" where "&where)
Return True
Catch
Log(LastException.Message)
Return False
End Try
End Sub

آنالیزش با خودتون ( قضیه ماهیگیری !)