Bonjour,

J'ai créé une fonction pour insérer une ligne dans une de mes tables, mais bien qu'il n'y ai aucune erreur retournée, ma ligne n'est pas ajouté.
Je pense qu'un peu de code sera plus explicite que mes explications :
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
 
        Dim err As Integer
        Dim req As String
        Dim myCommand As SqlCommand
 
        req = "INSERT INTO CONTACT (NAME_CONTACT,LAST_NAME_CONTACT,JOB_TITLE_CONTACT,EMAIL_CONTACT,PHONE_NUMBER_CONTACT,FAX_CONTACT)"
        req = req & " VALUES(Cast(@name as text),cast(@LastName as text),cast(@JobTitle as text),cast(@Email as text),cast(@Phone as text),cast(@Fax as text))"
 
'Ma fonction GetoConn est fonctionnelle, mes objets myCommand en lecture ne posaient pas de problème.
 
        myCommand = New SqlCommand(req, GetoConn())
        With myCommand.Parameters
            .Add(New SqlParameter("@name", SqlDbType.Char, 50))
            .Add(New SqlParameter("@LastName", SqlDbType.Char, 50))
            .Add(New SqlParameter("@JobTitle", SqlDbType.Char, 50))
            .Add(New SqlParameter("@Email", SqlDbType.Char, 50))
            .Add(New SqlParameter("@Phone", SqlDbType.Char, 50))
            .Add(New SqlParameter("@Fax", SqlDbType.Char, 50))
 
        End With
        With myCommand
            .Parameters("@name").Value = CChar(name)
            .Parameters("@LastName").Value = CChar(LastName)
            .Parameters("@JobTitle").Value = CChar(JobTitle)
            .Parameters("@Email").Value = CChar(Email)
            .Parameters("@Phone").Value = CChar(Phone)
            .Parameters("@Fax").Value = CChar(Fax)
 
        Try
 
            'Execution de la requête
            Req_SQL.Connection.Open()
            Req_SQL.ExecuteNonQuery()
            Req_SQL.Connection.Close()
 
        Catch ex As Exception
            Return Err.Number
        End Try
Si quelqu'un voit d'où pourrait venir mes erreurs...
Merci.