Type de données incompatible dans l'expression du critère

Version imprimable

Voilaa le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Credit1.Label30.Text = Label49.Text
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Hamza.Bens\Documents\Optique MAATA\Optique MAATA\Optique MAATA\bin\Debug\Optiquedtbase.mdb")
        Dim sqlcomm As New OleDbCommand
        Try
            con.Open()
            sqlcomm.Connection = con
            sqlcomm.CommandText = "SELECT Nom FROM Client where N°Dossier= '" & numero.Text & "'"
            TextBox2.Text = sqlcomm.ExecuteScalar("Nom")
            con.Close()
        Catch ex As Exception
            MsgBox("Erreur!! Database" & ex.Source & ": " & ex.Message, MsgBoxStyle.Exclamation)
        End Try
        Credit1.ShowDialog()
    End Sub

01/09/2015, 16h18
ebastien

Bonjour,
La colonne N°Dossier (pas terrible comme nom pour une colonne de table) n'est-elle pas de type Number ? Dans la requête, elle est traitée comme une chaine de caractère....
Quoi qu'il en soit, préférez les requêtes paramétrée !!! La concaténation SQL est source de dangers et d'erreurs !

J'ai changé. mais un autre probleme : la conversion de la chaîne nom en type 'integer' n'est pas valide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Credit1.Label30.Text = Label49.Text
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Hamza.Bens\Documents\Optique MAATA\Optique MAATA\Optique MAATA\bin\Debug\Optiquedtbase.mdb")
        Dim sqlcomm As New OleDbCommand
        Try
            con.Open()
            sqlcomm.Connection = con
            sqlcomm.CommandText = "SELECT Nom FROM Client where NDossier= '" & numero.Text & "'"
            TextBox2.Text = sqlcomm.ExecuteScalar("Nom")
            con.Close()
        Catch ex As Exception
            MsgBox("Erreur!! Database" & ex.Source & ": " & ex.Message, MsgBoxStyle.Exclamation)
        End Try
        Credit1.ShowDialog()
    End Sub

Bonjour,

ebastien vous disait que le n° de dossier devait être surement numérique et qu'il n'y a donc pas besoin des apostrophes.
Il faut aussi ajouter une validation de l'entrée si elle n'est pas numérique et passer par les requêtes paramétrées. Cela donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
        If not IsNumeric(numero.Text) then 
                MsgBox("Le n° de dossier n'est pas numérique.")
                Exit Sub
        End If
        Credit1.Label30.Text = Label49.Text
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Hamza.Bens\Documents\Optique MAATA\Optique MAATA\Optique MAATA\bin\Debug\Optiquedtbase.mdb")
        Dim sqlcomm As New OleDbCommand
        Try
            con.Open()
            sqlcomm.Connection = con
            sqlcomm.CommandText = "SELECT Nom FROM Client where NDossier = @numdos "
            sqlcomm.Parameters.Add("@numdos", SqlDbType.Int).Values = numero.Text
            TextBox2.Text = sqlcomm.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MsgBox("Erreur!! Database" & ex.Source & ": " & ex.Message, MsgBoxStyle.Exclamation)
        End Try
        Credit1.ShowDialog()
    End Sub

C'est fait !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Credit1.Label30.Text = Label49.Text
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Hamza.Bens\Documents\Optique MAATA\Optique MAATA\Optique MAATA\bin\Debug\Optiquedtbase.mdb")
        Dim sqlcomm As New OleDbCommand
        Try
            con.Open()
            sqlcomm.Connection = con
            sqlcomm.CommandText = "SELECT Nom FROM Client where NDossier = @numdos "
            sqlcomm.Parameters.AddWithValue("@numdos", SqlDbType.Int).Value = numero.Text
            Credit1.TextBox2.Text = sqlcomm.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MsgBox("Erreur!! Database" & ex.Source & ": " & ex.Message, MsgBoxStyle.Exclamation)
        End Try
        Credit1.ShowDialog()
    End Sub

02/09/2015, 19h06
Sankasssss

J'espère juste que vous avez compris où était vos erreurs. J'avais oublié de mettre un lien vers un tuto pour les requêtes paramétrées, prenez le temps de le lire pour mieux comprendre pourquoi et comment les utiliser : http://webman.developpez.com/article...rameter/vbnet/