Discussion :

[nadong]

Bonjour à tous

Je fais un programme en vb.net avec une connexion MS Access 2010 voici le problème :

Je voudrais charger plusieurs tables car toutes les informations nécessaire se trouvent dans différentes tables ; à savoir que je me sert d'un module pour y mettre le code de connexion afin d'avoir juste à l'appeler n'importe où et bien-sûr je trouve cela plus lisible comme ça.

Quand je me connecte il dit que l'identifiant ou le mot de passe est incorrect, alors j'ai fais un débogage pas à pas et je me suis aperçu que la plus part de mes déclaration indique (noting) pouvez-vous jeter un œil à mon code s'il vous plait ?

Merci pour votre aide

[nadong]

Voici le code du module

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
41
42
43
44
45
46
47
48
'Importer les class permmetant la connexion à une base de données
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Module ModConnexion
    'Déclaration de variables
    Public con As OleDbConnection
    Public cmd As OleDbCommand
    Public cmdb As New OleDbCommandBuilder
    Public dta As OleDbDataAdapter
    Public dts As New DataSet
    Public dtt As DataTable
    Public dtr As DataRow
    Public constr As String
    Public sqlcommande As New OleDbCommand
    Public rd As OleDbDataReader
    Public conB As New OleDbConnection
    Public rownum As Integer
    Public i As Integer
 
 
'Déclaration des requêtes utilisées dans le programme
    Public firstSQL As String
    Public secondSQL As String
    Public thirdSQL As String
    Public fourthSQL As String
 
    'Connexion à la base de données
    Public Sub Connexion()
        constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Projet\Java\Reeducateur\breeducation.accdb ; "
 
        con = New OleDbConnection
        con.ConnectionString = constr
        con.Open()
 
        'Chargement de la table Usager
        thirdSQL = "select * from Usager order by nomUsager asc"
        dta = New OleDbDataAdapter(thirdSQL, con)
        dta.Fill(dts, "Usager")
 
        'Liste déroulante des enfants
        For i = 0 To dts.Tables("Usager").Rows.Count - 1
            frmBReeducateur.cbBoxSelectionnerEnfant.Items.Add(dts.Tables("Usager").Rows(i).Item("nomUsager") & " " & dts.Tables("Usager").Rows(i).Item("prenomUsager"))
        Next
            End Sub
End Module

et voici le code de connexion pour un rééducateur fait dans le formulaire :

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
Private Sub btnConnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnexion.Click
        Call Connexion()
 
        'Chargement de la table reeducateur
        fourthSQL = "SELECT * FROM reeducateur"
        dta.SelectCommand.CommandText = fourthSQL
        dta.Fill(dts, "reeducateur")
 
        'Identification
        For i = 0 To dts.Tables("reeducateur").Rows.Count - 1
            If Me.mdtIdentifiant.Text = dts.Tables("reeducateur").Rows(i).Item("idReeduc") And
            Me.mdtMotDePasse.Text = dts.Tables("reeducateur").Rows(i).Item("mdpReeduc") Then
                frmBReeducateur.Show()
                frmBReeducateur.lblAfficherReeducConnecter.Text = "Bonjour ! " & dts.Tables("reeducateur").Rows(i).Item("nomReeduc")
            Else
                cmdErreur.Visible = True
            End If
        Next
    End Sub

Merci encore pour votre aide

[nadong]

Le problème est résolut, cela n'était qu'un simple bug car après avoir laisser le week-end passé, je constate que le problème n'est plus.

Merci bien a se qui ont pris la peine de chercher...

A bientôt dans une prochaine discussion