Soyez le premier à donner votre avis sur cette source.
Vue 19 138 fois - Téléchargée 1 976 fois
Option Explicit 'procedure de test sur la propriétée Filter 'AUTEUR : RICARD THIERRY 'DATE : 04/10/2000 'Email : katyrd@infonie.fr 'http://perso.infonie.fr/katyrd Dim cnApp As ADODB.Connection Dim sConnect As String Dim rs As ADODB.Recordset Private Sub cmdFiltre_Click() Dim strFiltre As String 'Champs sur lequel la base sera filtrée strFiltre = "firstname" '<--A CHANGER rs.Filter = strFiltre & "='" & txtFilter & "'" grd.Clear If rs.RecordCount > 0 Then RempliGrille Else End If lblInformation.Caption = rs.RecordCount & " Enregistrement(s) filtré(s)" End Sub Private Sub cmtAfficheTout_Click() rs.Filter = adFilterNone RempliGrille End Sub Private Sub Form_Load() Set cnApp = New ADODB.Connection Set rs = New ADODB.Recordset 'Penser à remplacer le ??? par vos valeurs sConnect = "Provider=SQLOLEDB;User ID=???;Password=???;Initial Catalog=???;Data Source=???" cnApp.ConnectionString = sConnect cnApp.Open If cnApp.State = adStateOpen Then Dim strTable As String 'Table Qui sera interrogée strTable = "employee" '<--A CHANGER rs.Open strTable, cnApp, adOpenKeyset, adCmdTable RempliGrille End If End Sub Sub RempliGrille() grd.Rows = rs.RecordCount + 1 grd.Cols = rs.Fields.Count - 1 grd.Row = 1 grd.RowSel = grd.Rows - 1 grd.ColSel = grd.Cols - 1 grd.Clip = rs.GetString(adClipString, rs.RecordCount) grd.RowSel = 1 grd.ColSel = 0 lblInformation.Caption = rs.RecordCount & " Enregistrement(s)" End Sub
mais j'ai un problème,je veus afficher dans un datagrid les données selon le critére que j'écris dans un textbox, j'ai copier votre code mais je sais pas pourquoi il me donne un problème dans la procédure rempligrille,méme si quand j'ajoute un enregistrement le "g.Rows = rs.RecordCount + 1"il s'incrémente et me donne le nembre d'enregistrement que j'ai dans ma table
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.