Insert into qui marche mais sans résultat, pourquoi ?
sexygling
Messages postés31Date d'inscriptionsamedi 15 mai 2004StatutMembreDernière intervention 4 janvier 2006
-
2 juin 2004 à 01:23
sexygling
Messages postés31Date d'inscriptionsamedi 15 mai 2004StatutMembreDernière intervention 4 janvier 2006
-
2 juin 2004 à 01:25
Salut a tous, voila je me permet de relancer mon probleme, je n'y trouve aucune solution !! et ca me rend dingue !!
Alors a prioris, cette requete ne genere aucune erreur, mais quand je verifis dans ma table : elle est vide ! :(
Set record = db.OpenRecordset("select * from vtemp")
'Création de la vente dans la table vente
If Data1.Recordset.RecordCount > 0 Then
Call recherchemax("nvente", "vente")
nvente = rs!Max + 1
'insertions des articles saisis dans la table evendu
record.MoveFirst
While Not record.EOF
nligne = record!numligne
ref = record!reference
remisep = record!remiseprod
db.Execute " INSERT INTO evendu " _
& "(ref, Vente, numligne, remiseprod) VALUES " _
& "('" & ref & "', " & nvente & ", " & nligne & ", " & remisep & "); "
record.MoveNext
Wend
record.Close
Quelque precision sur mes champs.. :
nligne = long sous vb
numligne = entier long sous access, c'est une clé primaire
nvente = long sous vb
vente = entier long, c'est aussi une clé primaire
ref = string sous vb
ref = chaine de caractere sous acces, c'est AUSSI une clé primaire :)
remisep = Single sous vb
remiseprod = réel simple sous access
Je travail sous vb 5.0.
Un grand merci a tous ceux qui y jeteront un oeil meme sans répondre.. :shy)