Bonjour, J'ai un problème avec la partie d’identification elle affiche je site
Expression de type non booléen spécifiée dans un contexte ou une condition est attendue ,prés de 'de'
voici le code que j'ai confectionner pour le Bouton (Se Connecter) de ma form

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
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As OleDb.OleDbConnection
        conn = New OleDb.OleDbConnection(ChaineConnection)
        Try
            conn.Open()
            Dim cmd As OleDb.OleDbCommand
            cmd = New OleDb.OleDbCommand
            cmd.CommandText = "SELECT count(*) from Code Utilisateur where Identifiant='" & txt_ID.Text & "' and Mot de Passe='" & txt_MPass.Text & "'"
            cmd.Connection = conn
            Dim i As String = cmd.ExecuteScalar
            If i = "0" Then
                MsgBox("Unknown Username and Password")
                txt_ID.Text = ""
                txt_MPass.Text = ""
            Else
                Accueil.Text = "GPAO-MARQUARDT-SAEE" & "                " & Me.txt_ID.Text
                Accueil.Show()
                Accueil.Enabled = True
                TIM_TM.Enabled = True
                Button1.Enabled = True
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
ma chaîne de connections fonctionne très bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Module Connexion
    Public ChaineConnection As String = "provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=**** *********;Data Source=HP-PC\XY;"
End Module

Si vous pouvez m aider pour exécuter ce code je serai reconnaissant,,merci d’avance........

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Module Connexion
    Public ChaineConnection As String = "provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=GPAO SAEE/MARQUARDT;Data Source=HP-PC\XY;"
End Module