VB, probleme avec insert
Résolu
roros
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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,
A voir également:
- VB, probleme avec insert
- Touche insert - Guide
- Vb - Télécharger - Langages
- Disk boot failure insert system disk and press enter - Guide
- Vb cable - Télécharger - Audio & Musique
- Activer touche insert sur ASUS UX32A - Forum Clavier
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)
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
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) & "')"
essaies ça :
ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
& " values ('" & CInt(Annee_Param_Gene.Text) & "')"
oula j'ai fait une boulette.
ReqSQL1 = " Insert into TU_BU_PARAM_GENERAUX(TUBPG_ANNEE)" _
& " values (" & CInt(Annee_Param_Gene.Text) & ")"
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
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
