Insertion de champs dans une base de donnée
michel97600
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai développé une application avec vb6 qui accède à une base de donnée Access
Je souhaiterai insérer dans une table existante, un nouveau champ.
J'ai mis la procédure suivante :
Set db = New ADODB.Connection
db.Provider = "Microsoft.jet.oledb.4.0"
db.ConnectionString = CheminBase & MaBd
db.Open
On Error GoTo AlterTableX1_Error
nomchamp = ""
nomchamp = "mt" & TAXE.Text 'val
If TAXE.Text = "" Then
MsgBox "Erreur, " & " veuillez indiquer le nom de la taxe à créer ! ! !", vbInformation, Space(28) & "ATTENTION"
Taux.Text = ""
Exit Sub
End If
If MsgBox("Créer ce nouveau champ ?", vbYesNo, Space(10) & "INFORMATION") = vbNo Then Exit Sub
db.Execute "ALTER TABLE DétailsC50 ADD COLUMN " & nomchamp & " CURRENCY;"
'ALTER TABLE DétailsC50
Call deconnect
nomchamp = ""
Taux.Text = ""
Exit Sub
Mon nouveau champ est bien crée, mais à la fin. Or, je voudrai que ce champ soit inséré en avant dernière position (le dernier champ étant un champ commentaires). Es ce possible ?
Je vous remercie de votre aide
Bien Cordialement
Michel97600
J'ai développé une application avec vb6 qui accède à une base de donnée Access
Je souhaiterai insérer dans une table existante, un nouveau champ.
J'ai mis la procédure suivante :
Set db = New ADODB.Connection
db.Provider = "Microsoft.jet.oledb.4.0"
db.ConnectionString = CheminBase & MaBd
db.Open
On Error GoTo AlterTableX1_Error
nomchamp = ""
nomchamp = "mt" & TAXE.Text 'val
If TAXE.Text = "" Then
MsgBox "Erreur, " & " veuillez indiquer le nom de la taxe à créer ! ! !", vbInformation, Space(28) & "ATTENTION"
Taux.Text = ""
Exit Sub
End If
If MsgBox("Créer ce nouveau champ ?", vbYesNo, Space(10) & "INFORMATION") = vbNo Then Exit Sub
db.Execute "ALTER TABLE DétailsC50 ADD COLUMN " & nomchamp & " CURRENCY;"
'ALTER TABLE DétailsC50
Call deconnect
nomchamp = ""
Taux.Text = ""
Exit Sub
Mon nouveau champ est bien crée, mais à la fin. Or, je voudrai que ce champ soit inséré en avant dernière position (le dernier champ étant un champ commentaires). Es ce possible ?
Je vous remercie de votre aide
Bien Cordialement
Michel97600
A voir également:
- Insertion de champs dans une base de donnée
- Base de registre - Guide
- Formules mathématiques de base - Télécharger - Études & Formations
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion filigrane word - Guide
