Filtrer via un formulaire: -2147467259 (80004005)

**kedmard** · 19/09/2012, 16h18

Bonjour Voici mon problème,

j'utilise une connexion ADO pour accéder à une base oracle (nomée BDD_POPU) mes critères de filtres sont saisis
dans un formulaire (nomé Choix_tact) qui se présente comme ceci:

***************************
IDent: A000tyn
Datefirst: 01/08/2012

Datelast: 30/08/2012

***************************

Lorsque j'utilise la valeur prise par "Datefirst" ou celle prise par "Datelast" mon code s'éxcute sans problème
mais quand j'essai de faire la même chose avec celle d' "IDent" j'obtiens l'erreur
'-2147467259 (80004005)'

Quelqu'un a une t-il une idée ?

Merci d'avance.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Function papa()
Const TABLE_RESULTAT = "CHOIX_Fait"
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim MonRs As ADODB.Recordset
Dim oField As ADODB.Field
Dim out_rst As Recordset

Début = Format(Form_Choix_tact.first, "yyyy\-mm\-dd 00:00:00")
Fin = Format(DateAdd("d", 1, Form_Choix_tact.last), "yyyy\-mm\-dd 00:00:00")
lelogins = Form_Choix_tact.Login


Set out_rst = CurrentDb.OpenRecordset(TABLE_RESULTAT)
Set cn = New ADODB.Connection
cn.ConnectionString = Connexion_IRRP
cn.Open
Set cmd = New ADODB.Command


SQL = "SELECT Ct_Date, Poste1, Ville, Code_pers " _
& "FROM BDD_POPU " _
& "WHERE Poste1 = 'Directeur' " _
& "and and Ct_Date >= {ts'" & Début & "'} " _
& "and and Ct_Date < {ts'" & Fin & "'} " _
& "and Code_pers = { ts'" & lelogins & "'} " _
& "  _ORDER BY Ct_Date"


Debug.Print SQL
With cmd
    .ActiveConnection = cn
    .CommandText = SQL
    Set MonRs = cmd.Execute
End With
MonRs.Close
Set MonRs = Nothing
Set MonRs = New ADODB.Recordset
MonRs.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdText
MonRs.MoveFirst
     SQL = "DELETE * FROM " & TABLE_RESULTAT
     CurrentDb.Execute SQL
Do While Not MonRs.EOF
  out_rst.AddNew
  For Each oField In MonRs.Fields
      out_rst.Fields(oField.Name).Value = oField.Value
  Next oField
  out_rst.Update
MonRs.MoveNext
Loop
Set cn = Nothing
Set cmd = Nothing
Set out_rst = Nothing
Set MonRs = Nothing
End Function

C'est la ligne rouge qui pose problème, lorsque je la met en commentaire le code marche sans problème.

**marot_r** · 19/09/2012, 17h42

" _ORDER BY Ct_Date"

C'est normal le _ devant ORDER ?

A+

**kedmard** · 20/09/2012, 08h59

Salut marot_r merci pour ta reponse,
Le " _ " est une erreur de saisi dans mon éditeur vb je ne l'ai pas.

et l'erreur demeure sur la ligne

& "and Code_pers = { ts'" & lelogins & "'} " _

Dés qu'elle est mise en commentaire tout va bien.

Help please .

**kedmard** · 21/09/2012, 10h48

A l'aide je sèche depuis quelque temps

**marot_r** · 21/09/2012, 21h33

Il y a un espace entre l'accolade ouvrante et le ts sur la ligne 26 alors qu'il n'y en a pas sur la ligne 25, est-ce voulu ?

A+

**zoopsys** · 22/09/2012, 08h55

En général pour créer ou tester des requêtes sur des bases Oracle, j'utilise SQL developer.
http://www.oracle.com/technetwork/de...iew/index.html

- Exécutes ton code pour afficher la valeur de la variable SQL
- Copies la requête dans SQL developer (et tu peux aussi la copier dans ton post).

J’espère pour toi que ta solution a été validée d'un point de vue architecture.

**tee_grandbois** · 22/09/2012, 15h11

Bonjour,
je ne connais pas cette syntaxe avec les accolades: à quoi servent-elles ? Cependant, je remarque une chose :

et l'erreur demeure sur la ligne

& "and Code_pers = { ts'" & lelogins & "'} " _

Dés qu'elle est mise en commentaire tout va bien.

soit, mais comment ton code peut-il fonctionner avec 2 and ?

& "and and Ct_Date >= {ts'" & Début & "'} " _
& "and and Ct_Date < {ts'" & Fin & "'} " _

**kedmard** · 24/09/2012, 09h30

Bonjour Messieurs et merci pour vos réponses.

tee_grandbois:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

je ne connais pas cette syntaxe avec les accolades: à quoi servent-elles ?

C'est une syntaxe que m'a conseiller un collègue qui comme je le constate ne marche que sur les dates/heures.
Si t'as une autre syntaxe, je suis preneur car c'est justement ce que je cherche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mais comment ton code peut-il fonctionner avec 2 and ?

:
Oui il marche avec ces 2 "and" quand je supprime cette ligne
& "and Code_pers = { ts'" & lelogins & "'} " _
en fait les 2 and signifient que Début<=Ct_Date<Fin.

marot_r:
Même en supprimant l'espace , ça marche pas.

Je pense (au risque de me tremper) qu'il faut une syntaxe particulière pour le champ lelogins qui n'est pas un champ de date.

Quelqu'un a t-il une syntaxe à me proposer ?

**robyseb** · 24/09/2012, 14h03

bonjour !

à quoi sert le "TS" devant ta variable ... est-ce parce que tu désire rajouter ces 2 lettres devant elle ??

ensuite est-ce que ta variable retourne bien une valeur ? A tu testé avec un msgbox ? ou un print ?

Essai comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& "and Code_pers = 'ts' & """ & lelogins & """" _

**kedmard** · 24/09/2012, 16h04

Salut robyseb

Comme je l'ai dit plus haut, c'est un collègue qui m'a proposé cette syntaxe avec TS .

J'ai éssayé avec et sans 'ts' mais ça marche toujours pas j'ai un message d'erreur sur cette ligne:,

Set MonRs = cmd.Execute

message d'erreur:Column not found

**tee_grandbois** · 24/09/2012, 21h45

Bonsoir,
column not found est une piste : merci de nous faire connaitre les messages d'erreur que maintenant.

1) peux-tu nous dire de quel type est ton champ Code_pers
2) nous poster la valeur de la variable SQL

**tee_grandbois** · 24/09/2012, 22h05

re,

& "and Code_pers = { ts'" & lelogins & "'} _"

cette syntaxe est réservée pour les datetime en Transact-SQL comme indiqué ici: http://msdn.microsoft.com/fr-fr/library/ms187819.aspx section ODBC

il faudrait formater lelogins comme un texte ou un numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part