VB, probleme avec insert

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 :/

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)

Merci pour les Parenthèses

Maintenant j'arrive à inserer mais il me donne une message d'erreur

Type incompatible

de quel type est le champ TUBPG_ANNEE ?

TUBPG_ANNEE numeric 4

ok.

essaies ça :

ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
& " values ('" & CInt(Annee_Param_Gene.Text) & "')"

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

oula j'ai fait une boulette.

ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
& " values (" & CInt(Annee_Param_Gene.Text) & ")"

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

Exact ... bien vu.

Bonne continuation.

;o)