j'ai une base salle(codesalle,nomsalle,direction)

je veux faire une fonction get codeemplacement

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
49
50
51
52
53
54
Public Shared Function getcodeempl(ByVal nomempl As String) As Integer
            Dim codeempl As Integer = 0
            Dim cn As OdbcConnection = Nothing
            Dim requete As String = ""
            Dim cmdarticle As OdbcCommand = Nothing
            Dim articleReader As OdbcDataReader = Nothing
            Try
                cn = bdConnexion.getConnexion
                cn.Open()
                requete = "select * from Emplacement where NomEmplacement =" & nomempl & ""
                cmdarticle = New OdbcCommand(requete, cn)
                articleReader = cmdarticle.ExecuteReader

                While articleReader.Read

                    codeempl = articleReader(0)
                End While
                articleReader.Close()
                cn.Close()

            Catch ex As Exception
                If Not IsNothing(cn) OrElse cn.State = ConnectionState.Open Then
                    cn.Close()
                End If
                If Not IsNothing(articleReader) AndAlso Not articleReader.IsClosed Then
                    articleReader.Close()
                    cn.Close()
                End If
                MessageBox.Show(requete)
                MessageBox.Show(ex.Message)
            End Try
            Return codeempl
        End Function
        Public Function inserer() As Boolean
            Dim cn As OdbcConnection = Nothing
            Dim requete As String = ""
            Dim cmdarticle As OdbcCommand = Nothing
            Dim x = 0
            Try
                cn = bdConnexion.getConnexion
                cn.Open()
                requete = "insert into Materiel values('" & codeMat & "','" & adrIP & "','" & Type & "','" & Marque & "'," & CodeUtilisateur & "," & CodeEmplacement & ")"
                cmdarticle = New OdbcCommand(requete, cn)
                x = cmdarticle.ExecuteNonQuery()
                cn.Close()
            Catch ex As Exception
                If Not IsNothing(cn) OrElse cn.State = ConnectionState.Open Then
                    cn.Close()
                End If
                'affiche le message d'erreur
                MessageBox.Show(ex.Message)
            End Try
            Return (x <> 0)
        End Function
le message d'erreur qui s'affiche est :
Error[07002][Microsoft][PiloteODBC mMicrosoft Access] Trop peu de paramétres. 1 attendu
merci pour votre aide