Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
Twitter
iPhone pliant
OnePlus 11
PS5
Disney+
Orange Livebox
Windows 11
Génération NT
Entraide
Développement
Développement
Visual Basic
modifier le type d'un champ access
modifier le type d'un champ access
1 réponse
aprim
02/07/2004 à 16:15
bonjour,
Je recherche un code en VB6 qui modifie automatiquement un champ de type
"texte" en champ "memo"
(en conservant les données bien sur !
merci
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
Zoury
Signaler
05/07/2004 à 21:23
Salut Aprim! :O)
Tu y arriver en utilisant une requête de type ALTER TABLE/ALTER COLUMN :
exemple avec ADO :
'***
' Ajouter la référence Microsoft ActiveX Data Object 2.X Library
' Module1
Option Explicit
Private Sub Main()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:table.mdb;Persist Security Infoúlse")
Call cn.Execute("alter table table1 alter column champs1 memo")
Call cn.Close
Set cn = Nothing
End Sub
'***
exemple avec DAO :
'***
' Ajouter la référence Microsoft DAO 3.X Library
' Module1
Option Explicit
Private Sub Main()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("c:table.mdb")
Call db.Execute("alter table table1 alter column champs1 memo")
Call db.Close
Set db = Nothing
End Sub
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Salut Aprim! :O)
Tu y arriver en utilisant une requête de type ALTER TABLE/ALTER COLUMN :
exemple avec ADO :
'***
' Ajouter la référence Microsoft ActiveX Data Object 2.X Library
' Module1
Option Explicit
Private Sub Main()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:table.mdb;Persist Security Infoúlse")
Call cn.Execute("alter table table1 alter column champs1 memo")
Call cn.Close
Set cn = Nothing
End Sub
'***
exemple avec DAO :
'***
' Ajouter la référence Microsoft DAO 3.X Library
' Module1
Option Explicit
Private Sub Main()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("c:table.mdb")
Call db.Execute("alter table table1 alter column champs1 memo")
Call db.Close
Set db = Nothing
End Sub
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Vous avez filtré cet utilisateur ! Consultez son message
Salut Aprim! :O)
Tu y arriver en utilisant une requête de type ALTER TABLE/ALTER COLUMN :
exemple avec ADO :
'***
' Ajouter la référence Microsoft ActiveX Data Object 2.X Library
' Module1
Option Explicit
Private Sub Main()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:table.mdb;Persist Security Infoúlse")
Call cn.Execute("alter table table1 alter column champs1 memo")
Call cn.Close
Set cn = Nothing
End Sub
'***
exemple avec DAO :
'***
' Ajouter la référence Microsoft DAO 3.X Library
' Module1
Option Explicit
Private Sub Main()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("c:table.mdb")
Call db.Execute("alter table table1 alter column champs1 memo")
Call db.Close
Set db = Nothing
End Sub
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
