Bonjour à tous,
Comme je débute avec Visual Studio 2013 (version gratuite, merci à Microsoft) et en Visual Basic, il y a fort à parier que j'ai "oublié" pleins de trucs à faire .
J'ai bien entendu une version toute légale de Microsoft Office 2013 incluant Microsoft Access (si, si sans rire) .
Accessoirement je suis sous Windows 8 (et là pas merci du tout à Microsoft), mais à mon humble avis ça ne change rien au problème.
J'ai une base Microsoft Access 2013 de nom "sagas.acdb" qui est incluse dans mon projet.
Dans cette base, il y a une table de nom "Sagas" qui comporte deux champs:
- "IndexSaga" de type long (numéroautomatique)
- "NomSaga" de type string (texte court)
J'essaye tout simplement de lire les trois enregistrements de cette table.
J'ai donc généré le code ci-dessous qui, vous vous en doutez bien, ne fait pas exactement ce que j'en attendais
En fait il semblerait que MesEnreg soit vide au moment de l'exécution
Y-aurait-il une âme charitable qui pourrait m'aider à sortir de ma situation délicate et corriger quelque peu mon code déplorable?
D'avance merci pour votre aide
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 Private Sub test_database() Dim MaBase As New SagasDataSet Dim MaSaga As String Dim MonIndex As Long Dim MesEnreg = From p In MaBase.Sagas Select p.NomSaga, p.IndexSaga For Each Pp In MesEnreg MaSaga = Pp.NomSaga MonIndex = Pp.IndexSaga MsgBox(MonIndex & " " & MaSaga) Next Pp End Sub
Partager