Copie d'une BD

Signaler
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Code de programmation: VB6

Bonjour,
J'aimerais faire une selection de lignes d'une table d'une BD et la copier dans une autre BD à partir de VB6 comment faire SVP je séche complétement.

Merci d'avance.

Masterpopeye

5 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
peut-etre une requette du genre

INSERT INTO NomTableExterne IN NomBaseExterne SELECT * FROM NomTableOrigine WHERE ConditionDeSelection

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007

Je vais tester je te remercie de ta réponse.

Masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007

Ca ne marche pas voila mon code:

Dim wrkET As Workspace
Dim dtbBase As Database
Dim rstSelect As Recordset
Dim requete As String
Dim itmx As ListItem

Set wrkET = CreateWorkspace("ServeurApplicatif", "Admin", "", "Microsoft.Jet.OLEDB.3.51")

Set dtbBase = wrkET.OpenDatabase("Le chemin de la base1")
Set dtbBase1 = wrkET.OpenDatabase("Le chemin de la base2")
   
 "SELECT INTO [feuille1 de la base2] IN dtbBase1 SELECT * FROM [feuille1 de la base 1] where [Champ1]='Valeur' "
   
Il me donne comme message d'erreur Expected: Line number or label or statement or end of statement.

L'erreur se trouve a  ce niveau :

"SELECT INTO [feuille1 de la base2] IN dtbBase1 SELECT * FROM [

Je ne comprends pas le probéme.
Merci de vos réponses

Masterpopeye
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Ok, il s'agit de bases sous Excel je pense. Je ne connais pas les bases Excel, mais perso, j'aurais plutot écrit ceci :

Set wrkET = CreateWorkspace("ServeurApplicatif", "Admin", "", "Microsoft.Jet.OLEDB.3.51")
Set dtbBase = wrkET.OpenDatabase("Le chemin de la base1")
dtbBase.Execute("INSERT INTO [feuille1 de la base2] IN [Le chemin de la base2] SELECT * FROM [feuille1 de la base 1] WHERE [Champ1]='Valeur' "

Sans garantie, je ne sais pas le mettre en oeuvre pour le tester.

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007

Non c'est une base access, et cela ne marche tjrs pas merci quand meme je vais essayer de bidouiller je mettrais la réponse si je la trouve @+++

Masterpopeye