[VB6] Type de colonne Access sous VB ?

Version imprimable

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:

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

Voic mon code
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 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:

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..... :oops:

Je n'ai toujours pas compris pourquoi, mais j'ai contouné le problème.
Si quelqu'un sait pourquoi j'ai ce p... :furieux: 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:

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

03/02/2005, 17h59
bidou

access comme beaucoup de sgbd stocke les dates sous la forme integer et les dates/heure sous la forme single.
03/02/2005, 17h59
HPJ

Un stagiaire avait déjà rencontré ce problème... mais on n'avait pas trouver d'explication valable... :?
04/02/2005, 09h22
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 :lol: ).
04/02/2005, 09h23
bidou

pourquoi un gout d'inachevé ?
04/02/2005, 10h05
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....
04/02/2005, 11h10
jlvalentin

Citation:

Envoyé par 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....

Exactement.