Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1183 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  requete SQL avec VB

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

requete SQL avec VB

n°1316874
sany66
Posté le 02-03-2006 à 12:19:25  profilanswer
 

Bonjour à tous,
 
Je débute dans la programmation et je connais mes premières galères....
Alos voilà mon problème: je veux faire une requete SQL (pour interroger une base de données access) via VB et renvoyer le résultat sous excel.
J'ai fait tous les paramétrages (acces aux librairies) mais c'est la requete en elle même qui me pose problème.
voilà où j'en suis:
 
Sub ExtractFromAccess_DAo()
Dim Db1 As Database
Dim qdf As QueryDef
Dim rs1 As Recordset
Dim chSQL As String
 
Set Db1 = DBEngine.OpenDatabase("C:\Documents and Settings\Propriétaire\Mes documents\extr31bis.mdb" )
Set rs1 = Db1.OpenRecordset("SELECT * FROM [titi] WHERE [trade ID]>#01/03/2006#" )
 
Set qdf = Db.CreateQueryDef([Date], chSQL)
 
'j'exporte vers le fichier
DoCmd.OutputTo acOutputQuery, [Date], acFormatXLS, "C:\Documents and Settings\Propriétaire\Mes documents\resultat.xls", False
Set qdf = Nothing
 
End Sub
 
La ligne en rouge bloque! (en fait je veux créer une nouvelle requete s'appelant "date".
Ensuite, il me dit ne pas connaitre "Date" => mais c'est le nom que je veux donner à ma nouvelle requete donc forcément il ne la connait pas. J'ai donc du faire une erreur quelque part....
 
Si qqun peut m'aider ça serait vraiment sympa...
Merci d'avance à ceux qui se pencheront sur mon p'tit problème  

mood
Publicité
Posté le 02-03-2006 à 12:19:25  profilanswer
 

n°1317084
Profil sup​primé
Posté le 02-03-2006 à 15:52:50  answer
 


Set qdf = Db1.CreateQueryDef([Date], chSQL)    
 
 
 :D

n°1318851
sany66
Posté le 05-03-2006 à 11:08:30  profilanswer
 

merci pour ta remarque mais j'ai déjà corrigé l'erreur.
En fait ce que je ne comprends pas bien c'est comprends introduire la

n°1318854
sany66
Posté le 05-03-2006 à 11:12:22  profilanswer
 

désolée un petit loupé !!!
je reprends donc...
ce que je ne comprends pas bien c'est comment introduire la requete SQL dans le code?
Est ce que je dois l'écrire deux fois?
une 1ere fois dans
Set rs1 = Db1.OpenRecordset("SELECT * FROM [titi] WHERE [trade ID]>#01/03/2006#" )  
et une 2ème dans:
chSQL = "SELECT * FROM [titi] WHERE [trade ID]>#01/03/2006#"
 
Sais tu comment initialiser une requete SQL?
et comment l'activer ensuite?
 
merci bcp !

n°1318874
Profil sup​primé
Posté le 05-03-2006 à 11:38:34  answer
 

Code :
  1. Dim MaBaseDeDonnées As DataBase
  2. Dim MonRecordSet As RecordSet
  3. Set MaBaseDeDonnées = OpenDataBase("c:\mabase.mdb",False)
  4. Set MonRecordSet = MaBaseDeDonnées.OpenRecordSet("SELECT * FROM [titi] WHERE [trade ID]>#01/03/2006#",dbOpenDynaset)
  5. While Not MonRecordSet.EOF
  6.    ' Action
  7.  
  8.    MonRecordSet.MoveNext
  9. Wend
  10. MonRecordSet.Close


Message édité par Profil supprimé le 05-03-2006 à 11:38:48

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  requete SQL avec VB

 

Sujets relatifs
requete "insert" dans microsoft sql server avec PHPimporter un base access dans SQL serveur 2005 express
requete sql complexe[RESOLU]probleme de recuperation des lignes d'une requete mysql
Execution de requetele max du max du max : requête un peu dur
XSLT, NameSpace et Requete XPath ca marche pasAide sur une requete
[SQL Server] Conversion somme en lettresProblème de requete
Plus de sujets relatifs à : requete SQL avec VB


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR