Frage : Transfert in Microsoft Access-DB

Hallo benannten alle,

i Notwendigkeit, den Wert von einer area per informazioni („txtQté.text“) in einer spezifischen Spalte zu senden Quantité_distribuée.

But, wenn dort bereits ein Wert in ihm, es den neuen Wert dem existenten value.

For ex hinzufügt: wenn ich 10 bereits hatte, da ein Wert in meinem Zugangs-DB und in meiner area per informazioni, ich 20 haben, dann gibt er 30 in meinen Zugang db.

But ein, um die gute Linie zu filtern, ich benötigt creteria 2:


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


sSQL3 _
=“ WÄHLEN [Période], [Description_du_produit], [Quantité_distribuée] " _
u. „[Inventaire]“ vom _
u. „WO Période = „“ u. ComDateDisponible.Text u. „“ „_
u.“ UND Description_du_produit = „„u. Des_prod.Text u.““ „


Période „von ComDateDisponible.Text“ und von Description_du_produit von „Des_prod.Text“ vor.

How kann ich dies tun zu gefallen?

Here ist, was ich für know


Thanks
 habe 
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 Schnur
Schwaches oRST3 als ADODB.Recordset
Einstellen oRST3 = neues ADODB.Recordset
oConnect3 als ADODB.Connection verdunkeln
Einstellen oConnect3 = neues ADODB.Connection


sSQL3 _
        = „VORWÄHLEN [Période], [Description_du_produit], [Quantité_distribuée]“ _
        u. „[Inventaire]“ vom _
        u. „, WO Période = „“ u. ComDateDisponible.Text u. „“ „_
        u. „UND Description_du_produit = „“ u. Des_prod.Text u. „“ „

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „

oRST3.Open sSQL3, oConnect3

Wenn Des_prod > "" dann
oRST3.Filter = „Quantité_distribuée“

   
     

        
    Beenden wenn

Antwort : Transfert in Microsoft Access-DB

Schwaches sSQL3 als Schnur
Schwaches oRST3 als ADODB.Recordset
Einstellen oRST3 = neues ADODB.Recordset
oConnect3 als ADODB.Connection verdunkeln
Einstellen oConnect3 = neues ADODB.Connection


sSQL3 _
        = „UPDATE [Quantité_distribuée]“ _
        u. „[Inventaire]“ vom _
        u. „, WO Période = „“ u. ComDateDisponible.Text u. „“ „_
        u. „UND Description_du_produit = „“ u. Des_prod.Text u. „“ „

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „
oConnect3.execute sSQL3
Weitere Lösungen  
 
programming4us programming4us