Utilisation d'une base de données interne VB2010 Express

Version imprimable

Bonjour,

Je me retrouve actuellement confronté à un problème sans doute basique, mais ô combien pénible : l'impossibilité de me connecté à une base de données.

Je dispose d'une base en .sdf créer (à la main :cry:) via VBExpress et je souhaite pouvoir faire des requetes simple dessus en lecture uniquement piuisque c'est un stockage de donnée fixe.

j'utilise ce code, mais je suppose que j'ai foiré la déclaration de la base. De plus il me faut la renommer, Alias étant une variable de VB ca bug.
Code:

1 2 3 4 5 6 7 8 'Récupération des valeurs pour la machine et la fonction correspondante Dim Resultat = From Element In Alias Where (Element.materiel = SelectedMateriel) Select Element 'Boucle de traitement de la requete For Each ligne As Resultat Debug.Print(ligne.alias & " >> " & result.valeur) Next

17/01/2013, 10h39
prologic

J'avance un petit peu sur mon problème, j'essaie de passer par l'assistant et les DataSet, mais quand je veux tester le code, j'obtiens 102 erreurs de code qui sont présentes dans un code généré par VB 2010 Express

Quelqu'un a des pistes pour résoudre ces erreurs ?

Je souhaite passer par une base de donnés pour éviter des Select et des If a répétition dans le traitement des valeurs.

Bonjour,

Je vous ai fait un petit exemple fonctionnel. Ce n'est peut être pas la meilleure solution mais ça fonctionne :mrgreen:

J'ai une base de données (.sdf) avec une seule table "Employés" sur laquelle je veux faire une requête Linq pour ne récupérer que ceux qui correspondent à un code postal :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Je créé une table en mémoire suivant le modèle EmployéDataTable
    Dim _EmployésData As New MyDBDataSet.EmployéDataTable
 
    'Je créé un objet EmployéTableAdapter qui permet entre autre de remplir _EmployéData
    Dim _EmployéAdapter As New MyDBDataSetTableAdapters.EmployéTableAdapter
 
    'Je remplis la table
    _EmployéAdapter.Fill(_EmployésData)
 
    'Je fait ma requête sur la table
    Dim _Result = From em In _EmployésData Where em.CodePostal = "34200" Select em.ID, em.Nom, em.Prénom, em.Adresse, em.CodePostal, em.Ville
 
    'On peut déjà exploiter _Result qui est une EnumerableCollection
    DataGridView1.DataSource = _Result.ToList 'Je convertis _Result en List(OfT ) car apparement les datagridview n'aiment pas les Enumerables :)
 
End Sub

Cela devrait vous aider.

Ok, c'est parfait.

Merci du coup de main. J'avais un bug car ma DB et ma table avaient le même nom du coup le logiciel ne pannait rien.

J'ai rectifié la fin pour coller un peu plus à ce que j'attendais (pas de DataGrid).

Merci beaucoup.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Je créé une table en mémoire suivant le modèle EmployéDataTable
    Dim _EmployésData As New MyDBDataSet.EmployéDataTable
 
    'Je créé un objet EmployéTableAdapter qui permet entre autre de remplir _EmployéData
    Dim _EmployéAdapter As New MyDBDataSetTableAdapters.EmployéTableAdapter
 
    'Je remplis la table
    _EmployéAdapter.Fill(_EmployésData)
 
    'Je fait ma requête sur la table
    Dim _Result = From em In _EmployésData Where em.CodePostal = "34200" Select em.ID, em.Nom, em.Prénom, em.Adresse, em.CodePostal, em.Ville
 
    For Each ligne In _Result
 
            Debug.Print(em.ID, em.Nom, em.Prénom, em.Adresse, em.CodePostal, em.Ville)
 
     Next
 
End Sub