'Création de la connexion Using maConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\MaBase.mdb") 'Ouverture de la connexion maConnection.Open() 'Création de la requète Using maRequete As New OleDb.OleDbCommand("SELECT id, libelle FROM TOTO", maConnection) 'Exécution de la requète (le DataReader est le remplacant de notre Recordset) Dim cestmoiRecordset As OleDb.OleDbDataReader = maRequete.ExecuteReader() 'Parcour du résultat (notre ancien While not monrecordset.eof) While cestmoiRecordset.Read() 'On lit le premier champ en sachant que c'est un entier '(la on aurait fait monrecordset("id")) id = cestmoiRecordset.GetInt32(0) 'On lit le deuxième champ en sachant que c'est un string '(la on aurait fait monrecordset("libelle")) libelle = cestmoiRecordset.GetString(1) Console.WriteLine("id {0} ; libelle {1}", id, libelle) End While End Using 'Fermeture de la connection maConnection.Close() End Using
Using maConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MaBase.mdb") monDataSet.Clear() Dim monAdapter = New OleDbDataAdapter("SELECT id, libelle FROM MaTable", maConnection) monAdapter.SelectCommand.Connection = maConnection 'C'est la méthode fill qui ouvrira et fermera la connection monAdapter.Fill(monDataSet, "MaTable") 'L'objet BindingSource sera plus souple que d'affecter directement la table 'il nous permettra de filtrer et de trier les données. Dim bindingSrc As New BindingSource(monDataSet, "MaTable") 'Rempli la grille avec création automatique des colonnes Me.DataGridView1.DataSource = bindingSrc 'Rempli le combobox Me.ComboBox1.ValueMember = "id" 'Champ utilisé pour la valeur Me.ComboBox1.DisplayMember = "libelle" 'Champ utilisé pour l'affichage Me.ComboBox1.DataSource = bindingSrc 'Rempli la grille avec choix des colonnes Me.DataGridView2.AutoGenerateColumns = False 'On bloc la création auto des colonnes Me.DataGridView2.Columns.Clear() 'On vide la grille de toute colonne Dim colonne As New DataGridViewTextBoxColumn() 'On cré un nouvelle colonne de type text colonne.Name = "maColonneLibelle" 'Nom de la colonne colonne.HeaderText = "Le Libelle" 'Text d'en-tête de la colonne colonne.DataPropertyName = "libelle" 'Champ de liaison avec notre table Me.DataGridView2.Columns.Add(colonne) 'Ajout de la colonne à la grille DataGridView2.DataSource = bindingSrc 'Remplissage de la grille 'Affichage uniquement de la ligne avec id = 1 bindingSrc.Filter "id 1" End Using
Public Function NombreDeFournisseur() As Integer Dim ic As Integer Using maConnection As New OleDb.OleDbConnection(ConnexionPath) maConnection.Open() Using maCommand As New OleDb.OleDbCommand("SELECT COUNT(*) FROM Fournisseurs", maConnection) ic = CType(maCommand.ExecuteScalar(), Integer) End Using maConnection.Close() End Using Return ic End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Export(ByVal Table As String, ByVal Grille As Object) 'Auteur: CGSI3 But: Initialise un datagrid MonDataSet.Clear() 'On vide le DataSet pour ne pas que les données s'ajoutent Connection.Open() Dim requete As String = "SELECT * FROM " & Table MonAdapter = New OleDb.OleDbDataAdapter(requete, Connection) 'Méthode pour récupérer les données d'une table d'un fichier chargées dans un DataGrid MonAdapter.Fill(MonDataSet, Table) 'On rempli le DataSet Dim Matable As DataTable Matable = MonDataSet.Tables(Table) 'remplissage du DataGrid avec le DataSet Grille.DataSource = Matable Connection.Close() End Sub
Using... ? Intéressant !
Using maConnection as New OleDbConnection("ChaineDeConnexion") maConnection.Open() End Using
Dim maConnection as New OleDbConnection("ChaineDeConnexion") Try maConnection.Open() Catch ex as Exception Finally maConnection.Dispose() 'Ou .Dispose() appelle .Close() End Try
Public Function NombreDeFournisseur() As Integer Dim ic As Integer Using maConnection As New OleDb.OleDbConnection(ConnexionPath) maConnection.Open() Using monAdapt As New OleDbDataAdapter("SELECT Nom From Fournisseurs", maConnection) Dim monDataSet As New DataSet monAdapt.Fill(monDataSet) Dim maTable As DataTable = monDataSet.Tables(0) ic = maTable.Rows.Count End Using maConnection.Close() End Using Return ic End Function