Discussion :

[nounafes]

bjr tt le monde j'ai un petit probleme avec mon projet de stage
(une interface en vb pour affichier les donnees d'une base de donnee )
le probleme c que mors de recherche il m'affiche ce msg
L'opérateur '=' n'est pas défini pour type 'DBNull' et chaîne "pc memoria".
le code est de recherch est le suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ElseIf RadioButton3.Checked = True Then
            strfindfournisseur = "select * from Tinventaire where [fournisseur]='" & TextBox1.Text
            cmdfindfournisseur = New OleDbCommand(strfindemplacement)
            cmdfindfournisseur.Connection() = inventconnection
            dataadapfournisseur = New OleDbDataAdapter(cmdfindemp)
            inventdatatable = inventdataset1.Tables("Tinventaire")
            For i = 0 To inventdatatable.Rows.Count - 1
                'If inventdatatable.Rows(i).Item("fournisseur") = "" Then
                '    i = i + 1
                'End If
                If inventdatatable.Rows(i).Item("fournisseur") = TextBox1.Text Then
                    Me.DataGridView1.Rows.Add(inventdatatable.Rows(i).Item(0), inventdatatable.Rows(i).Item(1), inventdatatable.Rows(i).Item(2), inventdatatable.Rows(i).Item(3), inventdatatable.Rows(i).Item(4), inventdatatable.Rows(i).Item(5), inventdatatable.Rows(i).Item(6), inventdatatable.Rows(i).Item(7), inventdatatable.Rows(i).Item(8), inventdatatable.Rows(i).Item(9), inventdatatable.Rows(i).Item(10))
                End If
            Next

pouvez vous m'aider c urgant

[Sankasssss]

hello,
Celà provien du fait que inventdatatable.Rows(i).Item("fournisseur") a une valeur dbnull,
tu dois donc faire un test

Code :

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

isdbnull(inventdatatable.Rows(i).Item("fournisseur"))

avant

Code :

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

1
2
3
                If inventdatatable.Rows(i).Item("fournisseur") = TextBox1.Text Then
                    Me.DataGridView1.Rows.Add(inventdatatable.Rows(i).Item(0), inventdatatable.Rows(i).Item(1), inventdatatable.Rows(i).Item(2), inventdatatable.Rows(i).Item(3), inventdatatable.Rows(i).Item(4), inventdatatable.Rows(i).Item(5), inventdatatable.Rows(i).Item(6), inventdatatable.Rows(i).Item(7), inventdatatable.Rows(i).Item(8), inventdatatable.Rows(i).Item(9), inventdatatable.Rows(i).Item(10))
                End If

bien à toi.