Fråga : Räddningdata som tar fram dbase med VB6, bearbetar

Alla hälsningar, behov för

I din hjälp till räddningdata från textbox och etiketter för att få sparade i en ta fram db.
Everytime som som jag ska klickar på räddning knäppas, den ska räddning all txt boxas, och etiketter på en ny rad i en table.
How kan jag göra denna behar?

This är kodifiera var jag sätter datan i textbox och etiketter: <>"" Then
Dim sSQL1 för

If Des_prod.Text som String
dunkel oRST1 som uppsättningen för ADODB.Recordset
oRST1 = ny ADODB.Recordset
dunkel oConnect1 som uppsättningen för ADODB.Connection
oConnect1 = ny ADODB.Connection

sSQL1 = ”VÄLJER [Produits], [röret], [Bouchon], [oringen], [Opération 1], [Opération 2], [Opération 3] FRÅN [beskrivningsproduit] ”
oConnect1.Open ”Provider=Microsoft.ACE.OLEDB.12.0; ” & data Source=” & Form4.txt BaseDe.Text för _
" &”; ”

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = ”Produits = ”” & Des_prod.Text & ”” ”uppsättningen för
txtComposante1.DataSource = oRST1
txtComposante1.DataField = ”uppsättningen för
för rör"
txtComposante2.DataSource = oRST1
txtComposante2.DataField = ”uppsättningen för
för Bouchon "
txtComposante3.DataSource = oRST1
txtComposante3.DataField = ”uppsättningen för
för Oring"
lblOring.DataSource = oRST1
lblOring.DataField = ”uppsättningen för
för Opération 1 "
lblVissé.DataSource = oRST1
lblVissé.DataField = ”uppsättningen för
för Opération 2 "
lblStérille.DataSource = oRST1
lblStérille.DataField = ”
för Opération 3 "
avslutar If
Else
avslutar If


It behöver att vara räddningen i another bordlägger kallat: ”Inventaire”.


So for example, ska data txtComposante1 går i kolonn 2 av bordlägger ”Inventaire”, ska txtComposante2 går i


Thanks för kolonn 3 ....... för din help. " klar "

Svar : Räddningdata som tar fram dbase med VB6, bearbetar

Hi Wilder1626.

Jag tror att ”datera” är ett reserverat uttrycker.  Syntaxlooksna bötfäller bortsett från dig är långt prövas att sätta in tillfredsställer av texten sätter in.  Fodra bör läsa

SQL = ”MELLANLÄGGET IN I Inventaire (datera), VÄRDERAR (”” & txtComposante1.Text & ””) ”,