[sendbad100]

وعليكم السلام ورحمة الله وبركاته

اضافة  الى مشاركة الاخ /  Mohamad Anan     مشكورا

PHP كود :

Private Sub Command1_Click()

Dim zSearch As String


If Trim(Text1.Text) = "" Then GoTo sendbad101:

If Trim$(Text1.Text) <> "" Then zSearch = "[Prenom] LIKE '" & Trim$(Text1.Text) & "%'"
 
If Trim$(Text2.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Mere] LIKE '" & Trim$(Text2.Text) & "%'"
Else
zSearch = "[Mere] LIKE '" & Trim$(Text2.Text) & "%'"
End If
End If

If Trim$(Text3.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Groupage] LIKE '" & Trim$(Text3.Text) & "%'"
Else
zSearch = "[Groupage] LIKE '" & Trim$(Text3.Text) & "%'"
End If
End If

If Trim$(Text4.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Rhesis] LIKE '" & Trim$(Text4.Text) & "%'"
Else
zSearch = "[Rhesis] LIKE '" & Trim$(Text4.Text) & "%'"
End If
End If

If Trim$(Text5.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Grandpere] LIKE '" & Trim$(Text5.Text) & "%'"
Else
zSearch = "[Grandpere] LIKE '" & Trim$(Text5.Text) & "%'"
End If
End If

If Trim$(zSearch) = "" Then Set MSHFlexGrid1.DataSource = Nothing: Exit Sub
If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
RS.Open "Select * From TB1 Where " & zSearch, DB, adOpenStatic, adLockPessimistic
If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS.Clone
Else
Set MSHFlexGrid1.DataSource = Nothing
End If

DrawFlex

Exit Sub


sendbad101:

If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
'RS.Open "Select * From TB1 Where " & zSearch, DB, adOpenStatic, adLockPessimistic
RS.Open "Select * From TB1 Order By [Code] ASC", DB, adOpenStatic, adLockPessimistic
If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS.Clone
Else
Set MSHFlexGrid1.DataSource = Nothing
End If

DrawFlex

End Sub