[VB] [ADO] Ajouter et Valider un Recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] [ADO] Ajouter et Valider un Recordset

Rony95

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 :

Private Sub cmdajouter_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
cn.Open
rs.Open "SELECT max(numentreprise) as derniernum FROM entreprise", cn, adOpenDynamic, adLockOptimistic
Text1.Text = rs("derniernum" ) + 1
rs.Close
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text2.SetFocus
End Sub

et celui du bouton VALIDER:

Code :

Private Sub cmdvalider_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contrat_qualif2000.mdb;Persist Security Info=False"
cn.Open
rs.Open "SELECT * FROM entreprise", cn, adOpenDynamic, adLockOptimistic
rs.Update
cmdannuler.Enabled = True
cmdvalider.Enabled = False
cmdajouter.Enabled = True
cmdsupprimer.Enabled = True
cmdmodifier.Enabled = True
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
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:

Quelqu'un pourrait me renseigner svp? :ange:

Merci pour vos lumières! :hello:

Publicité

lhonolulu

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

Rony95

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:

Maho-kun

Bientot proprio

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

Rony95

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!

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 ADO	comment 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

Page générée en 0.050 secondes