Savoir si une plusieurs champs Access sont vide ou non [Résolu]

[beegees]

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 :

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 :

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 :

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]

Salut,

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

[beegees]

Salut,

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

Je patoge pour l'instant.

A+

beegees

[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.

[beegees]

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 :

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]

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]

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 :

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]

complément d'information :

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

Code :

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

beegees

[pc75]

Re,

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

Code :

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

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

[beegees]

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 :

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]

Re,

J'ai regardé la structure de ta base.

Peux tu faire un

Code :

response.write checkSQL

et donner ce que ça affiche ?

[beegees]

Salut PC75,

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

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

Code :

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

Merci pour tout !

beegees

[beegees]

Resalut PC75,

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

Merci
beegees

[pc75]

Re,

Il y a quelquechose qui m'échappe.

Tu fais :

Code :

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]

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]

Re,

Tu peux toujours faire :

Code :

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

[beegees]

Re,

Merci pour ta réponse.

J'ai fais ceci :

Code :

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]

Envoyé par pc75

Re,

Il y a quelquechose qui m'échappe.

Tu fais :

Code :

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 :

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 :

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]

Re,

Essaie ça :

Code :

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

[Immobilis]

Envoyé par pc75

Re,

Essaie ça :

Code :

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