Discussion :

[mikeGo20]

Bonjour

Je dois modifier (en VBA) la structure de certaines tables dBase IV.

Les opérations "ADD" et "DROP" fonctionnent à merveille, mais pour ce qui est du "ALTER TABLE", je provoque dans Microsoft Access (version 2003) le message d'erreur suivant:

"[Microsoft][Pilote ODBC dBase] Opération non autorisée pour ce type d’objet."

Après bien des recherche, je me retrouve devant aucune piste de solution ....

Avez-vous déjà rencontré ce problème ?

Voici donc le code de base qui me sert actuellement dans mon cheminement.

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
 
Function ModifDBF()
On Error GoTo Err_ModifDBF
 
 
Dim Cn As ADODB.Connection
Dim Chemin As String, strNomTable As String
Dim MonSQL As String
 
Chemin = "C:\Temp\"
strNomTable = "Mike_A.dbf"
 
Set Cn = New ADODB.Connection
 
Cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Chemin & ";"
 
MonSQL = "ALTER TABLE " & strNomTable & " ALTER Mike Int"
'MonSQL = "ALTER TABLE " & strNomTable & " Add Mike Char(10)"
'MonSQL = "ALTER TABLE " & strNomTable & " DROP Mike"
 
Cn.Execute MonSQL
 
Cn.Close
 
Exit_ModifDBF:
    Exit Function
 
Err_ModifDBF:
    MsgBox Err.Description
    Resume Exit_ModifDBF
 
End Function

Merci de venir à mon aide ...

Mike

[argyronet]

Bonjour,

Que veux-tu faire avec ton ALTER ?
La syntaxe inscrite me semble étrange.

Moi je verrais plutôt un

Code :

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

MonSQL = "ALTER TABLE " & strNomTable & " ADD COLUMN textField20 VARCHAR(255) NULL;"

ou

Code :

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

MonSQL = "ALTER TABLE " & strNomTable & " ALTER COLUMN " & strFieldName &" TEXT(255);"

Je n'ai plus la syntaxe exacte vu l'ancienneté de DB IV mais ça doit s'approcher.

si DB IV n'est plus, alors importe tes tables dans des tables Access et manipule les avec DAO...

Argy

[mikeGo20]

Bonjour argyronet

Question de syntaxe pour dBase, pour passer à 20 caractères, je peux utiliser plusieurs syntaxes sans provoquer d'erreur tel :

'MonSQL = "ALTER TABLE " & strNomTable & " Add " & strNomChamp & " Char(20)"

'MonSQL = "ALTER TABLE " & strNomTable & " Add Column " & strNomChamp & " Char(20)"

'MonSQL = "ALTER TABLE " & strNomTable & " Add " & strNomChamp & " Text(20)"

Et si je fais un erreur de syntaxe, je reçois un message approprié ...

La syntaxe est donc validé avant l'exécution de la commande....

Merci ... et je cherche encore ....

[mikeGo20]

Même message d'erreur en utilisant une autre méthode de connection ADO

Code :

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

1
2
3
4
5
 
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & Chemin & ";" & _
                   "Extended Properties=""DBASE IV;"";"

Je vais regarder vers DAO comme proposé par argyronet .....

[loufab]

C'est normal.
http://www.developpez.net/forums/d12...artir-daccess/

[mikeGo20]

Le test avec les objets DAO est identique.

Les commandes ADD et DROP fonctionnent super bien.

Mais je ne parviens toujours pas à modifier la taille de mon champ "MIKE" à 20 caractères, le système me retournant presque le même message

"Opération non autorisée pour ce type d’objet."

Voici le code utilisé .....

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
Function ModifDBF_DAO()
On Error GoTo Err_ModifDBF_DAO
 
Dim cn As DAO.Database
Dim MaTable As Database
Dim Chemin As String, strNomTable As String, strNomChamp As String
Dim MonSQL As String
 
Chemin = "C:\Temp\"
strNomTable = "Mike_A.dbf"
strNomChamp = "MIKE"
 
Set cn = DBEngine.OpenDatabase (Chemin, True, False, "dBase IV;")
 
MonSQL = "ALTER TABLE " & strNomTable & " ALTER " & strNomChamp & " Char(20)"
'MonSQL = "ALTER TABLE " & strNomTable & " ADD " & strNomChamp & " Char(30)"
'MonSQL = "ALTER TABLE " & strNomTable & " DROP " & strNomChamp & "
 
cn.Execute MonSQL
cn.Close
 
Exit_ModifDBF_DAO:
    Exit Function
 
Err_ModifDBF_DAO:
    MsgBox Err.Description
    Resume Exit_ModifDBF_DAO
 
End Function

Pour loufab: j'ai bien regardé le lien que tu m'a proposé, mais mon neuronne n'y trouve pas de piste évidente
Pourrais-tu élaborer ?

Merci encore de vous pencher sur mon cas .....

[loufab]

Bonjour,

Tu ne peux pas modifier la structure d'un champ DBF depuis ACCESS. Je suis même étonné que Add et Drop fonctionne. C'est peut-être dû au pilote de la IV ?!

Il te faut passer par une série de requêtes pour créer une nouvelle colonne de 20 caractères dans une nouvelle table (dbf) puis faire le transfert des données.

D'où le lien que je t'ai fourni.

Cordialement,

[mikeGo20]

Merci loufab ....

tu viens de confirmer ce que je redoutais ....

On va devoir faire autrement ....

À la prochaine

[loufab]

Tu as justement la solution dans le lien...