Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour pour 1 champ Sub m() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Fields.Append "jjj", adInteger rs.Open rs.AddNew rs(0) = 10 rs.Update Debug.Print rs(0) rs.Close
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Didier Fraisse" a écrit dans le message de news:419e1ae0$0$24809$
Bonjour
il me semble qu'il est possible de se créer un recordset (peut être ADO) non lié à une table qq chose du genre
set oRs = new ADODB.recordset oRs.Fields.Append "Champ1",adVarChar,4 ....
puis de l'alimenter par oRs.Field("Champ1") = "TOTO" ...
hélas je ne me souviens pas exactement de la façon de faire. Si quelqu'un à un exemple sous la main ou un adresse internet, je suis preneur
Merci d'avance Didier
bonjour
pour 1 champ
Sub m()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Fields.Append "jjj", adInteger
rs.Open
rs.AddNew
rs(0) = 10
rs.Update
Debug.Print rs(0)
rs.Close
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Didier Fraisse" <dfraisse.info@free.fr> a écrit dans le message de news:419e1ae0$0$24809$626a14ce@news.free.fr...
Bonjour
il me semble qu'il est possible de se créer un recordset (peut être ADO) non
lié à une table
qq chose du genre
set oRs = new ADODB.recordset
oRs.Fields.Append "Champ1",adVarChar,4
....
puis de l'alimenter par
oRs.Field("Champ1") = "TOTO"
...
hélas je ne me souviens pas exactement de la façon de faire.
Si quelqu'un à un exemple sous la main ou un adresse internet, je suis
preneur
bonjour pour 1 champ Sub m() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Fields.Append "jjj", adInteger rs.Open rs.AddNew rs(0) = 10 rs.Update Debug.Print rs(0) rs.Close
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Didier Fraisse" a écrit dans le message de news:419e1ae0$0$24809$
Bonjour
il me semble qu'il est possible de se créer un recordset (peut être ADO) non lié à une table qq chose du genre
set oRs = new ADODB.recordset oRs.Fields.Append "Champ1",adVarChar,4 ....
puis de l'alimenter par oRs.Field("Champ1") = "TOTO" ...
hélas je ne me souviens pas exactement de la façon de faire. Si quelqu'un à un exemple sous la main ou un adresse internet, je suis preneur
