Pytanie : Transfert w Microsoft dojazdowy db

Cześć/>For,

i potrzeba the wartość od textbox ("txtQté.text") w odmianowy kolumna dzwonić Quantité_distribuée.

But jeżeli tam  już wartość w ono, ono dodawać the nowy wartość the nowy value.

For nowy: jeżeli i miewać 10 już gdy wartość w mój dostęp db, i w mój textbox, i mieć 20, then ono stawiać 30 w mój dostęp db.

But the dobry linia, i potrzebować 2 creteria:


Dim sSQL3 Jako String
Dim oRST3 Jako ADODB.Recordset
Set oRST3 = Nowy ADODB.Recordset
Dim oConnect3 Jako ADODB.Connection
Set oConnect3 = Nowy ADODB.Connection


sSQL3 _
=" WYBIÓRKA [Période], [Description_du_produit], [Quantité_distribuée] " _
& "OD [Inventaire]" _
& "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
&" I Description_du_produit = ""& Des_prod.Text &"" "


Période od "ComDateDisponible.Text" i Description_du_produit od "Des_prod.Text".

How móc i to zadawalać?

Here być/> i mieć dla know


Thanks
(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 Sznurek
Ciemnawy oRST3 Jako ADODB.Recordset
Set oRST3 = Nowy ADODB.Recordset
Ciemnawy oConnect3 Jako ADODB.Connection
Set oConnect3 = Nowy ADODB.Connection


sSQL3 _
        = "WYBIÓRKA [Période], [Description_du_produit], [Quantité_distribuée]" _
        & "OD [Inventaire]" _
        & "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
        & "I Description_du_produit = "" & Des_prod.Text & "" "

oConnect3.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text &"; "

oRST3.Open sSQL3, oConnect3

Jeżeli Des_prod > "" Wtedy
oRST3.Filter = "Quantité_distribuée"

   
     

        
    Kończyć Jeżeli

Odpowiedź : Transfert w Microsoft dojazdowy db

Ciemnawy sSQL3 Sznurek
Ciemnawy oRST3 Jako ADODB.Recordset
Set oRST3 = Nowy ADODB.Recordset
Ciemnawy oConnect3 Jako ADODB.Connection
Set oConnect3 = Nowy ADODB.Connection


sSQL3 _
        = "AKTUALIZACJA [Quantité_distribuée]" _
        & "OD [Inventaire]" _
        & "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
        & "I Description_du_produit = "" & Des_prod.Text & "" "

oConnect3.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text &"; "
oConnect3.execute sSQL3
Inne rozwiązania  
 
programming4us programming4us