Savoir si une plusieurs champs Access sont vide ou non

**beegees** · 04/10/2006, 14h17

Bonjour tout le monde,

Je suis toujours dans mon projet de réservation d'une salle.

J'ai pas mal avancé mais je reste bloqué.

J'aimerais tester si un champ access est vide ou non.

Ce code :

Code :

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

If len(rs("monchamp")) <> 0 then...

est utile et pourraît fonctionner mais je ne dois vérifier QUE les champs qui correspondent aux choix du visiteur.

Je m'explique, le visiteur choisit une heure de début et une heure de fin, son choix devient une "fourchette de temps" par exemple entre 14 et 18h00 le 10/10/2006.

Par rapport à l'exemple ci-dessus, c'est uniquement à la table Octobre, la ligne 10, et le champs 14;15;16;17;18 que j'aimerais vérifié si il y'a quelque chose.

Il faudrait donc mettre dans une variable le champs 15;15;16;17;18 de la table octobre du jour 10.

J'ai fais ceci :

Code :

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

1
2
3
dim check
check = "select " & hfjour & " from " & hfmois & " Where " & hfdebut & " = " & hfdebut & "  "
response.write(check)

hfjour correspond au jour choisis dans le formulaire (liste déroulante) et ensuite mis dans une variable asp, idem pour mois et hfdebut (mois et heure de début)

ça me donnce ceci :

Code :

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

select 04 from janvier Where 10 = 10

et quand je met ce code dans une requête SQL (en Access) il me met des 4 partout.

Il faudrait donc que je sache si un des champs comportant les heures est = à vide.

Merci d'avance pour votre aide.

beegees

**Gwenn** · 04/10/2006, 17h06

Salut,

ca me rapelle les cas ou des colonnes devraient etre des lignes

**beegees** · 04/10/2006, 17h08

Salut,

Désolé mais je comprends pas ta réponse.

Je patoge pour l'instant.

A+

beegees

**Gwenn** · 04/10/2006, 17h17

J'ai l'impression que ce qui pose probleme, c'est la structure de la base de données. Ce qui m'interpelle ce sont tes champs heures (14,15,16...). J'aurai tendance à mettre ses valeurs en enregistrements plutot quand champs de table, d'ou mon clin d'oeil "colonne devrait etre ligne"

Lorsque j'ai a gérer des tranches horaire, je crée un champ "heure" et les heures sont des lignes de la table.

**beegees** · 04/10/2006, 19h31

OK merci pour l'explication.

J'ai du créér plusieurs tables car j'avais plusieurs mois, une heure de début, une heure de fin et le jour.

J'ai essayé de mettre tout ça en enregistrement, mais je n'y suis pas arrivé.

J'avance tout doucement par contre, voici ce qui se passe :

J'ai créé une nouvelle connexion (adodb.connection, adodb.recordset) ainsi que des nouvelles variables.

J'affecte à une de ces variables une chaîne SQL :

Code :

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

1
2
3
4
5
6
dim checkSQL
checkSQL = "select " & hfdebut & " from " & hfmois & " where jour = '" & hfjour & "' "
check.open checkSQL, "RSI"
 
dim test
test = check("jour")

Pour l'instant ça ne fonctionne pas mais je suis optimiste.

Le message d'erreur que j'obtiens est :

ADODB.Recordset erreur '800a0cc1'

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.

/RSI/recup_rsi.asp, ligne 59

ça doit vouloir dire qu'il ne trouve pas le nom de ce champs, pourtant il existe.

Merci encore pour ta réponse.

beegees

**pc75** · 05/10/2006, 08h15

Envoyé par Gwenn

J'ai l'impression que ce qui pose probleme, c'est la structure de la base de données. Ce qui m'interpelle ce sont tes champs heures (14,15,16...). J'aurai tendance à mettre ses valeurs en enregistrements plutot quand champs de table, d'ou mon clin d'oeil "colonne devrait etre ligne"

Lorsque j'ai a gérer des tranches horaire, je crée un champ "heure" et les heures sont des lignes de la table.

+1

Je vois que tu es resté sur ta solution de créer une table par mois.
Ca me rassure, je ne suis pas seul à être étonné.

Je pense que tu vas vers la difficulté.

Mais bon ...

**beegees** · 05/10/2006, 09h13

Salut PC75,

Je suis d'accord avec toi, j'ai peut être pas utilisé la meilleur des structures.

Mais les informations récoltées ne seront jamais archivées.

Au contraire, quand le mois est terminé, on n'en parle plus.

En plus de cela, comme je l'ai déjà dis, je vire les données de Access vers Excel (vba) et le nom de la table correspond au nom de la sheet xls.

J'ai tenté l'analyse mais comment voulez-vous mettre des jours, des mois, des heures de débuts et des heures de fin tout ça dans des enregistrements.

Je ne doute aucunnement de vos capacités, je ne sais simplement pas le faire mais j'ai essayé.

Autre chose, j'ai créé une nouvelle connexion pour savoir si un certain champs de ma table était vide mais ça ne fonctionne pas.

J'ai pourtant fait ce qu'il fallait (enfin je pense) :

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
dim checkrst
dim cnn
dim cnncheck
dim checkSQL
set cnncheck = server.CreateObject("ADODB.CONNECTION")
set cnn = server.CreateObject("ADODB.CONNECTION")
set rst = Server.CreateObject("ADODB.Recordset")
set checkrst = server.CreateObject("ADODB.Recordset")
cnn.open "RSI"
cnncheck.open "RSI"
mysql = "select * FROM  [RSI]"
rst.open mysql, "RSI"
'response.Write(checkSQL)
checkSQL = "select " & hfdebut & " from " & hfmois & " where jour = '" & hfjour & "' "
response.Write(checkSQL)
checkrst.open checkSQL, "RSI"

ce qui est en gras est la seconde connexion.

Quand je fais :

dim test

test = checkrst("jour")

pour connaître ce qu'il y'a dans le champ (jour est un champ de ma bd),il me dit ceci :

"select 11 from janvier where jour = '01'
ADODB.Recordset erreur '800a0cc1'

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.

/RSI/recup_rsi.asp, ligne 60
"

Je ne peux plus avancer à cause de ça.

Merci d'avance pour l'aide que tu m'apporteras.

beegees

**beegees** · 05/10/2006, 09h57

complément d'information :

J'ai inséré un input text et j'obtiens le même message :

Code :

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

  <input type="text" name="textfield" value<%=rst("jour")%> />

beegees

**pc75** · 05/10/2006, 11h21

Re,

Et si tu essaies de construire ta requête pour qu'elle ressemble à ça ?

Code :

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

1
2
 
select [04] from janvier Where jour = 10

PS : Peux tu donner la description d'une de tes tables MOIS ?

**beegees** · 05/10/2006, 11h31

Bonjour PC75,

Merci pour ta réponse.

Voici la base de donnée entière (il n'y a aucune information personnelle).

Quand je fais

Code :

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

1
2
3
4
while not rst.eof
response.Write rst("jour")
rst.movenext
wend

Je n'obtiens rien, est-ce normal ?

T'es super sympa

beegees

**pc75** · 05/10/2006, 12h25

Re,

J'ai regardé la structure de ta base.

Peux tu faire un

Code :

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

response.write checkSQL

et donner ce que ça affiche ?

**beegees** · 05/10/2006, 12h38

Salut PC75,

Désolé d'avoir ommis cette information importante.

Voici le résultat de response.write(checkSQL) :

Code :

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

la valeur de checkSQL est select 12 from janvier where jour = '01'

Merci pour tout !

beegees

**beegees** · 05/10/2006, 14h03

Resalut PC75,

As-tu vu quelque chose d'anormal dans la chaîne SQL ?

Merci
beegees

**pc75** · 05/10/2006, 14h16

Re,

Il y a quelquechose qui m'échappe.

Tu fais :

Code :

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

1
2
3
4
5
6
7
 
select 12 from janvier where jour = '01' 
.....
while not rst.eof
response.Write rst("jour")
rst.movenext
wend

Tu devrais avoir une erreur. Tu fais un select du champ 12 et tu demandes l'affichage du champ jour !

J'ai raté quelquechose ?

**beegees** · 05/10/2006, 14h48

Re,

Merci pour ta réponse.

Je voudrais juste savoir si le champs est vide, c'est pour ça que j'essaie de l'afficher.

Je peux t'envoyer mon code en privé ?

Merci
bgs

**pc75** · 05/10/2006, 14h57

Re,

Tu peux toujours faire :

Code :

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

1
2
 
if len(rst("jour")) = 0 then

**beegees** · 05/10/2006, 15h32

Re,

Merci pour ta réponse.

J'ai fais ceci :

Code :

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

1
2
3
if len(rst("jour")) = 0 then
response.Write("PC75 astusce")
end if

et ça me donne ça :

ADODB.Recordset erreur '800a0cc1'

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.

/RSI/recup_rsi.asp, ligne 72

Qu'en penses-tu ?

Beegees

**beegees** · 05/10/2006, 15h43

Envoyé par pc75

Re,

Il y a quelquechose qui m'échappe.

Tu fais :

Code :

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

1
2
3
4
5
6
7
 
select 12 from janvier where jour = '01' 
.....
while not rst.eof
response.Write rst("jour")
rst.movenext
wend

Tu devrais avoir une erreur. Tu fais un select du champ 12 et tu demandes l'affichage du champ jour !

J'ai raté quelquechose ?

Re,

J'ai relu plus attentivement ta réponse et ça

Code :

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

select 12 from janvier where jour = '01'

est la réponse du response.write(checkSQL).

Il faut quand même sélectionner lors de l'instanciation d'une nouvelle chaîne de connexion ?

Voici le code entier :

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Document sans titre</title>
</head>
 <%
response.Buffer = true
dim hfjour
hfjour = request.form("hfjour")
'response.Write(hfjour)
dim hfmois
'récupère la valeur de la variable hdCI1 qui contient le nom du cours
hfmois = request.Form("hfmois")
'response.Write(hfmois)
dim hfdebut
'récupère la valeur de la variable hdCI1TH qui contient le nombre d'ECTS pour la théorie pour le 1er cours isolé.
'response.Write(hfdebut)
hfdebut = request.form("hfdebut")
'response.Write(hfdebut & "-")
dim hffin
hffin = request.form("hffin")
'response.Write(hffin & "-")
dim hfuser
hfuser = request.form("hfuser")
'response.Write(hfuser & "-")
dim dateauj
dateauj = now
'response.write(dateauj)
dim rst
dim rst2
dim cnn
dim cnn2
dim checkSQL
set cnn2 = server.CreateObject("ADODB.CONNECTION")
set cnn = server.CreateObject("ADODB.CONNECTION")
set rst = Server.CreateObject("ADODB.Recordset")
set rst2 = server.CreateObject("ADODB.Recordset")
cnn.open "RSI"
cnn2.open "RSI"
mysql = "select * FROM  [RSI]"
rst.open mysql, "RSI"
'response.Write(checkSQL)
checkSQL = "select " & hfdebut & " from " & hfmois & " where jour = '" & hfjour & "' "
'checkSQL = "select * from rsi"
response.Write("la valeur de checkSQL est " & checkSQL)
rst2.open checkSQL, "RSI"
 
%> 
 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Document sans titre</title>
</head>
 
<body>
<%
'response.write(check)
'dim test
'test = rst("jour")
response.Write(test)
'if len(rst) = "" then
dim selecttable
selecttable = ""
selecttable = "update " & hfmois & " set " & hfdebut & " = '" & hfuser & "' WHERE jour =  '"& hfjour & "' "
response.Write("ICI" & selecttable)
cnn.Execute(selecttable)
'else
'response.write("la valeur de check est différente de rien")
'End If
 
if len(rst("jour")) = 0 then
response.Write("PC75 astusce")
end if
 
'C'est ici qu'on entre les heues de fin jusqu'au début exemple réservation de 8 à 12 on entre 12,11,10,9
dim i 
'i = à la valeur de la variable hffin, variable qui contient la valeur du champ HTML de la liste déroulante hffin
i = hffin 
'response.Write("i vaut " & i)
'fait tant que i (hffin) est supérieur à l'heure de début
do until i = cint(hfdebut) 
i = i-1
'if i = "" then
'tu met à jour la table
selecttable = "update " & hfmois & " set " & i & " = '" & hfuser & "' WHERE jour =  '"& hfjour & "' "
'response.Write(selecttable)
'il faut exécuter à chaque fois et non faire un update globale autrement ça plante
cnn.Execute(selecttable)
'je retitre de i 1 (donc hffin = hffin - 1)
hffin = hffin - 1
'else
'
'response.Write("C'est déjà occupé")
'End if
loop
'response.write(selecttable)
 
'
%>
</body>
</html>

Merci
beegees

**pc75** · 05/10/2006, 16h34

Re,

Essaie ça :

Code :

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

1
2
 
select jour, 12 from janvier where jour = '01'

**Immobilis** · 05/10/2006, 22h39

Envoyé par pc75

Re,

Essaie ça :

Code :

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

1
2
select jour, [12] from janvier where jour = '01'

Je crois qu'il faut vraiment mettre les crochets sinon, il écrira toujours 12 au lieu du champ nommé 12.
A+

Savoir si une plusieurs champs Access sont vide ou non

ASP

Discussions similaires

Partager

Partager