Bien le bonjour,
je reviens à la charge pour mon projet (désolé),
Depuis hier et l'aide que l'on ma a apporter j'ai pas mal avancé mais je rencontre un problème étrange car j'ai voulu faire un controle sur mon application por savoir si il y avait des enregristrements à la date choisi (par la suite elle ordonnera le chargement des dites données ou l'affichage d'un tableau vide pr permettre la saisi) donc voila la fonction que je comptais utiliser
Le problème étant que même si dans la base de donnée il ya X résultats correspondant à cette date la fonction me renvoie tjrs 0 dans la msg box
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 Public Function recherche(ByVal datum) As Boolean Dim chaineconnexion As String chaineconnexion = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Baseagen.mdb;" 'connexion à la base de donnée Dim maconnexion As New OleDbConnection(chaineconnexion) Dim SelectCmd1 As String SelectCmd1 = "select count(*) from Agenda where Daterdv =" & datum & ";" Dim result As Integer Dim myCommand As New OleDb.OleDbCommand(SelectCmd1, maconnexion) myCommand.Connection.Open() result = myCommand.ExecuteScalar() maconnexion.Close() Dim resultat As Boolean MsgBox(result) Return resultat End Function
(oui le return sera utilisé ultérieurement je l'ai mis afin d'éviter les messages d'erreur au lancement des test).
Pour la date passée en paramêtre, c'est bon je l'ai testé l'erreur ne vient pas de la donc peut etre que j'ai fait une bourde au niveau des commandes car j'ai mis ce qui me semblais etre bon étant donné que c'est la première fois que je fais ce genre de manip (je veux dire récupérer la valeur d'un count d'ordinaire je récupère juste des données brut avec le reader)
Donc voila si vous pouviez m'éclairer parque moi perso j'ai fait sauter le compteur EDF![]()
Merci d'avance
Partager