Codification pour insertion d'une nouvelle ligne

Signaler
-
 Utilisateur anonyme -
Bonjour,
J'ai un petit soucis que je n'arrive pas à résoudre.... C'est certainement une erreur de débutant mais bon.... Ca fait 2 jours que je suis dessus et là je vais craquer! Vous trouverez le code ci après... Si quelqu'un a une idée, je suis preneur!

Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strConnexion As String = "Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|lotis.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim strRequete As String = "SELECT * FROM client ORDER BY numero"
        Dim oConnection As New SqlConnection(strConnexion)
        oConnection.Open()

            ' Chargement de la liste des catégories dans oDataSet
            Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, oConnection)
        Dim oDataSet As New DataSet("lotisDataset")
        oSqlDataAdapter.Fill(oDataSet, "clienttableadapter")

        ' Remplissage de la commande InsertCommand
        oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO client(numero) Values(@numero)", oConnection)
        oSqlDataAdapter.InsertCommand.Parameters.Add("@numero", SqlDbType.Char, 15, "numero")


code en erreur!

La référence d'objet n'est pas définie à une instance d'un objet.
        newclientRow("numero") = "ALFKI"

        oDataSet.Tables("client").Rows.Add(newClientRow)




        ' Mise à jour de la source de données à partir du DataSet
        oSqlDataAdapter.Update(oDataSet, "client")

        ' Rechargement des données de la source mise à jour
        oDataSet.Clear()
        oSqlDataAdapter.Fill(oDataSet, "client")

        Dim j As Integer
        For j = 0 To (oDataSet.Tables("client").Rows.Count) - 1
        Next j

        oConnection.Close()

    End Sub 'Main        

    Private Function newClientRow() As DataRow
        Throw New NotImplementedException
    End Function

End Class


le code erreur:La référence d'objet n'est pas définie à une instance d'un objet.
exception nullreferenceexception..

Merci!

4 réponses


La ligne qui ne va pas bien...

Dim newclientRow As DataRow = oDataSet.Tables("Client").NewRow()
Messages postés
14816
Date d'inscription
lundi 11 juillet 2005
Statut
Modérateur
Dernière intervention
23 octobre 2020
92
Hello,
J'ai déplacé ta demande dans la section VB.net.
Je me suis également permis de rajouter les balises code (4e icone au-dessus de la zone de texte). Merci d'y penser la prochaine fois.
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut

Difficile à lire ton code il manque une partie


La ligne qui ne va pas bien...
Dim newclientRow As DataRow = oDataSet.Tables("Client").NewRow()

la ligne est correcte

où se trouve cette ligne dans le code ?

Salut,

Active Option Strict et Option Explicit dans les propriétés de ton projet, corrige ton code et reviens si encore en difficulté.

Un bonjour à cs_ShayW ;)