Problème requêtes SQL via VBA [Résolu]
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
35 réponses
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.
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
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
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)
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.
Ma syntaxe devait marcher en utilisant une variable pas une date littérale, dans ce cas il eut fallu utiliser:
"WHERE TIMEstmp = " & #02/05/2011 14:25:46#
dans le cas précédent, cela dépend du type de datevoulue. Quel est-il ?
Calade
"WHERE TIMEstmp = " & #02/05/2011 14:25:46#
dans le cas précédent, cela dépend du type de datevoulue. Quel est-il ?
Calade
Calade à raison, mais tu dois faire la chose corectment c a dir
...
DateVoulue = "02/05/2011 14:25:46"
"WHERE TIMEstmp = #" & DateVoulue & "#"
...
Si tu ne respecte par cette ordre des choses ta syntaxe sera incorecte.
...
DateVoulue = "02/05/2011 14:25:46"
"WHERE TIMEstmp = #" & DateVoulue & "#"
...
Si tu ne respecte par cette ordre des choses ta syntaxe sera incorecte.
Ah bah niquel j'essayerai ça demain au boulot =). Par contre avez vous des idées pour récupérer la valeur d'un DTPicker car c'est avec cela que je lancerai mes requêtes de date dans ma BDD.
Bonne soirée et encore merci
Bonne soirée et encore merci
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
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.
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
Eh bien J'ai juste mis une date dans TriDate pour tester mes requêtes SQL. Le but de mon application est de choisir la valeur TriDate avec un DTPickers. Alala c'est pas facile VBA ^^. Merci pour ton aide en tout cas.
Oui, mais dans ce cas là tu la convertit en String.
Mets: Tridate = CDate("02/05/2011 00:00")
Calade
Mets: Tridate = CDate("02/05/2011 00:00")
Calade
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 ^^
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
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