Bonjour,
Je suis un autodidacte dans la programmation. Après un an de galère seul, je me suis décidé à prendre quelque heures de cours pour l' accés d' une base de donnée avec VB6 (très chère soit dit en passant...).
Nous avons créer un programme et je ne comprends pas une requête.
La voici:
Private Sub Command1_Click()
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then
Cxn.Execute ("insert into codeinami ([N°INAMI], intitule) values ('" & Replace(UCase(Trim(Text2.Text)), "'", "''" ) & "','" & Replace(UCase(Trim(Text1.Text)), "'", "''" ) & "')" )
MsgBox ("donnée ajoutée!" )
List1.Clear
Text2.Text = ""
Text1.Text = ""
IniList
Else
MsgBox ("Aucun texte n'a été encodé" )
End If
Mon problème se situe à ce niveau: ('" & Replace(UCase(Trim(Text2.Text)), "'", "''" ) & "','" & Replace(UCase(Trim(Text1.Text)), "'", "''" ) & "')" )
Pourquoi toutes ces apostrophes et ces guillemets??? Pourriez vous éclairer ma lanterne même sur une simplification de cette requête. Je ne comprends pas l' utilisation de l' esperluette "&". Je cherche juste à comprendre le fonctionnement et la raison de leur utilisation afin de pouvoir appliquer cela dans d' autres programmes sans devoir bêtement faire des copiers/coller.
Merci d' avance pour la réponse.
Orthodocs
End Sub