Private cn As OleDbConnection
Private da As OleDbDataAdapter
Private ds As DataSet
Private courant As Integer
Private cmdselect As OleDbCommand
Private b1, b2 As Binding
Private WithEvents cm As CurrencyManager
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New OleDbConnection
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=c:\mesbases\TP2.mdb"
cn.Open()
cmdselect = New OleDbCommand
cmdselect.Connection = cn
cmdselect.CommandText = "select nof,noc,nop,titre,datesortie,nombre,cout,dvd from films order by nof"
ds = New DataSet
da = New OleDbDataAdapter
da.SelectCommand = cmdselect
da.Fill(ds, "films")
Dim col As DataColumn = ds.Tables(0).Columns(0)
col.AutoIncrement = True
col.AutoIncrementSeed = -1
col.AutoIncrementStep = -2
Dim pk(0) As DataColumn
pk(0) = col
ds.Tables(0).PrimaryKey = pk
courant = 0
'binder les controles
b1 = TextBox1.DataBindings.Add("text", ds, "films.titre") 'sa propriete text
b2 = TextBox2.DataBindings.Add("text", ds, "films.cout")
dtp.DataBindings.Add("value", ds, "films.datesortie") 'sa propriete value
Label5.DataBindings.Add("text", ds, "films.noa")
AddHandler b2.Format, AddressOf formatterMontant 'le signe $$$
cm = BindingContext(ds, "films") 'creer currency manager
Me.Text = (cm.Position + 1).ToString() + " de " + cm.Count().ToString()
'cm.Position += 1 'pour ajouter le $$$$$$
'cm.Position -= 1 'pour ajouter le $$$$$$
afficher()
End Sub