1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Imports System.Data.OleDb
Public Class Form10
Dim con As New OleDbConnection
Dim dtadapter As New OleDbDataAdapter("select * from event", con)
Dim dtset As New DataSet
Dim table As DataTable
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim soire As Integer = 0
Dim occasion As Integer = 0
Dim i As Integer = 0
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=event.mdb"
con.Open()
dtadapter.Fill(dtset, "event")
table = dtset.Tables("event")
Dim newligne As DataRow
While dtset.Tables("event").Rows.Count <> i
newligne = dtset.Tables("eevent").Rows(i)c'est la ou il me donne l'erreur |