VBA : Création, modification et suppression d'objets personnalisés dans une BDD

Bonjour à tous,

Toujours dans ma quête d'apprentissage du VBA je me pose une question : est il possible de créer un enregistrement dans une base de donnée SQL Server distante à partir d'un objet ? De meme le modifier ou le supprimer ?

Je m'explique :

J'ai une classe clsPersonage qui à pour propriété Nom, Vie et Attaque.
J'ai créé un Userform pour la création de personnage avec 3 textboxs (nom, vie, attaque).

Une fois le formulaire validé, j'obtiens donc un nouvel objet Perso avec ses 3 propriétés.

Code:

---

1 2 3 4 5 6 7

Dim Perso As New clsPersonnage With Perso .nom = Me.nom.Value .vie = Me.vie.Value .attaque = Me.attaque.Value End With

---

Ma question est : y-a-t'il un moyen simple de sauvegarder cet élément dans ma table "personnage" qui comporte les colonnes "id,nom,vie,attaque" ?
De même, quel est le meilleur moyen pour rappeler cet enregistrement et l’intégrer dans un objet Personnage afin de réutiliser les différentes méthodes de ma classe ?

J’espère avoir été assez clair... :?:weird:

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public nom as string,vie as integer,attaque as string,Id as integer,Cn as object   Public Sub Maj() Dim rs as object,sql as string If Id<>0 then Sql="select * from tablex Where Id=" & Id Else Sql ="select * from tablex where nom='" & nom &"'" End if Set rs=cn.execute(sql) If rs.eof then Rs.addnew   Rs!nom=nom Rs!vie=vie Rs!attaque=attaque Rs.update Id=Rs!Id Rs.close Set Rs=Nothing End sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim cn as Object Set cn=createobject("adodb.conection") Cn.open conxionstingSqlServeur Dim Perso As New clsPersonnage With Perso set .cn=cn .nom = Me.nom.Value .vie = Me.vie.Value .attaque = Me.attaque.Value .maj End With

---

Merci pour ton aide Dysorthographie. J'ai adapté ton code est ça marche nickel.