Problème avec FillSchema

Version imprimable

Bonjour à tous,

J'essaie tant bien que mal de me sortir de ce pétrin mais rien à y faire c'est la galère. Je lutte depuis maintenant 3 semaines sur un problème d'affichage de données d'environ 15000 enregistrements pour une DataGrid.
Après mainte et mainte recherche et message on m'a orienté vers le mode virtuel (ce qui me semble le plus approprié) et aujourd'hui me revoilà pour énième problème qui est le suivant :

Pour info j'ai récupéré le code source sur le msdn de microsoft (implémenter le mode virtuel dans le contrôle DataGridView Windows Forms)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public ReadOnly Property Columns() As DataColumnCollection Get ' Return the existing value if it has already been determined. If columnsValue IsNot Nothing Then Return columnsValue End If ' Retrieve the column information from the database. command.CommandText = "SELECT * FROM " & tableName 'Dim adapter As New SqlDataAdapter() Dim adapter As New OdbcDataAdapter adapter.SelectCommand = command Dim table As New DataTable() table.Locale = System.Globalization.CultureInfo.InvariantCulture adapter.FillSchema(table, SchemaType.Source) columnsValue = table.Columns Return columnsValue End Get End Property
Cette fonction (me semble t-il) récupère les noms de champs contenu dans la table, j'utilise une bdd interbase (*.gdb) le code que j'ai récupéré est pour sql server donc j'essaie de l'adapter mais avec mon p'tit cerveau c'est pas gagné. Le problème vient de la ligne que j'ai mis en rouge "adapter.FillSchema(table, SchemaType.Source)" j'ai un message d'erreur qui est le suivant "FillSchema : la propriété SelectCommand.Connection n'a pas été initialisée.".

Merci d'avance à tous.

PS : Je débute en .Net et à part m'arracher les cheveux c'est tout ce que j'arrive à faire. Elle est ou l'astuce pour devenir un vrai développeur ? Il faut avoir un BAC +10 ou s'appeler heinstein ?

Jb_One73

30/08/2008, 01h59
tomlev

Citation:

Envoyé par Jb_One73

"FillSchema : la propriété SelectCommand.Connection n'a pas été initialisée.".

ben il faut l'initialiser :roll:
Tu dois sans doute avoir une variable de type OdbcConnection quelque part (appelons là cnx), il faut l'affecter à la propriété Connection de la commande :

Code:

command.Connection = cnx

Citation:

Envoyé par Jb_One73

PS : Je débute en .Net et à part m'arracher les cheveux c'est tout ce que j'arrive à faire. Elle est ou l'astuce pour devenir un vrai développeur ? Il faut avoir un BAC +10 ou s'appeler heinstein ?

Tu pourrais commencer par là ;)
http://dotnet.developpez.com/cours/

Tout d'abord merci tomlev pour tes réponses j'ai effectué la modif et cela à bien fonctionné en revanche maintenant j'ai un nouveau problème.
Est-ce que tu pourrais me donner un nouveau coup de main ?

Voici le code en question :

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
Public Function SupplyPageOfData( _
        ByVal lowerPageBoundary As Integer, ByVal rowsPerPage As Integer) _
        As DataTable Implements IDataPageRetriever.SupplyPageOfData
 
        ' Store the name of the ID column. This column must contain unique 
        ' values so the SQL below will work properly.
        If columnToSortBy Is Nothing Then
            columnToSortBy = Me.Columns(0).ColumnName
        End If
 
        If Not Me.Columns(columnToSortBy).Unique Then
            Throw New InvalidOperationException(String.Format( _
                "Column {0} must contain unique values.", columnToSortBy))
        End If
 
        ' Retrieve the specified number of rows from the database, starting
        ' with the row specified by the lowerPageBoundary parameter.
        command.CommandText = _
            "Select Top " & rowsPerPage & " " & _
            CommaSeparatedListOfColumnNames & " From " & tableName & _
            " WHERE " & columnToSortBy & " NOT IN (SELECT TOP " & _
            lowerPageBoundary & " " & columnToSortBy & " From " & _
            tableName & " Order By " & columnToSortBy & _
            ") Order By " & columnToSortBy
        adapter.SelectCommand = command
 
        Dim table As New DataTable()
        table.Locale = System.Globalization.CultureInfo.InvariantCulture
        adapter.Fill(table)
        Return table
 
    End Function

Le problème vient lors de l'éxecution de "adapter.Fill(table)" j'ai le message suivant :
"ERROR [HY000] [ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, char 12 16"

C'est pas simple, je crois que j'essaie de faire des choses qui sont plus pour les développeurs confirmés que par un débutant.

Je te remercie d'avance.

Jb_One73

31/08/2008, 14h45
tomlev

à mon avis c'est le mot-clé TOP qui n'est pas reconnu... ce n'est pas du SQL standard, tu es sûr que ça existe sous Firebird ?