Update adodc

cs_zaatout
Messages postés
156
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
20 novembre 2013
- 8 mars 2012 à 15:37
Bonjour

erreur : La ligne n'a pas pu être trouve pour la mise a jour certains valeurs ont pu être change depuis leurs dernière lecture.

a chaque fois dans le même enregistrement le 28 éme


Dim tablo() As String
Dim d, f, g, h, k, l, m, n As Double
Dim b, c, o As String
Dim e As Long

Open "C:\maintenance\cons.txt" For Input As #1

While Not EOF(1)
Input #1, a$
tablo() = Split(a$, "|")
b = "0212"
c = tablo(1)
d = tablo(2)
e = tablo(3)
f = tablo(4)
g = tablo(5)
h = tablo(6)
k = tablo(7)
l = tablo(8)
m = tablo(9)
n = tablo(10)
o = tablo(11)


Adodc1.Recordset.Filter = "code_s='" & Trim(o) & "'"

If Adodc1.Recordset.RecordCount = 0 Then

bdd.Execute "INSERT INTO recette values ('" & b & " ','" & c & "'," & _
" '" & d & " ','" & e & "'," & _
" '" & f & " ','" & g & "'," & _
" '" & h & " ','" & k & "'," & _
" '" & l & " ','" & m & "'," & _
" '" & n & " ','" & o & "')"
Else

Adodc1.Recordset.Fields(5).Value = adodc1.Recordset.Fields(5).Value + g
Adodc1.Recordset.Update
End If
o = ""
Adodc1.Refresh

Wend

Close #1