Dim con As IDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\Database1.accdb;") Dim cmd As OleDbCommand = New OleDbCommand("SELECT SUM(facture.totale) as Total FROM facture WHERE facture.n_facture LIKE '%" + TextBox10.Text + "%' ", con) Try con.Open() Dim TotalFacture As Decimal = cmd.ExecuteScalar() TextBox_totalFacture.Text = TotalFacture Catch ex As Exception MessageBox.Show(ex.Message) Finally con.Close() End Try
17 janv. 2014 à 16:01
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\gestion.mdb;"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT SUM(facture.totale) FROM facture WHERE facture.n_facture LIKE '%" + TextBox10.Text + "%' "
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Instanciation d'un Objet Connexion
ObjetConnection = New OleDbConnection
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Ouvrir la connexion
ObjetConnection.Open()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Instancier un objet Commande
ObjetCommand = New OleDbCommand(strSql)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Instancier un objet Adapter
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataSet = New DataSet
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ObjetDataAdapter.Fill(ObjetDataSet, "facture")
'Créer une datatable à partir du dataset
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ObjetDataTable = ObjetDataSet.Tables("facture")