(ADO.NET) faire une recherche comme en VB6

Question

bonjour à tous !
qel q1 pourait m'aider pour touver l'equivalent de :

Data.rsRecorset.Filter = "Champ LIKE '*" & Trim(TextBox.Text) & "*'"

pour que ça fonctionne avec ADO.NET

dur dur de passer au .net !!!?

MERCI
ASEM67   :)

juvamine · Answer

comme tu dis c'est dur dur !!!
j'ai cependant ta solution, il faut utiliser un DataReader
bon je te met la totale, de la connexion au parcours du curseur

'déclaration et ouverture d'une connexion vers la base (access ici)
Dim cn As New OleDb.OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:	oto.mdb;Persist Security Info=False")

        cn.Open()

'ouverture dun objet command (ki recoit la rekette)
        Dim cd As New OleDb.OleDbCommand("select champs1,champs2 FROM TaTable where Champ LIKE '%" & Trim(TextBox.Text) & "%'", cn)

'le fameux datareader ki va lire la rekette etla parcourire (ékivalent du recordset)
        Dim rd As OleDb.OleDbDataReader

        rd = cd.ExecuteReader

'parcours
        While rd.Read
             msgbox rd("Champs1")
        End While

'on ferme tout
        rd.Close()
        cn.Close()

 voila...maintenant tout dépen ce ke tu veux faire...explike un peu mieux ton pb (remplir un datagrid, etc...)

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_CanisLupus · Answer

Extrait de CETTE PAGE

Voilà les différences (dixit Microsoft) :

'DAO

Sub DAOFilterRecordset()
   Dim db As DAO.Database
   Dim rst As DAO.Recordset
   Dim rstFlt As DAO.Recordset
   ' Ouverture de la base de données
   Set db = DBEngine.OpenDatabase(".\Comptoir.mdb")
   ' Ouverture du Recordset
   Set rst = db.OpenRecordset("Clients", dbOpenDynaset)
   ' Définition du filtre à utiliser pour les 
Recordset suivants
   rst.Filter = "Pays='USA' And Fax Is Not Null"
   ' Ouverture du Recordset sélectionné
   Set rstFlt = rst.OpenRecordset()
   Debug.Print rstFlt.Fields("Code 
client").Value
   ' Fermeture des Recordsets
   rst.Close
   rstFlt.Close
End Sub
'ADO

Sub ADOFilterRecordset()
   Dim cnn As New ADODB.connection
   Dim rst As New ADODB.Recordset
   ' Ouverture de la connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.\Comptoir.mdb;"
   ' Ouverture du Recordset
   rst.Open "Clients", cnn, adOpenKeyset, adLockOptimistic
   ' Filtrage du Recordset pour inclure uniquement 
les clients
   ' basés aux États-Unis disposant d'un numéro 
de fax
   rst.Filter = "Pays='USA' And Fax <> Null"
      Debug.Print rst.Fields("Code 
client").Value
   ' Fermeture du Recordset
   rst.Close
End Sub


Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

asem67 · Answer

Merci Juvamine 
ça fonctionne nikel

je voudrais remplire un dataGrid
et 
une liste ou je purais choisir la reponse qui me convient
ça depand des cas

et merci aussi a CaniLupus mais je voudrais faire mon prog entierement en .NET
A+
ASEM67   :)

juvamine · Answer

si tu veux remplir un datagrid jai une meilleur solution encore !!
c une fonction ki retourne un DataTable pour remplir ta datagrid



Public Function RemplirDataGrid() As DataTable

        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:	oto.mdb;ersist Security Info=False")

        Dim DA As New OleDb.OleDbDataAdapter, DS As New DataSet("Truc")

        DA.TableMappings.Add("Table", "TaTable")

        cn.Open()

        Dim Cde As New OleDb.OleDbCommand("select champs1 from TaTable where Champ LIKE '%" & Trim(TextBox.Text) & "%'" , cn)

        Cde.CommandType = CommandType.Text

        DA.SelectCommand = Cde

        DA.Fill(DS)

        cn.Close()

        Return DS.Tables("TaTable")

End Function


voila

et en Form_Load

DataGrid1.DataSource=RemplirDataGrid()

voila
il fo comprendre le principe d'ado.net il a été développé en plusieurs couches...www.developpez.com ya kelkes tuto ki peuvent t'aider

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

juvamine · Answer

j'ai fais une erreur ds la chaine de connexion, prends la chaine de connexion du Post précédent c la meme !!

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

(ADO.NET) faire une recherche comme en VB6

5 réponses

Discussions similaires