Ajout d'un enregistrement

**xzéna** · 08/03/2009, 19h46

salut à tous,

J'ai un probléme qui cesse pas à me perturbé soit en mon application ADO.net ou en ASP.net.

voilà,lorsque j'inclus mes codes qui sont tout à fait juste ce msg d'erreur se lancera

La reference d'objet n'est pas définie à une reference d'objet

SVP, aidez moi à trouver la solution et voilà le code que j'utulise pour ajouter un enregistrement dans ma table:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim dr1 As DataRow
dim ds as new dataset
dim dt as datatable
Dim cnx As SqlConnection = New SqlConnection("data source=.;integrated security=sspi;initial catalog=projet")
        cnx.Open()
 
        cmd.Connection = cnx
 
 
 
        dr1 = ds.Tables("admin").NewRow
        dr1(0) = TextBox1.Text.ToUpper
        dr1(1) = TextBox2.Text.ToUpper
        ds.Tables("admin").Rows.Add(dr1)
 
                Dim dap As New SqlDataAdapter
        dap = New SqlDataAdapter(cmd)
        Dim cb As New SqlCommandBuilder
        cb = New SqlCommandBuilder(dap)
        'dap.Update(ds, "admin")
        dap.Fill(ds, "admin")
        dt = ds.Tables("admin")

merci d'avance pour l'aide

**tomlev** · 08/03/2009, 21h24

A vue de nez, je dirais que tu n'as pas initialisé cmd, qui vaut donc Nothing, donc tu ne peux pas accéder à cmd.Connection

**xzéna** · 09/03/2009, 00h48

si Mr,j'ai déja declarer la connexion ,la command et tout en module:

Public cnx As SqlConnection = New SqlConnection("data source=.;integrated security=sspi;initial catalog=projet")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
   Public cmd As New SqlCommand
    Public dap As New SqlDataAdapter
    Public ds As New DataSet
    Public dt As DataTable
    Public dr As DataRow
    Public cb As New SqlCommandBuilder
    Public i As Integer

mais je sais pas pourquoi,l'erreur reste toujours

**tomlev** · 09/03/2009, 01h00

à quel endroit l'erreur se produit exactement ?

**xzéna** · 09/03/2009, 01h26

oui ,c'est içi------->datarow=dataset.tables("table").Newrow
Merci pour la suivie

**tomlev** · 09/03/2009, 01h33

OK
Donc a priori c'est la table à laquelle tu essaies d'accéder qui n'existe pas encore dans le dataset
Il faut que tu la crées, soit manuellement, soit via un Fill

**xzéna** · 09/03/2009, 01h39

Mais,jetez un coup d'oeil içi Mr,j'ai déja inseré la methode Fill pour remplir mon dataset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim dr1 As DataRow
dim ds as new dataset
dim dt as datatable
Dim cnx As SqlConnection = New SqlConnection("data source=.;integrated security=sspi;initial catalog=projet")
        cnx.Open()
 
        cmd.Connection = cnx
 
 
 
        dr1 = ds.Tables("admin").NewRow
        dr1(0) = TextBox1.Text.ToUpper
        dr1(1) = TextBox2.Text.ToUpper
        ds.Tables("admin").Rows.Add(dr1)
 
                Dim dap As New SqlDataAdapter
        dap = New SqlDataAdapter(cmd)
        Dim cb As New SqlCommandBuilder
        cb = New SqlCommandBuilder(dap)
        'dap.Update(ds, "admin")
        dap.Fill(ds, "admin")     'Içi'
        dt = ds.Tables("admin")

!!!

**xzéna** · 09/03/2009, 01h40

et pour la base et la table ils sont tous juste et existantes!

**tomlev** · 09/03/2009, 09h46

Envoyé par xzéna

Mais,jetez un coup d'oeil içi Mr,j'ai déja inseré la methode Fill pour remplir mon dataset

Tu essaies d'accéder à la table "admin" avant d'avoir fait le Fill, donc à ce stade elle n'existe pas encore dans le dataset

**xzéna** · 09/03/2009, 14h41

Si,c'est pas juste mon code?quelel est sa correction

et merci d'avance

**tomlev** · 09/03/2009, 14h53

Envoyé par xzéna

Si,c'est pas juste mon code?quelel est sa correction

et merci d'avance

Je te l'ai dit : il faut faire cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dap.Fill(ds, "admin")

avant d'accéder à la table "admin" (l'instruction qui plante)

**xzéna** · 09/03/2009, 14h59

ok,un petit essaie ,et je vais vous tiens au courant
merci

**xzéna** · 09/03/2009, 15h06

ça marche plus

ce lien indique le code et l'erreur.
VB.bmp - 2.25MB

**tomlev** · 09/03/2009, 15h49

Visiblement, tu fais exactement la même chose qu'avant... si tu ne tiens pas compte de ce que je te dis, ça va être difficile de t'aider

Envoyé par xzéna

VB.bmp - 2.25MB

Tu devrais plutôt envoyer l'image en PNG ou JPG, ça prend moins de place...

**xzéna** · 09/03/2009, 16h02

enfete,j'essaie à vous comprendre!et pour le code,j'ai tenté ça ,et comme toujours le méme erreur ..et je sais pas si j'ai un probleme d'ordre içi aussi ou quoi??,s'il exsite corrigez le svp,car j'ai vraiment cassé mes dents en ce bloc là

et merci infiniment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 drw = ds.Tables("tab").NewRow() 'creati0n d'une n0uvelle ligne vide dans le dataset
            drw("mat") = Me.TextBox1.Text 'affectation de ce champ appartir textb0x vers la datar0W {n0uvelle ligne}
            drw("nm") = Me.TextBox2.Text 'IDEM  NB :{et 0n peux fair aussi le numer0 de champ au lieu s0n n0m}
            drw("prenm") = Me.TextBox3.Text 'IDEM  NB :{et 0n peux fair aussi le numer0 de champ au lieu s0n n0m}
            ds.Tables("tab").Rows.Add(drw) 'l'aj0ut de la ligne créer dans le dataset
            'création et exécution du commandbuilder
            'pour mettre à jour le DataAdapter
            cb = New SqlCommandBuilder(dap)
            'mise à jour des données du DataAdapter
            'à partir du commandbuilder
 
            dap.Update(ds, "tab") 'faire une mise a j0ur
            ds.Clear() 'vider le dataset
            dap.Fill(ds, "tab") 'recharger le dataadapter
            dt = ds.Tables("tab") 'faire une c0pie de la datatable dans le dataset
            dg.DataSource = dt 'affecter ses d0nner dans datagrid
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""

**tomlev** · 09/03/2009, 16h51

C'est pourtant simple, il suffit de mettre l'instruction dap.Fill(ds, "tab") AVANT d'essayer d'ajouter une ligne à la table

Un dataset qui vient d'être créé ne contient au départ aucune table, tu ne peux donc pas accéder à une table ("tab", "admin" ou autre) avant qu'elle ne soit créée dans le dataset. Le fait de faire un Fill d'une table crée la table si elle n'existe pas

**xzéna** · 09/03/2009, 18h16

ça marche pas

En tout cas merci Mr pour votre aide.
je vais esseyer avec des requettes

Ajout d'un enregistrement

VB.NET

Discussions similaires

Partager

Partager