Discussion :

[Invité]

Bonjour,
je souhaite passer une champ Access de type numérique en texte sous VB. Or en utilisant un simple

Code :

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

ALTER TABLE Task ALTER COLUMN TaskID varchar(10)

J'obtiens une erreur "system ressources exceeded" (la table à environ 500000 entrées, ça ne m'étonne pas ).

J'ai donc essayé de faire la chose suivante:

Code :

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

db.TableDefs("Task").Fields("TaskID").Type = dbText

Et là c'est l'erreur "3219: Invalid Operation" qui sort.

Pour le moment je contourne le problème avec la création d'une colonne texte additionnelle, copier le contenu de la colonne à modifier vers la nouvelle et changer les noms. Mais c'est bien lourd.
Y a-t-il moyen de faire ce que je veux sous DAO?

[Phifi]

Bonjour,

j'ai toujours fait comme ta méthode de contournement. Je ne pense pas que ça puisse marcher si la table contient déjà des données, sauf peut-être si tu passes de Integer à Currency par exemple, mais quid des données si tu veux passer de Currency à Integer déjà ? Alors entre un numérique et un alpha, je ne vois pas comment les données peuvent être conservées/converties

Si quelqu'un a la solution, ça m'intéresse aussi =)

[Delbeke]

Voici la routine que j'utilise pour modifier la taille d'une colonne texte

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
31
32
33
34
35
36
37
38
Public Function StChangeFieldSize(BaseName As String, TableName As String, FieldName As String, NewSize As Integer)
    'BaseName  = nom de la base
    'TableName = nom de la table
    'FieldName = nom du field
    'NewSize = nouvelle taille
    Dim Dbse As dao.Database
    Dim Tble As dao.TableDef
    Dim F1 As dao.Field
    Dim F2 As dao.Field
    Dim OldPos As Integer
    Set Dbse = dao.OpenDatabase(BaseName)
    Set Tble = Dbse.TableDefs(TableName)
    On Error GoTo erreurStChangeFieldName
    Set F1 = Tble.Fields(FieldName)
    If F1.Size = NewSize Then Exit Function 'deja fait
    OldPos = F1.OrdinalPosition
 
    Set F2 = Tble.CreateField("Temp", dbText, NewSize)
    Tble.Fields.Append F2
    Dbse.Execute "update [" & TableName & "] set Temp=[" & FieldName & "]"
    Tble.Fields.Delete FieldName
    F2.Name = FieldName
    F2.OrdinalPosition = OldPos
    On Error GoTo 0
    StChangeFieldSize = 0
SortChangeFieldSize:
    Dbse.Close
    Exit Function
erreurStChangeFieldName:
    StChangeFieldSize = -1
        MsgBox "Erreur n° " & Str$(Err) & vbCrLf & Err.Description, , _
               "SqChangeFieldSize(" & BaseName & "," & _
                                 TableName & "," & _
                                 FieldName & "," & _
                                 NewSize & ")"
    Resume SortChangeFieldSize
 
End Function

Cette routine melange du dao et du sql pour plus d'efficatité
Tu peux t'en inspirer pour resoudre ton problème.

[Invité]

Bonjour,
j'ai toujours fait comme ta méthode de contournement. Je ne pense pas que ça puisse marcher si la table contient déjà des données

Pourtant sous Access, ça se passe sans problème ce genre de conversion (avec des données en numérique).
C'est pour ça que je me suis acharné à essayer de faire la conversion directement.

[Delbeke]

Access ne convertit pas les colonnes, En interne, il crée une nouvelle colonne, la remplis avec les données de l'ancienne, et finalement supprime l'ancienne.

[Invité]

Haaaa ok. Merci beaucoup de l'info donc