[VB] [ADO] Ajouter et Valider un Recordset

Ajouter et Valider un Recordset [VB] [ADO] - VB/VBA/VBS - Programmation

Marsh Posté le 16-03-2004 à 16:21:21    

Bonjour  
j'aimerai savoir si quelqu'un, bien entendu qui connait en Visual Basic puisse me renseigner à ce sujet.
 
En effet, j'aimerai "ajouter" et "valider" une nouvelle entreprise parmi une certaine liste déjà fourni. Mais le problème dans tout ça, cest que je n'arrive absolument pas à enregistrer tout ça dans mas Base de donnée Access
Voici mon code pour AJOUTER:

Code :
  1. Private Sub cmdajouter_Click()
  2. Set cn = New ADODB.Connection
  3. Set rs = New ADODB.Recordset
  5. cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
  6. cn.Open
  8. rs.Open "SELECT max(numentreprise) as derniernum  FROM entreprise", cn, adOpenDynamic, adLockOptimistic
  9. Text1.Text = rs("derniernum" ) + 1
  10. rs.Close
  11. Text2 = ""
  12. Text3 = ""
  13. Text4 = ""
  14. Text5 = ""
  15. Text6 = ""
  16. Text7 = ""
  17. Text8 = ""
  18. Text9 = ""
  19. Text2.SetFocus
  20. End Sub


 
et celui du bouton VALIDER:

Code :
  1. Private Sub cmdvalider_Click()
  2. Set cn = New ADODB.Connection
  3. Set rs = New ADODB.Recordset
  5. cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
  6. cn.Open
  8. rs.Open "SELECT * FROM entreprise", cn, adOpenDynamic, adLockOptimistic
  9. rs.Update
  11. cmdannuler.Enabled = True
  12. cmdvalider.Enabled = False
  13. cmdajouter.Enabled = True
  14. cmdsupprimer.Enabled = True
  15. cmdmodifier.Enabled = True
  16.    
  17. Text2.Enabled = False
  18. Text3.Enabled = False
  19. Text4.Enabled = False
  20. Text5.Enabled = False
  21. Text6.Enabled = False
  22. Text7.Enabled = False
  23. Text8.Enabled = False
  25. End Sub


Désolé je suis novice en la matière!!  :sweat:  
Il y a un message d'erreur lorsque j'ai envie de circuler sur le controle Adodc1: http://1132.free.fr/operation2.JPG
 
Quelqu'un pourrait me renseigner svp? :ange:  
 
Merci pour vos lumières!  :hello:

Reply

Marsh Posté le 16-03-2004 à 16:21:21   

Reply

Marsh Posté le 16-03-2004 à 16:32:22    

pour inserer j'utilise :  
 
[code]
Private Sub inserer_Click()
 
commentaire : permet de copier dans la base comptoir le nompassager saise  
 
Dim cn As ADODB.Connection
Dim strcn As String
Dim chaine As String
 
Set cn = New ADODB.Connection
strcn = "provider=microsoft.jet.oledb.3.51;data source =z:\comptoir.mdb"
cn.Open strcn
 
chaine = "insert into Messagers (Nomdumessager) values (' " & nompassager & " ')"
cn.Execute chaine
[code/]
 
pour vérifier que ton enregistrement a été pris en compte :
affiche dans la liste (liste) le contenu de la table messager du  
champs nomdumessager
 
[code]
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
rec.Open "select Nomdumessager from Messagers", cn
While Not rec.EOF
liste.AddItem rec.Fields("Nomdumessager" )
rec.MoveNext
Wend
End Sub
[code/]
 
gspr ke ca répond a ton pb car c'est pa trop le meme code que toi...

Reply

Marsh Posté le 16-03-2004 à 20:19:56    

Merci pour ta réponse mais ton code a l'air un petit peu compliqué même si le résultat reste le même!J'ai envie de passer par un Adodc car c'est ce que mon prof préfère parmi tout!
 
Je vais tester avec ce controle et je vous tiendrai au courant! :hello:

Reply

Marsh Posté le 18-03-2004 à 11:15:10    

Il manque pas un 'rs.AddNew' qqe part ???


---------------
Le succès c'est être capable d'aller d'échec en échec sans perdre son enthousiasme (Sir W.L.S.C.)
Reply

Marsh Posté le 23-03-2004 à 22:56:54    

Je ne vois absolument pas comment faire avec un Adodc? Quelqu'un a-t-il une solution pour une personne novice en la matière?
 
Merci d'avance!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed