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
|