Discussion :

[Kalion]

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.

[Kalion]

J'ai essayé une requète simple sans caster les paramètres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
req = "INSERT INTO CONTACT (NAME_CONTACT,LAST_NAME_CONTACT,JOB_TITLE_CONTACT,EMAIL_CONTACT,PHONE_NUMBER_CONTACT,FAX_CONTACT)"
        req = req & " VALUES ('" & name & "','" & LastName & "','" & JobTitle & "', '" & Email & "', '" & Phone & "','" & Fax & "')"
        myCommand = New SqlCommand(req, GetoConn())
 Try
            Req_SQL.Connection.Open()
            Req_SQL.ExecuteNonQuery()
            Req_SQL.Connection.Close()
 Catch ex As Exception
            Return Err.Number
 End Try

De la même manière, j'ai enlevé à ma première requêtes les Cast ...
Toujours aucune ligne ajoutée.
Je précise que j'ai récupéré la requête créée et essayer de l'exécuter, mon contact a bien été ajouté sans problème...
Merci à ceux qui se pencheront sur mon problème...

[Bluedeep]

Dans ta première version, je ne vois pas pourquoi tu mets des Cast. Normalement la gestion de paramètres des commandes se débrouille très bien pour faire le transtypage.

A part cela, c'est quoi ton ReqSql ? je ne comprends pas l'organisation de ton code.

L'ExecuteNonQuery s'appelle sur l'objet commande lui même.

- instanciation objet commande
- affectation connection à l'objet commande
- affectation text de requete à l'objet commande
- appelle executeNonQuery sur l'objet commande.

T'as une référence à un objet surnuméraire, IMHO.

[Kalion]

T'as une référence à un objet surnuméraire, IMHO.

Je ne comprends pas cette phrase...

Ensuite, désolé, j'appelle "myCommand" dans une fonction extérieure et j'avais changé le nom, désolé...

J'ai copié le code de mes 2 fonctions à la suite pour que se soit plus compréhensible... Mais j'avais pas vu que j'avais changé les noms...

Pour le "Cast" j'avais fait ça en pensant qu'il y aurait peut-être un problème entre String et text... Mais c'était juste pour essayer...

Ma dernière requète ressemblerais plutot à ça alor...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
req = "INSERT INTO CONTACT (NAME_CONTACT,LAST_NAME_CONTACT,JOB_TITLE_CONTACT,EMAIL_CONTACT,PHONE_NUMBER_CONTACT,FAX_CONTACT)"
        req = req & " VALUES ('" & name & "','" & LastName & "','" & JobTitle & "', '" & Email & "', '" & Phone & "','" & Fax & "')"
        myCommand = New SqlCommand(req, GetoConn())
 Try
            myCommand .Connection.Open()
            myCommand .ExecuteNonQuery()
            myCommand .Connection.Close()
 Catch ex As Exception
            Return Err.Number
 End Try

[pounaid]

Bonjour Kalion,

J'ai eu un problème à propos de requêtes INSERT INTO et le composant OleDB.
Je ne sais pas si le site ci-dessous te concerne, mais j'ai réussi à comprendre que ce n'était pas ma requête qui avait un problème, mais le fonctionnement de OleDB.

http://support.microsoft.com/kb/316323

[Kalion]

Merci pour le lien, mais ça ne correspond pas à mon problème, mon code ne relève aucune exception dans un try catch et j'essai d'insérer des éléments avec du texte à l'intérieur...
De plus j'ai permis l'ajout de NULL...
Et j'arrive à afficher mes données déjà insérées (manuellement) dont certaines sont nulles...
L'affichage par les mêmes paramètres de connexion...