Discussion :

[hamzabens]

Voilaa le code :

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
 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

[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 !

[hamzabens]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sankasssss]

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 :

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
 
        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

[hamzabens]

C'est fait !!

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
 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

[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/