Discussion :

[jlvalentin]

Salut,

Voila, j'ai un souci dans mon appli. L'utilisateur à la possibilité de choisir le format des dates. Donc, pour toutes les données de ma base qui sont de type Date, je dois les afficher avec ce format (libre).
J'ai notamment une MSHFlexGrid avec des colonnes (la aussi, choisie par l'utilisateur). J'ai donc voulu utiliser la méthode OpenSchema pour récuperer le type de la colonne en fonction de son nom. Mais j'ai le message d'erreur suivant lorsque je teste la valeur qui m'est retournée.

Code :

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

1
2
Run-time error '458':
Variable uses an  Automation type not supported in Visual Basic

Voic mon code

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
24
25
26
27
28
With Install_MsHFlexGrid
   .FixedRows = 1
   .TextMatrix(tmp_index, 0) = RsDeal.Fields!IDDeal
   For tmp_col = 1 To 13
      .Row = tmp_index
      .Col = tmp_col
      .CellBackColor = tmp_backcolor
      .CellFontName = tmp_font
      .CellFontSize = tmp_fontsize
      .CellFontBold = False
      .WordWrap = True
      .CellAlignment = 1
      If IsNull(RsDeal.Fields(StrGloContCol(tmp_col))) Then
         .TextMatrix(tmp_index, tmp_col) = "-"
         .CellAlignment = 4
      Else
         Set RsTableSchema = BaseConnect.OpenSchema(adSchemaColumns, Array(Empty, Empty, Empty, StrGloContCol(tmp_col)))
         If RsTableSchema.Fields("DATA_TYPE").Value = adDate Then
            ' Date Format
            .CellAlignment = 4
            .TextMatrix(tmp_index, tmp_col) = _
                  Format(RsDeal.Fields(StrGloContCol(tmp_col)), _
                                        StrGloDateFormat)
         End If
      	 RsTableSchema.Close
      End If
   Next tmp_col
Wend

RsDeal et RsTableSchema sont tous les deux des ADODB.Recordset.
VB m'affiche le message sur la ligne suivante :

Code :

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

         If RsTableSchema.Fields("DATA_TYPE").Value = adDate Then

Y'en a qui comprenne ce qui se passe et ce que cela signifie ? Parce que moi.....

[jlvalentin]

Je n'ai toujours pas compris pourquoi, mais j'ai contouné le problème.
Si quelqu'un sait pourquoi j'ai ce p... de message d'erreur, je suis preneur de l'information.

Pour votre gouverne, j'ai définit une variable de type Integer et j'y ai stocké la valeur de RsTableSchema.Fields("DATA_TYPE").Value .
Et là, le teste fonctionne. Cela donne le code suivant :

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
24
25
26
27
28
29
30
Dim tmp_check	as Integer
With Install_MsHFlexGrid
   .FixedRows = 1
   .TextMatrix(tmp_index, 0) = RsDeal.Fields!IDDeal
   For tmp_col = 1 To 13
      .Row = tmp_index
      .Col = tmp_col
      .CellBackColor = tmp_backcolor
      .CellFontName = tmp_font
      .CellFontSize = tmp_fontsize
      .CellFontBold = False
      .WordWrap = True
      .CellAlignment = 1
      If IsNull(RsDeal.Fields(StrGloContCol(tmp_col))) Then
         .TextMatrix(tmp_index, tmp_col) = "-"
         .CellAlignment = 4
      Else
         Set RsTableSchema = BaseConnect.OpenSchema(adSchemaColumns, Array(Empty, Empty, Empty, StrGloContCol(tmp_col)))
         tmp_check=RsTableSchema.Fields("DATA_TYPE").Value 
         If tmp_check = adDate Then
            ' Date Format
            .CellAlignment = 4
            .TextMatrix(tmp_index, tmp_col) = _
                  Format(RsDeal.Fields(StrGloContCol(tmp_col)), _
                                        StrGloDateFormat)
         End If
      	 RsTableSchema.Close
      End If
   Next tmp_col
Wend

[bidou]

access comme beaucoup de sgbd stocke les dates sous la forme integer et les dates/heure sous la forme single.

[HPJ]

Un stagiaire avait déjà rencontré ce problème... mais on n'avait pas trouver d'explication valable...

[jlvalentin]

Ayant trouvé un palliatif, je vais clore ce sujet. Mais il garde un gout d'inachevé.
En tout les cas, merci pour vos réponses (je me sens moins seul ).

[bidou]

pourquoi un gout d'inachevé ?

[HPJ]

C'est jamais agréable de ne pas connaitre la cause d'une erreur même si on a trouvé une alternative qui fonctionne....

[jlvalentin]

C'est jamais agréable de ne pas connaitre la cause d'une erreur même si on a trouvé une alternative qui fonctionne....

Exactement.