Dim Rst_Temp As New ADODB.Recordset
Dim sSQL As String
Set Rst_Temp = Nothing
Call Connection
'Le texte de la requête souhaitée
sSQL = "SELECT * FROM ARTICLE WHERE ARKTSOC='999' AND ARKTCODART LIKE '%" & UCase(TextBox1.Value) & "%'"
'Exécution de la requête...
With Rst_Temp
.CursorLocation = adUseClient
.Open sSQL, Connection_Base, adOpenStatic, adLockOptimistic, adCmdText
End With
If Rst_Temp.RecordCount <> 0 Then
Do While Not Rst_Temp.EOF
'***** Exploitation des données de la requête... (ici un affichage Listview)*****
With ListView1
.ListItems.Add , , Rst_Temp(0)
If Rst_Temp(4) = "1" Then .ListItems(.ListItems.Count).ForeColor = RGB(50, 0, 255)
If Rst_Temp(4) = "6" Then .ListItems(.ListItems.Count).ForeColor = RGB(255, 0, 50)
For i = 1 To 165
.ListItems(.ListItems.Count).ListSubItems.Add , , Rst_Temp(i)
'Format
If Rst_Temp(4) = "1" Then .ListItems(.ListItems.Count).ListSubItems(i).ForeColor = RGB(50, 0, 255)
If Rst_Temp(4) = "6" Then .ListItems(.ListItems.Count).ListSubItems(i).ForeColor = RGB(255, 0, 50)
Next i
.View = lvwReport
End With
'***** Fin d'exploitation des données *****
Rst_Temp.MoveNext
Loop
Else
MsgBox "No data"
End If
'Affichage du nombre d'article trouvés
Label4.Caption = Rst_Temp.RecordCount & " Items found"
Rst_Temp.Close