Vraag : Sparen gegevens aan toegangsdbase met VB6 hulpmiddel

Hello vergen allen,

I uw hulp die gegevens van wordt bespaard te worden textbox en etiketten op te slaan op een toegang db.
Everytime ik waarop sparen knoop zal klikken, zal het al txtdoos bewaren en kunnen de etiketten op een nieuwe lijn in een table.
How ik dit alstublieft doen?

This is de code waar ik de gegevens in textbox en etiketten zette:

If Des_prod.Text <> "" Then
Dim sSQL1 als String
Schemerige oRST1 als ADODB.Recordset
Vastgesteld oRST1 = Nieuwe Vastgestelde ADODB.Recordset
Schemerige oConnect1 als ADODB.Connection
oConnect1 = Nieuwe ADODB.Connection

sSQL1 = „SELECTEERT [Produits], [Buis], [Bouchon], [O-ring], [Opération 1], [Opération 2], [Opération 3] VAN [Beschrijving produit] „
oConnect1.Open „Provider=Microsoft.ACE.OLEDB.12.0; „ & _
" Gegevens Source=“ & Form4.txt BaseDe.Text &“; „

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = „Produits = „“ & Des_prod.Text & „“ „Vastgestelde
txtComposante1.DataSource = oRST1
txtComposante1.DataField = „Vastgestelde Buis "

txtComposante2.DataSource = oRST1
txtComposante2.DataField = „Vastgestelde Bouchon "

txtComposante3.DataSource = oRST1
txtComposante3.DataField = „Vastgestelde O-ring "

lblOring.DataSource = oRST1
lblOring.DataField = „Vastgestelde Opération 1 "

lblVissé.DataSource = oRST1
lblVissé.DataField = „Vastgestelde Opération 2 "

lblStérille.DataSource = oRST1
lblStérille.DataField = „Opération 3 "

Eind If
Else
het eind If


It moet be*sparen op een andere geroepen lijst zijn: „Inventaire“.


So bijvoorbeeld, zal txtComposante1- gegevens in kolom 2 van lijst „Inventaire“ gaan, zal txtComposante2 in kolom 3 .......


Thanks voor uw help. gaan

Antwoord : Sparen gegevens aan toegangsdbase met VB6 hulpmiddel

Hallo, Wilder1626.

Ik geloof dat de „Datum“ een gereserveerd woord is.  De syntaxis kijkt fijn behalve de manier u probeert om de inhoud van het tekstgebied op te nemen.  De lijn zou moeten lezen

SQL = „NEEM IN de WAARDEN Inventaire (van de Datum) op („“ & txtComposante1.Text & „“) „