سورس کدهای ویژوال بیسیک - برنامه نویسی بانک اطلاعاتی-9

ادامه مقاله 8...

rs.MoveFirst

lstShop(3).Clear

For l = 1 To Max

If rs("TEL") <> "" Then

("lstShop(3).AddItem rs("TEL

rs.MoveNext

ElseIf l <= Max Then

"خالی" lstShop(3).AddItem

rs.MoveNext

End If

Next l

rs.MoveFirst

lstShop(4).Clear

For l = 1 To Max

If rs("Address") <> "" Then

("lstShop(4).AddItem rs("Address

rs.MoveNext

End If

Next l

rs.MoveFirst

lstShop(5).Clear

For l = 1 To Max

If rs("GHRahn") <> "" Then

("lstShop(5).AddItem rs("GHRahn

rs.MoveNext

End If

Next l

rs.MoveFirst

lstShop(6).Clear

For l = 1 To Max

If rs("GHEjare") <> "" Then

("lstShop(6).AddItem rs("GHEjare

rs.MoveNext

End If

Next l

rs.MoveFirst

lstShop(7).Clear

For l = 1 To Max

If rs("Comment") <> "" Then

("lstShop(7).AddItem rs("Comment

rs.MoveNext

End If

Next l

:errlbl

Select Case Err

Case 3021: 'If "No Current Record" Error Accourd

Resume Next

End Select

End Function

در رویداد Change جعبه متن TxtSearch بنویسید:

Select Case CmbSearch.Text

:"قيمت اجاره" Case

If TxtSearch.Text = vbNullString Then

(Set rs = db.OpenRecordset("Shop", dbOpenTable

Else

Set rs = db.OpenRecordset("SELECT * FROM Shop WHERE Ghejare LIKE '" & TxtSearch.Text & "'" & "& '*'")

End If

ListGenerate

: "آدرس"Case

If TxtSearch.Text = vbNullString Then

(Set rs = db.OpenRecordset("Shop", dbOpenTable

Else

Set rs = db.OpenRecordset("SELECT * FROM Shop WHERE Address LIKE '" & TxtSearch.Text & "'" & "& '*'")

End If

ListGenerate

End Select