Yo,
J'aimerais pouvoir lire des informations dans ma base de données.
Voici le code que j'utilise, à savoir que la connexion est demandée toute les 5 secondes.
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 Private Sub Timer_anniv_Ticks(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_anniv.Tick Dim dateDuJour As Date ' Récuperer la date actuelle dateDuJour = System.DateTime.Today.Date ' aller chercher en base de donnée les personnes nées à cette date ' se connecter à la base de données Dim ConnectionString As String = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\Users\profeln\Documents\Visual Studio 2010\Projects\InterfaceAnniv\InterfaceAnniv\DBanniv.sdf;" Dim BDDConnection = New OleDbConnection(ConnectionString) 'Try BDDConnection.Open() ' émettre la requête Dim BDDCommand = New OleDbCommand BDDCommand.Connection = BDDConnection Dim requete As String requete = "SELECT Nom , Prénom FROM TabAnniv WHERE Date = " & dateDuJour.ToString BDDCommand.CommandText = "SELECT Nom , Prénom FROM TabAnniv WHERE Date = " & dateDuJour.ToString MsgBox(requete, MsgBoxStyle.Information, "REQUETE") Dim NomPrenomReader As OleDbDataReader = BDDCommand.ExecuteReader() While NomPrenomReader.Read() Console.WriteLine(NomPrenomReader(0).ToString() & NomPrenomReader(1).ToString()) End While NomPrenomReader.Close() BDDCommand.Clone() ' fermer la connexion à la base de données BDDConnection.Close() ' MsgBox(System.DateTime.Today.Date, MsgBoxStyle.Information, "Test Timer") Catch ex As Exception MsgBox("Can not open connection ! ") End Try End Sub
Le problème étant que j'ai une erreur à ligne où j'utilise le Reader
Voilà l'erreur, si quelqu'un peut me mettre sur une bonne piste je suis preneur !
Merci d'avance
Partager