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!!
Il y a un message d'erreur lorsque j'ai envie de circuler sur le controle Adodc1:
Quelqu'un pourrait me renseigner svp?
Merci pour vos lumières!