DB Connexion.Open Dim bldr = New OleDbCommandBuilder(DBDataAdapter) DBDataAdapter.Update(objDBDataSet, "Projets") DBDataAdapter.Update(objDBDataSet, "Etudes_taches_Liste") DBConnexion.close
En clair je sais ouvrir une base et remplir un dataset mais je ne sais pas quand ni comment fermer les objets et la connexion proprement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTry StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & _StrDBpathName DBconnection = New OleDbConnection(StrConnect) DBcommand = New OleDbCommand() DBcommand.Connection = DBconnection DBconnection.Open() Catch MsgBox("La connexion à echoué, l'application va se fermer !", MsgBoxStyle.Critical) Application.Exit() End Try 'Initialisation de la chaîne contenant l'instruction SQL 'sql = "SELECT * FROM Projets" Dim sqlProjets As String = "SELECT ID, NOM, ID_CPT, CHEF_PROJET, DEBUT, DESCRIP, FIN, NB_INFOS_FINIS, STATUT, TOTAL_INFOS, PROGRES_INFOS FROM Projets" Dim sqlEtudes_Taches_Liste As String = "SELECT ID_TACHE, STAT_ICO, SUJET, PRIORITE, ALERTE, ASSIGN, STATUT, ECHEANCE, AUTEUR, DATE_EDIT, MESSAGE FROM Etudes_Taches_liste" 'Instancier un objet Commande 'DBcommand = New OleDbCommand(sql) 'Instancier un objet Adapter 'DBDataAdapter = New OleDbDataAdapter(DBcommand) DBDataAdapter = New OleDbDataAdapter(sqlProjets, DBconnection) 'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet DBDataAdapter.Fill(objDBDataSet, "Projets") DBDataAdapter.SelectCommand.CommandText = sqlEtudes_Taches_Liste DBDataAdapter.Fill(objDBDataSet, "Etudes_Taches_Liste") DBDataAdapter.Dispose() DBconnection.Close()