cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 28 déc. 2007 à 10:53
Salut,
Je dirais qu'il y a plusieurs possibilité, en voici 2 :
La première tu fais un requête de sélection avec une clause Where (qui va remplir un object RecordSet), comme cela :
La première :sSql "Select * From TaTable Where TonChamp '" & TaRecherche & "'"
ou
sSql = "Select TonChampFind From TaTable Where TonChampFind = '" & TaRecherche & "'"
La deuxième : Dans la requête, utiliser l'opérateur : Like
A+
Exploreur
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 28 déc. 2007 à 11:47
Re,
Tiens un exemple pour être un peu plus clair :
Dans ton projet rajoute la référence :
Microsoft ActiveX Data Objects 2.5 Library
Option Explicit
Dim Cnx As New ADODB.Connection
Dim Rst As New ADODB.RecordSet
Dim sSql As String
Private Sub CloseCnxRst ()
On Error Resume Next
' Libération ressource
Rst.Cancel
Rst.Close
Set Rst = Nothing
Cnx.Cancel
Cnx.Close
Set Cnx = Nothing
Err.Clear
End Sub
Private Sub Form_Load()
' Libération ressource appel Sub
CloseCnxRst
' On prépare la connection à la base
' Choix du fournisseur
Cnx.Provider = "Microsoft.jet.OLEDB.4.0"
' gestion erreur s'il y a
On Error Resume Next
' chemin de la base pour la connexion
Cnx.ConnectionString = "CheminDeTaBase"
' Ouvre la connexion à la source
Cnx.Open
' Nettoyage gestionnaire d'erreur
Err.Clear
' Test Connection
If Cnx.State = 1 then
MsgBox "Connexion ok"
Else
MsgBox "Erreur Connexion"
Exit sub
End If
' Maintenant lancement et vérification recherche
Dim TaRecherche As String
TaRecherche = "Toto"
' Ici je vais rechercher 'toto' dans le champ reference
sSql = "Select Reference From TaTable Where Reference = '" & TaRecherche & "'"
' Execution requête avec paramètre recordset via CnxAdo
On Error Resume Next
Rst.CursorLocation = adUseClient
Rst.Open sSql, Cnx, adOpenDynamic, adLockPessimistic
' S'il y a eu erreur informe l'utilisateur
If Err.Number > 0 then
MsgBox Err.Description
Err.Clear
CloseCnxRst
Exit sub
End if
' Vérification s'il y a un ou plusieurs record
if Rst.RecordCount > 0 then
' Boucle sur le RecordSet(Rst)
While Not Rst.Eof
Msgbox Rst.Fields("Reference")
' Passe au suivant s'il y a
Rst.MoveNext
Wend
Else
' On a rien trouvé
MsgBox "Aucun enregistrement trouvé !"
End if