Problème requêtes SQL via VBA [Résolu]
pitipilot
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
A voir également:
- Dtpicker1_callbackkeydown
- Flash : Gestion de requete sql via flash - CodeS SourceS - Guide
- Requete sql excel vba - Guide
- Requete SQL via LINQ ✓ - Forum - VB.NET
- Boucler une requete sql sous vba ✓ - Forum - VBA Office (Excel, Word ...)
- Deux requêtes SQL en VBA dans la même requête ✓ - Forum - Visual Basic 6
20/35 réponses
Meilleure réponse
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
- Membre
- Dernière intervention
- 30 octobre 2013
Question Ma chaine "champ2" retourne quelques fois une valeur null
Rponse : Je pense que Open "SELECT * FROM Actions_OPE IS NOT NULL" devrais marcher mais dans le cas contraire
if not isnull( rs!TimeStmp
) then champ0 = rs!TimeStmp
if not isnull(rs!MessageText
) then champ1 = rs!MessageText
if not isnull(rs!UserID
) then champ1 = rs!MessageText
champ2 = rs!UserID
Question J'aimerais extraire de ma BDD seulement les champ à une date donnée.
Réponse : "WHERE TIMEstmp = 'DateVoulue'" Mais suis pas sursur. Tout dépand si ton champs TIMEstmp est de type date ou de type texte
Pour la troisième question je ne sais pas.
Rponse : Je pense que Open "SELECT * FROM Actions_OPE IS NOT NULL" devrais marcher mais dans le cas contraire
if not isnull( rs!TimeStmp
) then champ0 = rs!TimeStmp
if not isnull(rs!MessageText
) then champ1 = rs!MessageText
if not isnull(rs!UserID
) then champ1 = rs!MessageText
champ2 = rs!UserID
Question J'aimerais extraire de ma BDD seulement les champ à une date donnée.
Réponse : "WHERE TIMEstmp = 'DateVoulue'" Mais suis pas sursur. Tout dépand si ton champs TIMEstmp est de type date ou de type texte
Pour la troisième question je ne sais pas.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1211
- Date d'inscription
- dimanche 20 avril 2003
- Statut
- Membre
- Dernière intervention
- 4 juin 2016
Tu peux aussi faire:
"WHERE DAY(Timestmp) " & DAY(Tridate) & " AND MONTH(TimeStmp) " & MONTH(Tridate)
ajoutes l'année sur le même principe s'il y a lieu.
Calade
"WHERE DAY(Timestmp) " & DAY(Tridate) & " AND MONTH(TimeStmp) " & MONTH(Tridate)
ajoutes l'année sur le même principe s'il y a lieu.
Calade
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1211
- Date d'inscription
- dimanche 20 avril 2003
- Statut
- Membre
- Dernière intervention
- 4 juin 2016
Bonjour à tous les 2 et désolé de m'immiscer.
Pour ta recherche:
"WHERE TIMEstmp = 'DateVoulue'" ' pas tout à fait
Si date voulue est de type date:
"WHERE TIMEstmp = #" & DateVoulue & "#"
si c'est du caractère
"WHERE TIMEstmp = '" & DateVoulue & "'"
ce qui est sur c'est qu'il faut sortir datevoulue des guillemets.
Calade
Pour ta recherche:
"WHERE TIMEstmp = 'DateVoulue'" ' pas tout à fait
Si date voulue est de type date:
"WHERE TIMEstmp = #" & DateVoulue & "#"
si c'est du caractère
"WHERE TIMEstmp = '" & DateVoulue & "'"
ce qui est sur c'est qu'il faut sortir datevoulue des guillemets.
Calade
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
Merci à vous deux pour vos réponses =)
Concernant les valeurs nulles, le paramètre de requête "IS NOT NULL" n'a pas marché pour moi j'ai donc utilisé ta deuxième solution 4u4me4us et ça a marché =).
Concernant la requête sur la date, lorsque je fais :
[code=vb]"WHERE TIMEstmp = '02/05/2011 14:25:46'code] ça marche nikel.
Et sinon je n'arrive décidemment pas à extraire la valeur de mon calendar (DPICKERS)
Concernant les valeurs nulles, le paramètre de requête "IS NOT NULL" n'a pas marché pour moi j'ai donc utilisé ta deuxième solution 4u4me4us et ça a marché =).
Concernant la requête sur la date, lorsque je fais :
"WHERE TIMEstmp = #" & 02/05/2011 14:25:46 & "#"j'ai un message d'erreur qui me dis : "Erreur de syntaxe" alors que lorsque j'effectue ma requête en string :
[code=vb]"WHERE TIMEstmp = '02/05/2011 14:25:46'code] ça marche nikel.
Et sinon je n'arrive décidemment pas à extraire la valeur de mon calendar (DPICKERS)
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
- Membre
- Dernière intervention
- 30 octobre 2013
Dans ce cas j'avais raison (Avec du bolle) il faut
"WHERE TIMEstmp = '"02/05/2011 14:25:46"'"
Mais là tu commais une grosse erreur d'analyse car ton champs est un string. Il faut le changer en date et mettre ta requête comme Calade te montre.
Tu peux gérer la date pare des string mais c une autres paire de manche.
"WHERE TIMEstmp = '"02/05/2011 14:25:46"'"
Mais là tu commais une grosse erreur d'analyse car ton champs est un string. Il faut le changer en date et mettre ta requête comme Calade te montre.
Tu peux gérer la date pare des string mais c une autres paire de manche.
- Messages postés
- 1211
- Date d'inscription
- dimanche 20 avril 2003
- Statut
- Membre
- Dernière intervention
- 4 juin 2016
Bonjour,
Tu devais avoir une propriété .Value ou .Text.
Si .Value, privilégie-là sur .Text. L1ère devrait ramener la date au format date défini dans ton masque, le second au format caractère.
Mais vérifie dans ton aide, ce que je dis est vrai pour la version VB6 donc pas forcément pour la version .NET.
Calade
Tu devais avoir une propriété .Value ou .Text.
Si .Value, privilégie-là sur .Text. L1ère devrait ramener la date au format date défini dans ton masque, le second au format caractère.
Mais vérifie dans ton aide, ce que je dis est vrai pour la version VB6 donc pas forcément pour la version .NET.
Calade
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
J'ai essayé ta syntaxe calade mais j'ai un message d'erreur "Syntaxe incorrecte vers '#'".
Sinon Concernant le DTPickers j'ai tenté ça
Puis dans ma Sub située dans le module1 où je fais mes requêtes SQL j'ai mis DateChoisie = TriDate mais la valeur DateChoisie ne retourne malheureusement rien.
Bonne journée.
Sub Action_Bouton()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Date_Debut, Date_Fin As String
Dim Jour, Jour1, Jour2 As Date
Dim i As Integer
Dim champ0 As String
Dim champ1 As String
Dim champ2 As String
Dim TriDate As Date
TriDate = Format(TriDate, "DD/MM/YYYY HH:MM")
TriDate = "02/05/2011 00:00"
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=Masource;Initial Catalog=MaBDD;Uid=Login;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.ActiveConnection = cn
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#"
'Sélection de la table Actions_OPE'
End With
Sinon Concernant le DTPickers j'ai tenté ça
Public Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) DTPicker1_CallbackKeyDown.Value = DateChoisie End Sub
Puis dans ma Sub située dans le module1 où je fais mes requêtes SQL j'ai mis DateChoisie = TriDate mais la valeur DateChoisie ne retourne malheureusement rien.
Bonne journée.
- Messages postés
- 1211
- Date d'inscription
- dimanche 20 avril 2003
- Statut
- Membre
- Dernière intervention
- 4 juin 2016
C'est normal, Tridate à ce niveau là est du caractère à cause des instructions
TriDate Format(TriDate, "DD/MM/YYYY HH:MM") TriDate "02/05/2011 00:00"
dont la 2ème est inutile. Je ne sais pas d'où provient Tridate avant que tu ne la convertisses en string, mais c'est là qu'il faut vérifier qu'elle est du type Date.
Calade
TriDate Format(TriDate, "DD/MM/YYYY HH:MM") TriDate "02/05/2011 00:00"
dont la 2ème est inutile. Je ne sais pas d'où provient Tridate avant que tu ne la convertisses en string, mais c'est là qu'il faut vérifier qu'elle est du type Date.
Calade
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
Je viens de trouver comment récupérer la valeur de mon DTPicker. Ducoup je n'ai pas à effectuer des instruction sur la valeur TriDate du coup ça me donne :
Dim TriDate As Date
TriDate = UserForm1.DTPicker1.Value 'Association TriDate à la valeur du calendar'
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=FR-LAN-RSVIEW-2\SQLEXPRESS;Initial Catalog=FT_log;Uid=Administrateur;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.ActiveConnection = cn
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#"
'Sélection de la table Actions_OPE'
If rs.EOF Then MsgBox "Aucun résultat"
End With
Et là il me met toujours l'erreur de syntaxe alors que j'ai bien déclaré TriDate comme étant une date. La valeur du DTPickers doit également être une date. Alors pourquoi cela ne marche pas =( ?
On va y arriver ^^
Dim TriDate As Date
TriDate = UserForm1.DTPicker1.Value 'Association TriDate à la valeur du calendar'
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=FR-LAN-RSVIEW-2\SQLEXPRESS;Initial Catalog=FT_log;Uid=Administrateur;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.ActiveConnection = cn
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#"
'Sélection de la table Actions_OPE'
If rs.EOF Then MsgBox "Aucun résultat"
End With
Et là il me met toujours l'erreur de syntaxe alors que j'ai bien déclaré TriDate comme étant une date. La valeur du DTPickers doit également être une date. Alors pourquoi cela ne marche pas =( ?
On va y arriver ^^
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
- Membre
- Dernière intervention
- 30 octobre 2013
Je crois avoir compris! Tu utilise MS SQL 200X!? Donc tu doit faire DbChange.Execute "USE ".
Teste le code suivant
Teste le code suivant
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=Masource;Initial Catalog=MaBDD;Uid=Login;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
.Execute "USE (NOM DE LA BASE DE DONNEE"
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.ActiveConnection = cn
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#"
'Sélection de la table Actions_OPE'
End With
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
- Membre
- Dernière intervention
- 30 octobre 2013
Non g fais faux teste plus tot cela
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=Masource;Initial Catalog=MaBDD;Uid=Login;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
.Execute "USE (NOM DE LA BASE DE DONNEE)"
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#",cn,, adOpenStatic, adLockOptimistic
'Sélection de la table Actions_OPE'
End With
Set cn = New ADODB.Connection 'Connexion à la DB'
With cn
.ConnectionString "Provider SQLOLEDB;Data Source=Masource;Initial Catalog=MaBDD;Uid=Login;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
.Open
.Execute "USE (NOM DE LA BASE DE DONNEE)"
End With
Set rs = New ADODB.Recordset 'Lecture de la DB'
With rs
.Open "SELECT * FROM Actions_OPE WHERE TimeStmp= #" & TriDate & "#",cn,, adOpenStatic, adLockOptimistic
'Sélection de la table Actions_OPE'
End With