Discussion :

[new_wave]

Bonjour,

J'ai crée un recordset dans lequel je veux insérer le contenu de deux parties d'un combobox appelée cbform2 dans deux champs d'une base de données.
j'ai un petit souci avec les ' et "".
Pourriez vous m'aider à le résoudre.

Je vous en remercie beaucoup.Cordialement.
Nathalie
Voici ma requête

Code :

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

1
2
 
rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values ('" & Mid(cbform2.Text, 1, 5), Mid(cbform2.Text,6,cbform2.Width) & "')", cn"

[Phifi]

Bonjour,

"cpte" et "libelle" sont deux champs de type alphanumérique ?

Si oui :

Code :

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

1
2
rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values ('" & Mid(cbform2.Text, 1, 5)&"','"& Mid(cbform2.Text,6,cbform2.Width) & "')", cn"

Mais qu'est-ce que "cn" ?

[new_wave]

Bonjour,

cpte est un champ de type numérique, libelle est un champ de type texte.
Le pb est peut être à ce niveau là.

Merci de votre aide.
Cordialement.
Nathalie

[Phifi]

Alors,

Code :

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

rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values (" & Mid(cbform2.Text, 1, 5)&",'"& Mid(cbform2.Text,6,cbform2.Width) & "')", cn

et il me semble que tu as un " en trop à la fin de l'instruction Open

[SfJ5Rpw8]

pour info cbForm2.Width ... c'est pas la largeur en nombre de caractéres...mais en "points"...pour obtenir les caractéres "restant" tu ne met rien en 3° paramétre de ta fonction Mid..

Code :

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

1
2
 
rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values (" & Mid(cbForm2.Text, 1, 5) & ",'" & Mid(cbForm2.Text, 6) & "'), cn"

[Edit] correction du code ... les cotes autour des valeurs alphanumérique.. (merci Phifi)

[Phifi]

Attention Bbil, tu as remis les simples quotes dans ton code pour la première valeur (numérique), et tu les as enlevés pour le champ alpha

[SfJ5Rpw8]

Attention Bbil, tu as remis les simples quotes dans ton code pour la première valeur (numérique), et tu les as enlevés pour le champ alpha

code corrigé

[Delbeke]

Je pense qu'il manque un espace

Code :

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

INSERT INTO cbtest_table(cpte,libelle)

devrait être

Code :

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

INSERT INTO cbtest_table (cpte,libelle)

[Phifi]

Je pense qu'il manque un espace

Non non, il n'y a pas d'espaces

Pour résumer :

Code :

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

rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values (" & Mid(cbForm2.Text, 1, 5) & ",'" & Mid(cbForm2.Text, 6) & "')", cn

devrait fonctionner (attention, sans le dernier " après cn qui doit être l'objet connexion, le double quote est avant, il ferme la requête)

[new_wave]

bonjour,


Je vous remercie pour votre aide.
voici le message que je reçois :

impossible d'utiliser cette connexion pour effectuer cette opértion; elle est fermée ou non valide dans ce contexte.


Il se trouve que quand je n'insère que dans le champ cpte, l'insertion se déroule bien et je n'ai pas ce message.
A quoi est il dû selon vous?

voici le code entier de ma fonction d'insertion

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
 
 
Public cn As ADODB.Connection
 
Private Sub InsertDB()
Dim rst1 As New ADODB.Recordset
 
Set cn = New ADODB.Connection
'Définition de la chaîne de connexion
cn.ConnectionString = "C:\NH\bd_test.mdb"
 
'Définition du pilote de connexion
cn.Provider = "Microsoft.Jet.Oledb.4.0"
 
'Ouverture de la base de données
cn.Open
 
 
On Error GoTo err_Refresh
 
rst1.Open "INSERT INTO cbtest_table(cpte,libelle) values ('" & Mid(cbform2.Text, 1, 5) & "', " & Mid(cbform2.Text, 6) & "), cn"
 
'rst1.Open "INSERT INTO cbtest_table(cpte) values ('" & Mid(cbform2.Text, 1, 5) & "')", cn
 
 
cn.Close
 
Exit Sub
 
err_Refresh:
MsgBox Err.Description, vbCritical, "pbinsertcbform2"
Err.Clear
 
End Sub

la requête d'insertion uniquement dans le champ cpte est en commentaire pour information

Merci beaucoup à vous.
cordialement.
Nathalie

[new_wave]

Bonjour,

Tout fonctionne bien, mais, de grâce, afin que je ne vous le redemande plus, pouvez vous m'indiquer la règle à suivre que je la connaisse bien une fois pour toutes et ne perdeplus de templs avec cela.

Merci beaucoup à vous.

Nathalie