modifier la structure d'un table sous VBRésolu

Question

Bonjour,

J'utilise le VFPOLEDB que m'a indiqué ThierryPerretier et cela fonctionne bien. Je dois maintenant modifier une table. J'ai fait le code suivant  pour ajouter un champ de 6 caractères:

cnx.Open "Provider=vfpoledb;Data Source=c:"
cnx.Execute "SET NULL OFF"
cnx.Execute "SET EXCLUSIVE ON"
rst.CursorLocation = adUseServer
rst.Open "ALTER TABLE C:	oto.dbf ADD COLUMN n_fic TEXT(6)"

J'ai le message suivant lors de l'execution de la dernière ligne :

Erreur 3709
Impossible d'utiliser cette connexion pour effectuer cette opération. 
Elle est fermée ou non valide dans ce contexte

La table est bien présente avec les bons attributs et lorsque je fais sous VFP :
USE c:\bledina.dbf exclusive
alter table c:\bledina.dbf add column n_fic char(6)

ma table est bien modifiée. 

Merci pour votre aide.

ThierryPerretier · Answer

Bonjour,
Inutile de passer par un RecordSet.

cnx.Open "Provider=vfpoledb;Data Source=c:"
cnx.execute "alter table toto add column n_fic char(6) "

cs_pledoux · Answer

Bonjour,

Oui effectivement cela parait logique lorsque l'on a la solution sous les yeux.

Merci encore.

cs_pledoux · Answer

Bonjour,

Autre question :

J'ai créé un index sur ma table.

Comment je fais pour faire un équivalent de REINDEX sous VB.

Merci

ThierryPerretier · Answer

Bonjour,

La commande REINDEX n'est pas autorisé par le driver VFPOLEDB.

Une solution consiste à créer un DLL en VFP.



DEFINE CLASS fox AS session OLEPUBLIC

PROCEDURE reindex(cTable as string)
   Use (ctable) Excl
   Reindex
   Use
ENDPROC

ENDDEFINE



Puis en VB :



Set oFox = CreateObject("fox.fox")
oFox.reindex c:	able

legenidt · Answer

Bonsoir tous le monde , s'il vous j'ai un problème , je ne connais pas le code pour les boutons modifie et annuler sur un ecran de saisie.

Modifier la structure d'un table sous VB

5 réponses

Votre réponse

Discussions similaires