Programmation, Trucs et astuces sur Microsoft ACCESS.

Re: Construction SQL + calcul CDbl() ?

Réponse à: Re: Construction SQL + calcul CDbl() ? envoi de roland le 15 Novembre 2004 08:19:20:

Bonjour,

Merci voilà la construction de la requête:
---------------------------------
'Sélection de tous les champs de la table
Sql_Resultat = "SELECT " & Me.rech_dans.Column(1) & ".*"

'Sélection de la table
Sql_Resultat = Sql_Resultat & " FROM " & Me.rech_dans.Column(1)

'Sélection de la clause WHERE
Sql_Resultat = Sql_Resultat & " WHERE "

Sql_Resultat = Sql_Resultat & "(" & Me.rech_dans.Column(1) & "." & Me.rech_dans.Column(2)

'Sélection du comparateur
'Me.rech_valeur.column(1) donne = BETWEEN =*
Sql_Resultat = Sql_Resultat & Me.rech_valeur.Column(1)

'Sélection en fonction du type du critère (date, heure, chiffre, texte, ...)
'Me.rech_dans.column(3) donne Cdbl( # Replace(
Sql_Resultat = Sql_Resultat & Me.rech_dans.Column(3)

'Sélection du 1er critère
Sql_Resultat = Sql_Resultat & rech_critere1

'Sélection en fonction du type du critère (date, heure, chiffre, texte, ...)
'Me.rech_dans.column(4) donne ) # , ",", ".")
Sql_Resultat = Sql_Resultat & Me.rech_dans.Column(4)

Sql_Resultat = Sql_Resultat & ";"
-----------------------------------------


Je regarde ce soir...
------
Il faudra donc faire:
Monsql="SELECT Tbl_Cuve.* FROM Tbl_Cuve WHERE Tbl_Cuve.Date =" & CDbl(11/12/2004) & ")"
---------------------------



Gdal

Alerter Rezoweb si ce message est illégal