Discussion :

[xzéna]

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]

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]

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]

à quel endroit l'erreur se produit exactement ?

[xzéna]

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

[tomlev]

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]

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]

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

[tomlev]

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]

Si,c'est pas juste mon code?quelel est sa correction
et merci d'avance

[tomlev]

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]

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