Discussion :

[axis60]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Invité]

Bonsoir,

Code clsPersonnage :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[axis60]

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