VB, probleme avec insert
Résolu
roros
Messages postés
39
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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,
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,
10 réponses
-
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
-
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 -
