BC30002: Type 'x' is not defined.

Version imprimable

29/10/2009, 13h36
Lenn0x

BC30002: Type 'x' is not defined.

Bonjour,

Tout d'abord je tient à préciser que je débute en ASP ;)
J'ai réalisé une application web qui permet la gestion de clients. En local elle fonctionne sans problème mais une fois mise en ligne j'ai le message suivant qui s'affiche :

Citation:

Compiler Error Message: BC30002: Type 'ClientTableAdapter' is not defined.

Et j'ai beau chercher je trouve pas d'où cela peut venir :cry: c'est pourquoi je sollicite votre aide :D

Merci.

p.s:J'utilise visual web developer 2008 epress edition et microsoft sql server 2008
29/10/2009, 13h42
Nicopilami

Hello

-> Question bête pour commencer : es-tu sur d'avoir envoyé tous tes fichiers sur le serveur ? Apparemment il manque au système la déclaration du type "ClientTableAdapter", ou n'as-tu pas oublié de définir la version d'ASP.NET à utiliser dans IIS ?

-> peux-tu nous montrer le code qui pose problème ?

bye
Nico

Salut Nico et merci pour ta réponse,

Alors oui je suis sur que tous mes fichiers sont sur le serveur, par contre pour IIS je peux pas te répondre car j'ai juste un accès ftp sur le compte d'un ami pour qui j'ai fait cette application (hébergeur 1&1 tout ce que je sais)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports MyAppTableAdapters
 
Partial Class ListeClient
    Inherits System.Web.UI.Page
 
    Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
        bt_Rechercher_Click(sender, e)
        GridView1.PageIndex = e.NewPageIndex
    End Sub
 
    Protected Sub bt_Rechercher_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_Rechercher.Click
        Dim choix As Short = 0
        Dim source As String = ""
        Dim clientsAdapter As New ClientTableAdapter
 
        If tb_NoCarte.Text IsNot "" Then
            choix += 4
        End If
        If tb_Nom.Text IsNot "" Then
            choix += 2
        End If
        If tb_Prenom.Text IsNot "" Then
            choix += 1
        End If
 
        Try
            Select Case (choix)
                Case 0 : GridView1.DataSource = clientsAdapter.GetClients()
                Case 1 : GridView1.DataSource = clientsAdapter.GetClientsByPrenom(tb_Prenom.Text)
                Case 2 : GridView1.DataSource = clientsAdapter.GetClientsByNom(tb_Nom.Text)
                Case 3 : GridView1.DataSource = clientsAdapter.GetClientsByNomPrenom(tb_Nom.Text, tb_Prenom.Text)
                Case 4 : GridView1.DataSource = clientsAdapter.GetClientsByNoCarte(tb_NoCarte.Text)
                Case 5 : GridView1.DataSource = clientsAdapter.GetClientsByNoPrenom(tb_NoCarte.Text, tb_Prenom.Text)
                Case 6 : GridView1.DataSource = clientsAdapter.GetClientsByNoNom(tb_NoCarte.Text, tb_Nom.Text)
                Case 7 : GridView1.DataSource = clientsAdapter.GetClientsByAll(tb_NoCarte.Text, tb_Nom.Text, tb_Prenom.Text)
            End Select
 
            GridView1.DataBind()
 
            If GridView1.Rows.Count = 0 Then
                msg.Text = "<p class='msg warning'>Il n'y a aucun enregistrement de données à afficher.</p>"
            Else
                msg.Text = ""
            End If
 
        Catch ex As Exception
            msg.Text = "<p class='msg error'>Erreur : " & ex.Message & "</p>"
        End Try
    End Sub
End Class

Voila un bout de code mais j'ai le même problème sur toutes les pages où j'ai

Code:

Dim clientsAdapter As New ClientTableAdapter

29/10/2009, 14h48
Nicopilami

à premiere vue et sans être sorcier, je dirais que ton pb vient du

Code:

Imports MyAppTableAdapters

car ta déclaration de l'objet ClientTableAdapter est dedant, je me trompe ?
29/10/2009, 14h59
Lenn0x

Oui effectivement mon ClientTableAdapter est bien dedans (j'ai suivit ce tuto).