Pergunta : Conservar dados para alcançar o dbase com a ferramenta VB6

Olá! todos, a necessidade do

I sua ajuda conservar dados do textbox e das etiquetas para começ conservaram em um acesso db.
Everytime que eu estalasse sobre conservasse a tecla, conservará toda a caixa do txt e etiquetas em uma nova linha em um table.
How posso eu fazer este para satisfazer? o

This é o código onde eu põr os dados no textbox e nas etiquetas: o "" Then
Dim sSQL1 do <> do

If Des_prod.Text como String
escurece oRST1 enquanto ADODB.Recordset
ajustados oRST1 = ADODB.Recordset
escurecem oConnect1 como ADODB.Connection
ajustados oConnect1 = ADODB.Connection

sSQL1 = “SELECIONAM [Produits], [tubo], [Bouchon], [anel-O], [Opération 1], [Opération 2], [Opération 3] [produit da descrição] “do
oConnect1.Open “Provider=Microsoft.ACE.OLEDB.12.0; “ & origem de dados do _
" =” & Form4.txt BaseDe.Text &”; “

oRST1.Open sSQL1, oConnect1

If Des_prod > "" Then
oRST1.Filter = “Produits = “” & Des_prod.Text & “” “
ajustado txtComposante1.DataSource = oRST1
txtComposante1.DataField =

“do tubo do " ajustado txtComposante2.DataSource = oRST1
txtComposante2.DataField =

“de Bouchon do " ajustado txtComposante3.DataSource = oRST1
txtComposante3.DataField =

“do anel-O do " ajustado lblOring.DataSource = oRST1
lblOring.DataField = “

de Opération 1 do " ajustado lblVissé.DataSource = oRST1
lblVissé.DataField = “

de Opération 2 do " ajustado lblStérille.DataSource = oRST1
lblStérille.DataField = “extremidade If
Else

de Opération 3 do " A extremidade If


It de/> precisa de ser excepto em uma outra tabela chamada: “Inventaire”. o


So por exemplo, os dados txtComposante1 irá na coluna 2 da tabela “Inventaire”, txtComposante2 irá no


Thanks da coluna 3 ....... para seu help. class= do

Resposta : Conservar dados para alcançar o dbase com a ferramenta VB6

Olá!, Wilder1626.

Eu acredito que a “data” é uma palavra reservado.  A sintaxe olha muito bem à exceção da maneira que você está tentando introduzir os índices do campo do texto.  A linha deve ler

SQL = “INSERÇÃO EM VALORES de Inventaire (data) (“” & txtComposante1.Text & “") “