Première application VB.net

Version imprimable

Bonjour ,
J'essai de développer ma première application en VB.net mais dès le début je bloque.

J'ai ma base access et visual studio 2008 express.
Après avoir lu le cours de Philippe Plasserre sur VB.net, j'ai tenté de créer un DATASET , j'ai donc mis dans un module le code suivant:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Imports System.Data
Imports System.Data.OleDb
 
Module Module1
 
    '  Déclaration Objet Connexion
    Private ObjetConnection As OleDbConnection
 
    ' Déclaration Objet Commande
    Private ObjetCommand As OleDbCommand
 
    '  Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
 
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New DataSet() 'Attention au New
 
    'String contenant la 'Requête SQL'
    Private strSql As String
 
    ' Déclaration Objet DataTable
    Private ObjetDataTable As DataTable
 
    ' Déclaration Objet DataRow (ligne)
    Private ObjetDataRow As DataRow
 
    'Numéro de la ligne en cours
    Private RowNumber As Integer    'Numéro de l'enregistrement courant
 
    'Paramêtres de connexion à la DB
    Private strConn As String
 
    'Pour recompiler les données modifiées avant de les remettre dans le
    '"DataAdapter"
    Private ObjetCommandBuilder As OleDbCommandBuilder
 
    'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\materiel.accdb;"
 
    'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT marque FROM ordinateur"
 
    'Instanciation d'un Objet Connexion
ObjetConnection = New OleDbConnection()
 
    'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
 
    'Ouvrir la connexion
ObjetConnection.Open()
 
    'Instancier un objet Commande
ObjetCommand = New OleDbCommand(strSql)
 
    'Instancier un objet Adapter
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
 
    'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
 
    'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "ordinateur")
 
    'Mettre dans un Objet DataTable une table du DataSet
ObjetDataTable = ObjetDataSet.Tables("ordinateur")
 
 
 
End Module

Le problème c'est que lorque j'initialise ou j'instancie mes private variables "strConn", ... ressortent en erreur "déclaration attendue".
Comment puis je résoudre ce problème?

D'autre part j'ai créé un dataset (contenant la table ordinateur de ma base access) en ajoutant directement une source donnée, je peux visualiser un aperçu des données mais je ne sais pas comment exploiter par le code les données contenu dans ce dataset.

Par avance merci pour vos réponses à mes 2 interrogations!!

Bonne soirée.

29/11/2009, 19h50
Ogotcha

Dans ton module il serait bien que tu créer une sub ou une function qui contient ton code sans inclure forcément tes déclarations de variables qui sont en private ;)

Merci bien pour ta réponse.
J'ai donc fais appel à ma fonction "extraction" que j'ai créé dans le module.

J'essai simplement d'afficher un enregistrement de mon ObjetDatatable dans un txtbox.
dont voici le code sur chargement de mon formulaire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call extraction() If RowNumber < 0 Then Exit Sub 'Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement If RowNumber > ObjetDataTable.Rows.Count - 1 Then Exit Sub 'ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) donne le contenu 'd'un champ dans une ligne donnée Me.TxtBoxMarque.Text = ObjetDataTable.Rows(RowNumber).Item("marque").ToString 'Item peut avoir en paramètre le nom de la colonne ou sont index End Sub End Class
Mais au moment de la compilation de mon projet:
Mon txtbox n'est pas rempli et un message apparait plusieurs fois:

Citation:

Une exception de première chance de type 'System.InvalidOperationException' s'est produite dans System.Data.dll

Après quelques recherches , ceci viendrait du fait quil y aurait une Tentative non valide de lecture lorsque aucune donnée n'est présente, or des données sont présentes dans ma base.

Quelqu'un saurait-il pourquoi?
je me rend compte que je risque de poser pas de questions dans un futur proche concernant mon appli.:aie:

03/12/2009, 17h06
Ogotcha

Citation:

Mais au moment de la compilation de mon projet

C'est au moment de la compilation ou de l'exécution du projet que tu as ton message d'erreur ?? Car ce n'est pas à la compilation que ton TextBox va récupérer des données mais à l'exécution.
03/12/2009, 18h51
Spanish_

Effectivement c'est à l'éxécution(mode débogage) de mon projet que j'ai cette exception.

Par contre quand je génére mon projet (donc compilation du projet), il m'affiche
une boite de dialogue avec une croix rouge, intitulée "Microsoft .NET framework", en m'indiquant que le fournisseur'Microsoft.Jet.OLEDB.4.0' n'est pas inscrit.'

J'ai bien installé le framework 3.5 par contre ma base access est en 2007, dois je faire une manip sur celle-ci??
03/12/2009, 19h58
Ogotcha

Une recherche sur Google et hop je tombe sur ceci : Lien support Microsoft en espérant que cela t'aide ;)
04/12/2009, 00h23
Spanish_

Je te remercie pour ton lien qui ne résout pas mon souci mais m'aide à y voir un peu plus clair.

Pour résumé cela vient du fait qu'il n'existe pas de version 64 bits du fournisseur Microsoft.Jet.OLEDB.4.0 de base de données.Il faut donc Forcer l'application à être compilé comme une application 32 bits.

En complément j'ai fouillé dans l'aide de VB.net dispo avec visual studio 2008 express (car j'utilise Vb2008 express), et j'ai trouvé ceci:

Citation:

Constantes de compilation

Unité centrale cible
Ce paramètre spécifie si le compilateur doit optimiser la compilation pour un type d'UC spécifique, par exemple, un processeur 64 bits. Dans la liste, sélectionnez AnyCPU, x86, x64 ou Itanium. Par défaut, cette option a la valeur AnyCPU, spécifiant que le compilateur n'optimise pas la compilation pour un type d'UC spécifique.

Apparemment il faudrait allé dans propriétés du projet / onglet compiler / Options avancées de compilation .*

Mon problème c'est que je vois bien la zone "Constantes de compilation" mais je ne trouve à aucun endroit cette option "Unité centrale cible ".

Quelqu'un a t-il déjà rencontré ce problème?
04/12/2009, 09h42
Pol63

sur vb express c'est pas à cet endroit là, y en a qu'on réussi à trouver j'ai déjà vu la solution passer sur le forum ...
06/12/2009, 21h20
Spanish_

Après plusieurs recherches , j'ai enfin trouvé la solution pour forcer une compilation en fonction de la plateforme.

Je me suis donc précipité à rééxécuté mon projet en "X86", et au moment de l'exécution rebelotte , une autre exeption est levée :

Citation:

Une exception de première chance de type 'System.Data.OleDb.OleDbException' s'est produite dans System.Data.dll

et au moment de la compilation de mon projet , j'ai toujours l'affichage d'une boite de dialogue avec une croix rouge, intitulée "Microsoft .NET framework", en m'indiquant que le fournisseur 'Microsoft.Jet.OLEDB.4.0' n'est pas inscrit.'

J'ai essayé sur un autre PC avec une architecture 32bits et là ça passe tout debout.

Je ne sais vraiment plus quoi faire pour résoudre ce problème.
06/12/2009, 21h30
Pol63

t'as installé microsoft jet ?
06/12/2009, 21h33
Spanish_

Euh... en complément je viens de retester mais en renommant ma data Source: D:/materiel.mdb (version Access 2003) au lieu de D:/materiel.accdb (version 2007), donc ça + associé la compilation sur plateforme x86, ça fonctionne.

en tout cas merci pour votre aide qui m'a bien aidé.

Bonne soirée