Frage : Daten sparen, um auf dbase mit Werkzeug VB6 zurückzugreifen

Hallo speicherten alle,

I Notwendigkeit Ihre Hilfe, Daten von der area per informazioni und von den Aufklebern zu sparen, um zu erhalten in einem Zugang db.
Everytime, den ich an speichere Knopf klicke, speichert er allen txt Kasten und Aufkleber auf einer neuen Linie in einem table.
How kann ich dies tun zu gefallen?

This ist der Code, in dem ich die Daten in area per informazioni und in Aufkleber einsetze:

If Des_prod.Text <> "" Then
Dim sSQL1 als String
verdunkeln oRST1, während ADODB.Recordset
, die oRST1 = neues ADODB.Recordset
gesetzt sind, oConnect1, während gesetzte ADODB.Connection
oConnect1 = neues ADODB.Connection

sSQL1 = „[Produits] VORWÄHLEN, [Schlauch] verdunkeln, [Bouchon], [O-Ring], [Opération 1], [Opération 2], [Opération 3] [Beschreibung produit] „vom
oConnect1.Open „Provider=Microsoft.ACE.OLEDB.12.0; „ u. _
" Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = „Produits = „“ u. Des_prod.Text u. „“ „
gesetzt txtComposante1.DataSource = oRST1
txtComposante1.DataField = „Schlauch "

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

gesetzt txtComposante3.DataSource = oRST1
txtComposante3.DataField = „O-Ring "

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

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

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

Ende If
Else
Ende If


It muss außer in einer anderen benannten Tabelle sein: „Inventaire“.


So zum Beispiel, Daten txtComposante1 geht in Spalte 2 der Tabelle „Inventaire“, txtComposante2 geht in Spalte 3 .......


Thanks für Ihr help.

Antwort : Daten sparen, um auf dbase mit Werkzeug VB6 zurückzugreifen

Hallo, Wilder1626.

Ich glaube, dass „Datum“ ein reserviertes Wort ist.  Die Syntax schaut fein außer der Weise, die Sie versuchen, den Inhalt des Textfeldes einzusetzen.  Die Linie sollte lesen

SQL = „EINSATZ IN Inventaire (Datum) WERTE („“ u. txtComposante1.Text u. „") „