Question : Sauver les données pour accéder au dbase avec l'outil VB6

Bonjour tous, le besoin du

I votre aide sauver des données de la boîte à textes et des étiquettes pour obtenir ont économisé dans un accès db.
Everytime que je cliquerai dessus le bouton de sauvegarde, sauvera-t-il toute la boîte de txt et est-ce que étiquettes sur une nouvelle ligne dans un table.
How je peux faire ceci pour satisfaire ? le

This est le code où je mets les données dans la boîte à textes et les étiquettes : le "" Then
Dim sSQL1 de <> du

If Des_prod.Text comme String
obscurcissent oRST1 pendant qu'ADODB.Recordset
réglés oRST1 = nouvel ADODB.Recordset
obscurcissent oConnect1 pendant qu'ADODB.Connection
réglés oConnect1 = nouvel ADODB.Connection

sSQL1 = « CHOISISSENT [Produits], [tube], [Bouchon], [joint circulaire], [Opération 1], [Opération 2], [Opération 3] [produit de description] « du
oConnect1.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; «  et point d'émission du _
" = » et Form4.txt BaseDe.Text et » ; « 

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = « Produits = «  » et Des_prod.Text et «  » « 
réglé txtComposante1.DataSource = oRST1
txtComposante1.DataField = « 
du
de tube " réglé txtComposante2.DataSource = oRST1
txtComposante2.DataField = « 
du
de Bouchon " réglé txtComposante3.DataSource = oRST1
txtComposante3.DataField = « 
du
de joint circulaire " réglé lblOring.DataSource = oRST1
lblOring.DataField = « 
du
d'Opération 1 " réglé lblVissé.DataSource = oRST1
lblVissé.DataField = « 
du
d'Opération 2 " réglé lblStérille.DataSource = oRST1
lblStérille.DataField = « extrémité If
Else
du
d'Opération 3 " L'extrémité If


It de/> doit être sauf dans une autre table appelée : « Inventaire ». le


So par exemple, les données txtComposante1 entrera dans la colonne 2 de la table « Inventaire », txtComposante2 entrera dans le


Thanks de la colonne 3 ....... pour votre help. class= de

Réponse : Sauver les données pour accéder au dbase avec l'outil VB6

Bonjour, Wilder1626.

Je crois que la « date » est un mot réservé.  La syntaxe regarde très bien excepté la manière que vous essayez d'insérer le contenu du gisement des textes.  La ligne devrait lire

SQL = « INSERTION DANS DES VALEURS d'Inventaire (date) (" » et txtComposante1.Text et « ") «