Vraag : Transfert in de toegang db van Microsoft

Hello riepen allen,/>i behoefte


But als daar reeds een waarde daarin, het de nieuwe waarde aan bestaande ex value.

For zal toevoegen: als ik reeds 10 als waarde in mijn toegang db, en in mijn textbox had, heb ik 20, dan zal het 30 mijn toegang db.

But aanbrengen om de goede lijn te filtreren, heb ik creteria 2 nodig:


Dim sSQL3 als String
Dim oRST3 als ADODB.Recordset
Set oRST3 = Nieuwe ADODB.Recordset
Dim oConnect3 als ADODB.Connection
Set oConnect3 = Nieuwe ADODB.Connection


sSQL3 _
=“ SELECTEERT [Période], [Description_du_produit], [Quantité_distribuée] " _
& „VAN [Inventaire]“ _
& „WAAR Période = „“ & ComDateDisponible.Text & „“ „_
&“ EN Description_du_produit = „„& Des_prod.Text &““ „


Période van „ComDateDisponible.Text“ en Description_du_produit van „Des_prod.Text“.

How kan ik dit alstublieft doen?

Here is wat ik voor know


Thanks
 heb
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Dim sSQL3 als Koord
Schemerige oRST3 als ADODB.Recordset
Vastgesteld oRST3 = Nieuwe ADODB.Recordset
Schemerige oConnect3 als ADODB.Connection
Vastgesteld oConnect3 = Nieuwe ADODB.Connection


sSQL3 _
        = „SELECTEER [Période], [Description_du_produit], [Quantité_distribuée]“ _
        & „VAN [Inventaire]“ _
        & „WAAR Période = „“ & ComDateDisponible.Text & „“ „_
        & „EN Description_du_produit = „“ & Des_prod.Text & „“ „

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
„Gegevens Source=“ & Form4.txt BaseDe.Text &“; „

oRST3.Open sSQL3, oConnect3

Als Des_prod > "" toen
oRST3.Filter = „Quantité_distribuée“

   
     

        
    Eind als

Antwoord : Transfert in de toegang db van Microsoft

Schemerige sSQL3 als Koord
Schemerige oRST3 als ADODB.Recordset
Vastgesteld oRST3 = Nieuwe ADODB.Recordset
Schemerige oConnect3 als ADODB.Connection
Vastgesteld oConnect3 = Nieuwe ADODB.Connection


sSQL3 _
        = „UPDATE [Quantité_distribuée]“ _
        & „VAN [Inventaire]“ _
        & „WAAR Période = „“ & ComDateDisponible.Text & „“ „_
        & „EN Description_du_produit = „“ & Des_prod.Text & „“ „

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
„Gegevens Source=“ & Form4.txt BaseDe.Text &“; „
oConnect3.execute sSQL3
Andere oplossingen  
 
programming4us programming4us