[VBExpress08] Erreur IndexOutOfRangeException

Version imprimable

Bonjour,

Je dialogue avec une base de donnée Access depuis un petit programme en VB Express 2008.

A partir d'une référence, je recherche le N° de produit dans ma base.
Quand la référence existe, pas de soucis, mais quand celle-ci n'existe pas j'ai une erreur

Citation:

IndexOutOfRangeException n'a pas été gérée

Voici mon bout de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        'Recherche dans la base de donnée le n° IdArticle
        Dim con As New OleDb.OleDbConnection
        con.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & My.Application.Info.DirectoryPath & "\Stock_17.accdb"
        con.Open()
 
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        sql = "SELECT * FROM T_Article WHERE Reference = '" & CodeBarre & "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "Liste_Article")
 
 
        If Not ds Is Nothing AndAlso ds.Tables.Count > 0 Then
            IdArticleBase = ds.Tables("Liste_Article").Rows(0).Item(0) '##Erreur ici
            ReferenceBase = ds.Tables("Liste_Article").Rows(0).Item(1)
            MsgBox("Id: " & IdArticleBase & " Reference: " & ReferenceBase)
        Else
            MsgBox("Article Inconnu")
        End If
        con.Close()

Mon ds.tables.count m'indique toujours 1, que ma référence existe ou pas.

Merci

10/12/2009, 17h41
Pol63

ds.tables.count indique le nombre de tables dans le dataset (on peut en mettre plusieurs)

pour connaitre le nombre de lignes, c'est ds.tables(0).rows.count

et si ce count vaut 0 et que tu demandes rows(0) ca déclenche l'erreur que tu as

par contre utiliser un dataset pour lire des données c'est contre productif

http://plasserre.developpez.com/cours/vb-net/
10/12/2009, 18h29
Renard-fou

Merci pour votre réponse, je teste ça dés demain.

Citation:

Envoyé par Pol63

par contre utiliser un dataset pour lire des données c'est contre productif

Il faudrait que j'utilise un Datareader alors ?
10/12/2009, 18h33
Pol63

Citation:

Envoyé par Renard-fou

Il faudrait que j'utilise un Datareader alors ?

oui, c'est ce qu'utilise le dataset en interne d'ailleurs
10/12/2009, 18h41
Renard-fou

Citation:

Envoyé par Pol63

oui, c'est ce qu'utilise le dataset en interne d'ailleurs

Mais je me demandais si je pouvais faire comme avec le Dataset, faire une sélection avec WHERE parce que je trouve pas de cours avec la syntaxe du Datareader.
10/12/2009, 21h40
Pol63

tu peux faire ce que tu veux comme requete
tu instancie un command dans lequel tu mets la requete dans la propriété commandtext
puis tu fais reader = command.executereader
et ensuite un while reader.read pour parcourir les lignes retournées par la requete
11/12/2009, 08h11
Renard-fou

Citation:

Envoyé par Pol63

tu peux faire ce que tu veux comme requete
tu instancie un command dans lequel tu mets la requete dans la propriété commandtext
puis tu fais reader = command.executereader
et ensuite un while reader.read pour parcourir les lignes retournées par la requete

Ok je vais faire comme ça.
Merci de votre réponse.