rami3b
Messages postés17Date d'inscriptionmardi 27 juillet 2004StatutMembreDernière intervention 8 décembre 2008
-
23 sept. 2006 à 00:15
rami3b
Messages postés17Date d'inscriptionmardi 27 juillet 2004StatutMembreDernière intervention 8 décembre 2008
-
23 sept. 2006 à 14:14
bonjour
voici mon code
------------
Sub connection()
Dim cn As New ADODB.connection, rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ella\Bureau\pointeuse\p5\pointage.mdb;Persist Security Info=False"
rs.Open "tab", cn, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Command1_Click()
connection
rs.AddNew
rs("num") = 1
rs.Update
End Sub
--------------------------------------
je veu ajouter un enregistrement a la table atb sur la seule colonne qu'elle contient (num),mais j'ai une erreur (424 un objet est requis) et l'erreur pointe sur rs.AddNew
est ce qq'un a une idee sur la cause
mmerci d'avance pour vos reponses
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 23 sept. 2006 à 01:09
Ton rs n' est pas reconnu dans
Private Sub Command1_Click
parce qu' il est déclaré comme
Privé dans Sub connection
...
Déclare le comme Public dans un Module
Ou Privé dans ton Form.
Ou Privé dans chacune des procédures.
rami3b
Messages postés17Date d'inscriptionmardi 27 juillet 2004StatutMembreDernière intervention 8 décembre 2008 23 sept. 2006 à 01:55
cet fois j'ai declare dans un module ce qui suit
-------
Public Sub connection()
Dim cn As New ADODB.connection, rs As New ADODB.Recordset
End Sub
------------
et puis le reste
Private Sub Command1_Click()
connection
rs.AddNew
rs("num") = 1
rs.Update
End Sub
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ella\Bureau\pointeuse\p5\pointage.mdb;Persist Security Info=False"
rs.Open "tab", cn, adOpenDynamic, adLockOptimistic
End Sub
--------------
mé cet fois meme code d'erreur sur cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and
Settings\ella\Bureau\pointeuse\p5\pointage.mdb;Persist Security
Info=False"
?
rami3b
Messages postés17Date d'inscriptionmardi 27 juillet 2004StatutMembreDernière intervention 8 décembre 2008 23 sept. 2006 à 02:21
merci [auteurdetail.aspx?ID=736628 chaibat05] c'est faut ce que j'ai ecri,voila ce que j'ai essayé de faire:
dans la classe:
Public conn As New ADODB.connection
Public rs As New ADODB.Recordset
et puis
Private Sub Command1_Click()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ella\Bureau\pointeuse\p5\pointage.mdb;Persist Security Info=False"
rs.Open "tab", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("num") = 1
rs.Update
End Sub
Private Sub Form_Load()
End Sub
----------
mé cet foi, il me signale que "conn As New ADODB.connection"
est un type défini par l'utilisateur non definit
Vous n’avez pas trouvé la réponse que vous recherchez ?
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 23 sept. 2006 à 02:22
Public cn As New ADODB.connection
Public rs As New ADODB.Recordset
tu peux déclarer rs comme public
il te servira pour d' autres liaisons
ou tu peut le déclarer Dim
à chaque fois que tu en a besoin.
Public Sub connection()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ella\Bureau\pointeuse\p5\pointage.mdb;Persist Security Info=False"
End Sub
------------
et puis le reste
Private Sub Command1_Click()
'ajouter un enregistrement
rs.AddNew
rs("num") = 1
rs.Update
End Sub
Private Sub Form_Load()
connection
'ton rs est déjà prêt
rs.Open "tab", cn, adOpenDynamic, adLockOptimistic
End Sub