Discussion :

[inessahal]

bonjour
je travail avec une base de données access,
j'ai un bouton "ajouter" qui permet d'ajouter des champs à ma base,
j'ai deux champs "année" et "mois" forment les champs clé de la base donc je veux afficher à l'utilisateur de l'application un message si il a taper un champ: année ou mois qui existe déja ou si le champ est vide.
j'attens votre aide.
merci d'avance

[sihammaster]

Bonjour,
essayer ça:

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
 
if textannee="" or textmois="" then
msgbox("Champs obligatoires")
else
dim com as new oledbcommand("select * from table where annee='" & textannee& "' or mois='" & textmois & "' ",taconnexion)
dim dt as new datatable
dim ds as new dataset
dim dtadapter as new oledbdataadapter(com)
dtadapter.fill(ds,"table")
dt=ds.Tables("table")
if dt.rows.count>0 then 
msgbox("Année ou mois deja present")
else
'Traitement D'ajout
end if
end if

Bonne Continuation

[Sankasssss]

Bonjour,
essayer ça:

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
 
if textannee="" or textmois="" then
msgbox("Champs obligatoires")
else
dim com as new oledbcommand("select * from table where annee='" & textannee& "' or mois='" & textmois & "' ",taconnexion)
dim dt as new datatable
dim ds as new dataset
dim dtadapter as new oledbdataadapter(com)
dtadapter.fill(ds,"table")
dt=ds.Tables("table")
if dt.rows.count>0 then 
msgbox("Année ou mois deja present")
else
'Traitement D'ajout
end if
end if

Bonne Continuation

mais on peux même encore simplifier,
première simplification, pas besoin de dataset si il n'y a qu'une table

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
if textannee="" or textmois="" then
msgbox("Champs obligatoires")
else
dim com as new oledbcommand("select * from table where annee='" & textannee& "' or mois='" & textmois & "' ",taconnexion)
dim dt as new datatable
' dim ds as new dataset : PAS BESOIN
dim dtadapter as new oledbdataadapter(com)
dtadapter.fill(dt) ' ds,"table") : du coup on rempli direct la table
' dt=ds.Tables("table") : et non plus ^^
if dt.rows.count>0 then 
msgbox("Année ou mois deja present")
else
'Traitement D'ajout
end if
end if

et encore mieux :
deuxième simplification, si on utilise pas les champs de la requête, on récupère direct ce qui nous interesse :

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
if textannee="" or textmois="" then
msgbox("Champs obligatoires")
else
dim com as new oledbcommand("select count(*) from table where annee='" & textannee& "' or mois='" & textmois & "' ",taconnexion)
' PLUS BESOIN DE TOUT CA
' dim dt as new datatable
' dim ds as new dataset
' dim dtadapter as new oledbdataadapter(com)
' dtadapter.fill(dt) ' ds,"table")
' dt=ds.Tables("table") : et non plus ^^
if dc.executescalar > 0 then 
msgbox("Année ou mois deja present")
else
'Traitement D'ajout
end if
end if

et pour mieux faire, il faudrait utiliser des requêtes paramétrées...