Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Requête sql dans visual basic

elodie
07/05/03 10:01
Bonjour,

Objectif de la requête : J'ai créé des tables sous ACCESS et je souhaite rappatrier des données dans ces tables à partir de d'autre stables. Etant donnée que j'ai plusieurs tables à alimenter, j'ai utilisé une boucle.

Voici ma requête :


Option Compare Database
Option Explicit

Function export()
Dim MaBD As Database
Dim temp As QueryDef
Dim per As Variant
Dim listper As Variant


Set MaBD = DBEngine.Workspaces(0).Databases(0)

Set temp = MaBD.CreateQueryDef("tempo")

listper = Array("199711", "199712", "199713", "199721", "199722", "199723")
listper = Array("199731", "199732", "199733", "199741", "199742", "199743")
listper = Array("199811", "199812", "199813", "199821", "199822", "199823")
listper = Array("199831", "199832", "199833", "199841", "199842", "199843")
listper = Array("199911", "199912", "199913", "199921", "199922", "199923")


For Each per In listper


temp.SQL = "INSERT INTO " & per & " SELECT ADMIN_TB_CMENS.* FROM ADMIN_TB_CMENS WHERE (((CM_PERORI)=" & per & "));"

MaBD.Execute (temp.SQL)


Next

DoCmd.DeleteObject A_QUERY, "tempo"

End Function


J'ai un souci avec "MaBD.Execute (temp.sql)"
SujetAuteurEnvoyé le

Requête sql dans visual basic

elodie07/05/03 10:01

Re: Requête sql dans visual basic

Hervé Inisan07/05/03 17:26

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter