VB, probleme avec insert Résolu/Fermé

Question

Bonjour,
Je travaille sur VB avec une base de données SQL, j’ai un probleme avec insert        

Je veux inserer l’année dans la table TU_BU_PARAM_GENERAUX

       Dim cmd1 As ADODB.Command
        Dim ReqSQL1 As String
        Dim rdset1 As Recordset
        Set cmd1 = New ADODB.Command
        Set cmd1.ActiveConnection = CxBase
        
        ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
                   & "values '" & Annee_Param_Gene.Text & "'"
                    
        cmd1.CommandText = ReqSQL1
        Debug.Print ReqSQL1

        
 	Ca bloque ici       
        Set rdset1 = cmd1.Execute(ReqSQL1)

 quelqu'un a des idées?

Merci,

Koozag · Answer

Je ne sais pas si sa peut paraitre important, mais une fois ça m'avais soulé parce que j'avais oublie le ";" à la fin, je pense pas que sa puisse être ça mais tu peux tjs essayer :/

Polux31 · Answer

Salut,

Peux tu mettre le message d'erreur que tu obtiens, stp.

Il manque des parenthèses également à la commande SQL :
ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _ 
& " values ('" & Annee_Param_Gene.Text & "')" 

;o)

roros · Answer

Merci pour les Parenthèses

Maintenant j'arrive à inserer mais il me donne une message d'erreur 

Type incompatible

Polux31 · Answer

de quel type est le champ TUBPG_ANNEE ?

roros · Answer

TUBPG_ANNEE numeric 4

Polux31 · Answer

ok.

essaies ça :

ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _ 
& " values ('" & CInt(Annee_Param_Gene.Text) & "')"

roros · Answer

tjrs le meme problèm, j'arrive à inserer mais il me donn un message d'erreur "Type incompaticble"

Polux31 · Answer

oula j'ai fait une boulette.

ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _ 
& " values (" & CInt(Annee_Param_Gene.Text) & ")"

roros · Answer

Ca marche, il faut enlever Set rdset1 car c’est une requête insert pas select il ne faut pas mettre 

C’est le bonne code si quelqu’un l’intéresse:

        Dim cmd1 As ADODB.Command
        Dim ReqSQL1 As String
        Dim rdset1 As Recordset
        Set cmd1 = New ADODB.Command
        Set cmd1.ActiveConnection = CxBase
        
        ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
                   & "values (" & Annee_Param_Gene.Text & ")"
                    
        cmd1.CommandText = ReqSQL1
        Debug.Print ReqSQL1
       
        cmd1.Execute (ReqSQL1)


Merci bcp pour votre aide

Polux31 · Answer

Exact ... bien vu. 

Bonne continuation.

;o)

VB, probleme avec insert

10 réponses

Discussions similaires