VB - Lire une table Microsoft Access avec linq

Version imprimable

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 :oops:.
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 :calim2:
En fait il semblerait que MesEnreg soit vide au moment de l'exécution :aie:
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:

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

20/12/2014, 15h05
rv26t

Bonjour,

Citation:

Envoyé par HULKHULK83

Code:

Dim MaBase As New SagasDataSet

Fournit quoi ? Entre autre un DataSet rempli (avec DataAdapter) ?

1 pièce(s) jointe(s)

Bonjour, et merci de réagir si rapidement

En fait, je n'en sais strictement rien !

Dans mon projet elle apparaît sous la forme suivante :
Pièce jointe 164366

Et un maximum de code a été automatiquement généré.

Tout a du être fait correctement (du côté de Microsoft bien sûr) reste que mon inculture prouve que je ne sais pas (encore) l'utiliser.

Je souhaite passer par VB car le VBA (que je maîtrise parfaitement) est un peu trop "limité" pour ce que je compte faire.
En VBA ça donne quelque chose du style suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim Db As dao.Database Dim MonEnreg As dao.Recordset Dim SQL As String 'définition de la BD utilisée, c'est celle qui est courante. Set Db = CurrentDb 'constitution de la requete SQL = "SELECT Sagas.IndexSaga, Sagas.NomSaga FROM Sagas;" 'définition du recordset qui va contenir le resultat de la requete Set MonEnreg = Db.OpenRecordset(SQL) ' puis on lit enregistrement par enregistrement
Surtout ne pas s'affoler pour le nombre de table, leurs noms ou autres.
Seules les tables sagas et livres m'importent avec 3 enregistrements pour Sagas et 9 pour livres (3 livres par saga bien sûr)
Il me suffit de lire les tables et effectuer des calculs statistiques sur ce qu'elles contiennent (essentiellement des textes en sanskrit)

Et pour le code VBA complet (vérifié, ça marche correctement):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Sub Lecture_Sagas() Dim Db As dao.Database Dim MonEnreg As dao.Recordset Dim SQL As String Set Db = CurrentDb SQL = "SELECT Sagas.IndexSaga, Sagas.NomSaga FROM Sagas ORDER BY Sagas.NomSaga;" Set MonEnreg = Db.OpenRecordset(SQL) While Not MonEnreg.EOF DoEvents MsgBox MonEnreg.Fields("IndexSaga").Value & " - " & MonEnreg.Fields("NomSaga").Value MonEnreg.MoveNext Wend MonEnreg.Close Set MonEnreg = Nothing Db.Close End Sub

Si tu génères avec l'assistant puis pose le dataset sur le form, tu as directement le dataSet, le DataAdapter, datagridview ( et d'autres contrôles) sur ton form et en dessous.
Il te rajoute cette ligne dans le formLoad (exemple avec une table personnes)

Code:

1
2
        'TODO: cette ligne de code charge les données dans la table 'PersonnesDataSet.Personnes'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.PersonnesTableAdapter.Fill(Me.PersonnesDataSet.Personnes)

et tu peux faire directement ta requête sql linq

Code:

1
2
3
4
5
    Private Sub btnDataSetLink_Click(sender As System.Object, e As System.EventArgs) Handles btnDataSetLinq.Click
        For Each Pers In From p In PersonnesDataSet.Personnes Select p.NamePers, p.PersonId
            MessageBox.Show(Pers.NamePers & " " & Pers.PersonId)
        Next Pers
    End Sub

Si tu veux accéder plus directement par code
Avec une classe représentant les données

Code:

1
2
3
4
5
6
7
8
Class pers
    Property id As Integer
    Property nom As String
    Sub New(i As Integer, n As String)
        id = i
        nom = n
    End Sub
End Class

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
    Private Sub btnDirect_Click(sender As System.Object, e As System.EventArgs) Handles btnDirect.Click
        Dim lp As List(Of pers) = New List(Of pers)
        Dim MaRequete As String = "SELECT personid, namepers FROM personnes"
        Dim MaCnx As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =d:\data\personnes\personnes.accdb"
        Using cn As New OleDbConnection(MaCnx), cmd As New OleDbCommand(MaRequete, cn)
            Try
                cn.Open()
                Using reader As OleDbDataReader = cmd.ExecuteReader()
                    If reader.HasRows Then
                        Do While reader.Read()
                            lp.Add(New pers(reader.GetInt32(0), reader.GetString(1)))
                        Loop
                    Else
                        MessageBox.Show("Pas de lignes trouvées.")
                    End If
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        End Using
        For Each Pers In From p In lp Select p.id, p.nom
            MessageBox.Show(Pers.id & " " & Pers.nom)
        Next Pers
    End Sub

21/12/2014, 11h40
HULKHULK83

Et c'était si simple

Comment dire ?

C'est tout simplement parfait !

Merci beaucoup :mrgreen:

Et voilà le code résultat

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
 
    Public Class Saga
        Property IndexSaga As Long
        Property NomSaga As String
        Sub New(i As Long, n As String)
            IndexSaga = i
            NomSaga = n
        End Sub
    End Class
 
    Public Sub RécupèreLesSagas()
        Dim MesSagas As List(Of saga) = New List(Of saga)
        Dim MaRequete As String = "SELECT IndexSaga, NomSaga FROM Sagas"
        Dim MaCnx As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =C:\Users\Alain\Desktop\Maharabata\@DATA\Sagas.accdb"
        Using cn As New System.Data.OleDb.OleDbConnection(MaCnx), cmd As New System.Data.OleDb.OleDbCommand(MaRequete, cn)
            Try
                cn.Open()
                Using reader As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
                    If reader.HasRows Then
                        Do While reader.Read()
                            MesSagas.Add(New Saga(reader.GetInt32(0), reader.GetString(1)))
                        Loop
                    Else
                        MessageBox.Show("Pas de lignes trouvées.")
                    End If
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        End Using
        For Each MaSaga In From p In MesSagas Select p.IndexSaga, p.NomSaga
            MessageBox.Show(MaSaga.IndexSaga & " " & MaSaga.NomSaga)
        Next MaSaga
    End Sub