Erreur requete avec vb.net
j'ai une base salle(codesalle,nomsalle,direction)
je veux faire une fonction get codeemplacement
Code:
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 :
Citation:
Error[07002][Microsoft][PiloteODBC mMicrosoft Access] Trop peu de paramétres. 1 attendu
merci pour votre aide
