Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1083 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] [ADO] Ajouter et Valider un Recordset

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB] [ADO] Ajouter et Valider un Recordset

n°675169
Rony95
Posté le 16-03-2004 à 16:21:21  profilanswer
 

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
  4. cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
  5. cn.Open
  6. rs.Open "SELECT max(numentreprise) as derniernum  FROM entreprise", cn, adOpenDynamic, adLockOptimistic
  7. Text1.Text = rs("derniernum" ) + 1
  8. rs.Close
  9. Text2 = ""
  10. Text3 = ""
  11. Text4 = ""
  12. Text5 = ""
  13. Text6 = ""
  14. Text7 = ""
  15. Text8 = ""
  16. Text9 = ""
  17. Text2.SetFocus
  18. 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
  4. cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
  5. cn.Open
  6. rs.Open "SELECT * FROM entreprise", cn, adOpenDynamic, adLockOptimistic
  7. rs.Update
  8. cmdannuler.Enabled = True
  9. cmdvalider.Enabled = False
  10. cmdajouter.Enabled = True
  11. cmdsupprimer.Enabled = True
  12. cmdmodifier.Enabled = True
  13.    
  14. Text2.Enabled = False
  15. Text3.Enabled = False
  16. Text4.Enabled = False
  17. Text5.Enabled = False
  18. Text6.Enabled = False
  19. Text7.Enabled = False
  20. Text8.Enabled = False
  21. 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:

mood
Publicité
Posté le 16-03-2004 à 16:21:21  profilanswer
 

n°675180
lhonolulu
Posté le 16-03-2004 à 16:32:22  profilanswer
 

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

n°675350
Rony95
Posté le 16-03-2004 à 20:19:56  profilanswer
 

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:

n°676917
Maho-kun
Bientot proprio
Posté le 18-03-2004 à 11:15:10  profilanswer
 

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.)
n°682015
Rony95
Posté le 23-03-2004 à 22:56:54  profilanswer
 

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!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] [ADO] Ajouter et Valider un Recordset

 

Sujets relatifs
[ORACLE + ASP] Possible d'ajouter un user a partir d'une page asp ?ACCESS: ajouter un espace dans une expression d'une requete?
ajouter 6 jours à une date[Asp.net] Valider avec la touche Entrer
Problème modification de données ADOcomment valider un formulaire en passant par l'url ???
Comment ajouter une fonction au clic droit Windows[JS] ajouter des méthodes a un <select>
[VB6 + ADO] Help pour un newbie ![jbuilder] ajouter package (débutant)
Plus de sujets relatifs à : [VB] [ADO] Ajouter et Valider un Recordset


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR