'Cocher "Microsoft ADO Ext ...." dans les références du projet
Sub ADOCreateTable()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
' Ouverture du catalogue
cat.Activeconnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\Comptoir.mdb;"
' Création d'un nouvel objet Table.
With tbl
.Name = "Contacts"
' Création des champs et les ajouter au nouvel objet
' Table. Cette tâche doit être effectuée avant l'ajout de
' l'objet Table à la collection Tables du
' catalogue.
.Columns.Append "Contact", adVarWChar
.Columns.Append "Fonction", adVarWChar
.Columns.Append "Téléphone", adVarWChar
.Columns.Append "Notes", adLongVarWChar
.Columns("Notes").Attributes = adColNullable
End With
' Ajout de la nouvelle table à la base de données.
cat.Tables.Append tbl
Set cat = Nothing
End Sub
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 15 sept. 2005 à 17:47
Dim ADO As ADODB.Connection
Dim CMD As ADODB.Command
Dim RCS As ADODB.Recordset
Dim BD As String
dim variable as string
BD = "C:\Documents and Settings\Thomas\Mes documents\Mes Base de données\mcm.mdb"
Set ADO = New ADODB.Connection
Set CMD = New ADODB.Command
Set RCS = New ADODB.Recordset
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 14 sept. 2005 à 18:33
Je ne pense pas, mais c'est pas très compliqué de copier toutes les
colonnes déjà présente : il suffit de parcourir la collection des
Columns et de les recréer à l'identique dans la table de destination
(sans oublier de définir les propriétés de chaque table bien entendu) :
For Each oTable In tblSrc.Columns
Call tblDest.Append(oTable.Name)
Next oTable
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 14 sept. 2005 à 18:56
Pour dupliquer une table, il reste le bon vieux SQL :
"SELECT * INTO TableDestination FROM TableSource"
TableDestination sera créée avec le contenu de TableSource si elle n'existe pas. A toi de vérifier car si elle existe déjà, erreur. De là, un choix : on la détruit avec "drop table TableDestination" ou on lui donne un autre nom.
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
cs_moi4975
Messages postés109Date d'inscriptionlundi 27 juin 2005StatutMembreDernière intervention17 juillet 2007 14 sept. 2005 à 19:04
merci et comman dois je utiliser ca sur un objet command par exemple ?
Je dois faire une connexion et puis ou est ce que je dois rajouter cette ligne ?
Dim ADO As ADODB.Connection
Dim CMD As ADODB.Command
Dim RCS As ADODB.Recordset
Dim BD As String
BD = "C:\Documents and Settings\Thomas\Mes documents\Mes Base de données\mcm.mdb"
Set ADO = New ADODB.Connection
Set CMD = New ADODB.Command
Set RCS = New ADODB.Recordset
cs_moi4975
Messages postés109Date d'inscriptionlundi 27 juin 2005StatutMembreDernière intervention17 juillet 2007 15 sept. 2005 à 17:35
Quand je remplace dans le code ci-dessus cela fonctionne mais RCS ne s'ouvre plus logique
Alors j'ai essayer le code ci-dessous mais ca ne fonctionne pas
pouvez vous m'aider ??
ha oui autre question peut t'on remplacer le nom de la nouvelle table par une variable ??? si oui comment ?
Dim ADO As ADODB.Connection
Dim CMD As ADODB.Command
Dim RCS As ADODB.Recordset
Dim BD As String
BD = "C:\Documents and Settings\Thomas\Mes documents\Mes Base de données\mcm.mdb"
Set ADO = New ADODB.Connection
Set CMD = New ADODB.Command
Set RCS = New ADODB.Recordset