incrementation sur la base du dernier enregistrement

Question

Bonjour,
j'ai une BD access et je veux incrémenter sur la base du dernier enregistrement pour cela j'ai pas de probléme que la base de données contienne des enregistrements.
mais quand la BD est vide je recontre ce bug dans la ligne rouge.

  Dim conn As OleDbConnection New OleDbConnection("provider microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\BD.mdb;")
        Dim cmd As OleDbCommand = conn.CreateCommand()
        cmd.CommandText "SELECT MAX (ID) FROM enfant where NOM'" & Me.TextBox1.Text & "'"
        conn.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        Do While dr.Read()
            Me.TextBox2.Text() = dr.GetInt32(0)
            If (Integer.Parse(TextBox2.Text) < 14) Then
                TextBox2.Text = Integer.Parse(TextBox2.Text) + 1
            End If
        Loop
        dr.Close()
        conn.Close()

voilà l'erreur qui s'affiche "Le cast spécifié n'est pas valide."


merci pour votre aide

ehjoe · Answer

Bonjour,

Be serait-ce pas avec les parenthèses et le (Me = par défaut sur la même form) en moins :

TextBox2.Text = dr.GetInt32(0) 

?

Cordialement.

Joe.

ucfoutu · Answer

Bonjour,
Commence par identifier la cause.
Pour t'y aider :
Lis et utilise ce qui t'est dit ici par MicroMachin

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

NHenry · Answer

Bonjour,

Quand tu utilises un champ qui peut être à Null, il faut d'abord vérifier si sa valeur a été définie, dans ce cas, il faut tester si dr.GetValue(0) est de type DBNull.
J'ai déjà rencontré ce pb.

Sinon, penses aussi à activer Option Strict.

Mon site

germany1970 · Answer

Bonjour,
comment tester dr.GetValue(0) est DBNull.

NHenry · Answer

Bonjour,

If typeof dr.GetValue(0) Is DBNull Then

Mon site

Incrementation sur la base du dernier enregistrement

5 réponses

Votre réponse

Discussions similaires