Questione : Conservare i dati per accedere al dbase con l'attrezzo VB6

Ciao tutti, la necessità del

I il vostro aiuto conservare i dati dalla casella di testo e dalle etichette per ottenere hanno risparmiato in un accesso db.
Everytime che scatterò sopra conservo il tasto, conserverà tutta la scatola del txt ed etichette su una nuova linea in un table.
How posso fare questo per soddisfare? il

This è il codice dove metto i dati in casella di testo e nelle etichette: il "" Then
Dim sSQL1 del <> del

If Des_prod.Text come String
oscura oRST1 mentre ADODB.Recordset
stabiliti oRST1 = nuovo ADODB.Recordset
oscurano oConnect1 mentre ADODB.Connection
stabiliti oConnect1 = nuovo ADODB.Connection

sSQL1 = “SELEZIONANO [Produits], [tubo], [Bouchon], [giunto circolare], [Opération 1], [Opération 2], [Opération 3] [produit di descrizione] “da
oConnect1.Open “Provider=Microsoft.ACE.OLEDB.12.0; “ & dati Source=„ & Form4.txt BaseDe.Text del _
" &„; “

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = “Produits = “„ & Des_prod.Text & “„ “
stabilito txtComposante1.DataSource = oRST1
txtComposante1.DataField =
del
“del tubo " stabilito txtComposante2.DataSource = oRST1
txtComposante2.DataField =
del
“di Bouchon " stabilito txtComposante3.DataSource = oRST1
txtComposante3.DataField =
del
“del giunto circolare " stabilito lblOring.DataSource = oRST1
lblOring.DataField = “
del
di Opération 1 " stabilito lblVissé.DataSource = oRST1
lblVissé.DataField = “
del
di Opération 2 " stabilito lblStérille.DataSource = oRST1
lblStérille.DataField = “estremità If
Else
del
di Opération 3 " L'estremità If


It di/> deve essere salvo in un'altra tabella denominata: “Inventaire„. il


So per esempio, dati txtComposante1 andrà in colonna 2 della tabella “Inventaire„, txtComposante2 andrà nel


Thanks della colonna 3 ....... per il vostro help. class= del

Risposta : Conservare i dati per accedere al dbase con l'attrezzo VB6

Ciao, Wilder1626.

Credo che “la data„ sia una parola riservata.  La sintassi osserva benissimo tranne il senso che state provando ad inserire il contenuto del giacimento del testo.  La linea dovrebbe leggere

SQL = “INSERTO NEI VALORI di Inventaire (data) ("„ & txtComposante1.Text & “") “