OVH Cloud OVH Cloud

ADO.Recordset

1 réponse
Avatar
Novice
Bonjour à tous

Est-ce possible de créer un ADO.Recordset sans se connecter à une base de
données puisque, bien que la majorité du temps, je lis les données dans la
base de données, il peut arriver quelques fois que je doive lire les données
dans un fichier .txt. Si quelqu'un a des idées ou des références!

Merci de votre aide
Denis

1 réponse

Avatar
Jean-Noel
Bonjour,
Oui tu peux.
Voici un exemple que j'ai réalisé il y a quelques années

Private ROBJ As New ADODB.Recordset

'Crée le recordset container des datas graphiques pour
'les stocker avant de les replacer dans les tableaux
'ENV, PLS, MAT.

With ROBJ
.CursorLocation = adUseClient
.Fields.Append "Nom", adChar, 255, adFldUpdatable
.Fields.Append "Num", adInteger, 4, adFldUpdatable
.Fields.Append "Obj", adSmallInt, 2, adFldUpdatable
.Fields.Append "i1", adSmallInt, 2, adFldUpdatable
.Fields.Append "i2", adSmallInt, 2, adFldUpdatable
.Fields.Append "i3", adSmallInt, 2, adFldUpdatable
.Fields.Append "i4", adSmallInt, 2, adFldUpdatable
.Fields.Append "i5", adSmallInt, 2, adFldUpdatable
.Fields.Append "i6", adSmallInt, 2, adFldUpdatable
.Fields.Append "i7", adSmallInt, 2, adFldUpdatable
.Fields.Append "i8", adSmallInt, 2, adFldUpdatable
.Fields.Append "i9", adSmallInt, 2, adFldUpdatable
.Fields.Append "i10", adSmallInt, 2, adFldUpdatable
.Fields.Append "b1", adBoolean, 1, adFldUpdatable
.Fields.Append "b2", adBoolean, 1, adFldUpdatable
.Fields.Append "b3", adBoolean, 1, adFldUpdatable
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With

'Utilisation dans laquelle je rempli le Recordset

ROBJ.AddNew
ROBJ![Nom] = "Enveloppe 1"
ROBJ![obj] = 0 'Type d'objet : Enveloppe
ROBJ![i1] = 2025 'H
ROBJ![i2] = 700 'L
ROBJ![i3] = 400 'P
ROBJ![i4] = 125 'PH
ROBJ![i5] = 150 'PB
ROBJ![i6] = 50 'PL
ROBJ![i7] = 0 'PP
ROBJ![i8] = 100 'Ul
UniteLAdjust = 100
ROBJ![i9] = 50 'Uh
UniteHAdjust = 50
ROBJ![i10] = 0 'Nb Rang et Module pour coffret à intégration
plastron
ROBJ![B1] = False
ROBJ![B2] = False
ROBJ![B3] = False
ROBJ.Update

Jean-noël

"Novice" a écrit dans le message de news:
PQjmg.109403$
Bonjour à tous

Est-ce possible de créer un ADO.Recordset sans se connecter à une base de
données puisque, bien que la majorité du temps, je lis les données dans la
base de données, il peut arriver quelques fois que je doive lire les
données
dans un fichier .txt. Si quelqu'un a des idées ou des références!

Merci de votre aide
Denis