'solution2
With ADOcn
.Provider =3D "Microsoft.Jet.OLEDB.4.0"
.ConnectionString =3D "Data Source=3D" & CheminAgenda
.CursorLocation =3D adUseClient
.Open
End With
Levenement =3D TxtEVELibelle.Text
'enregistre le nouvel evenement
Set ADOagenda =3D New ADODB.Recordset
With ADOagenda
.ActiveConnection =3D ADOcn
.CursorType =3D adOpenDynamic
.Open "Select * from " & AGDconcerne & " where date=3D'"=20
& DateEVE & "' and heure=3D'" & SelectionTranche & "'"
End With
If ADOagenda.RecordCount =3D 0 Then
ADOagenda.AddNew
ADOagenda("libelle") =3D Levenement
End If
ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos r=E9ponses car je suis vraiment dans la M.....
JCM
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FL
Bonjour,
Vérifiez la valeur de RecordCount dans la 2ème solution. Il est fort possible qu'elle soit à -1. Pour régler ce problème, utilisez CursorType adUseClient
"JCM" a écrit dans le message de news: 0a5f01c3d9ad$76758a10$ Bonjour
Pouvez-vous me dire pourquoi la solution2 ne marche pas alors que la solution1 fonctionne je préfére la 2 mais je ne vois pas ou est l'erreur:
'solution2 With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & CheminAgenda .CursorLocation = adUseClient .Open End With Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement Set ADOagenda = New ADODB.Recordset With ADOagenda .ActiveConnection = ADOcn .CursorType = adOpenDynamic .Open "Select * from " & AGDconcerne & " where date='" & DateEVE & "' and heure='" & SelectionTranche & "'" End With If ADOagenda.RecordCount = 0 Then ADOagenda.AddNew ADOagenda("libelle") = Levenement End If ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M..... JCM
Bonjour,
Vérifiez la valeur de RecordCount dans la 2ème solution. Il est fort
possible qu'elle soit à -1. Pour régler ce problème, utilisez CursorType adUseClient
"JCM" <jean-claude.mansion@wanadoo.fr> a écrit dans le message de news:
0a5f01c3d9ad$76758a10$a301280a@phx.gbl...
Bonjour
Pouvez-vous me dire pourquoi la solution2 ne marche pas
alors que la solution1 fonctionne
je préfére la 2 mais je ne vois pas ou est l'erreur:
'solution2
With ADOcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & CheminAgenda
.CursorLocation = adUseClient
.Open
End With
Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement
Set ADOagenda = New ADODB.Recordset
With ADOagenda
.ActiveConnection = ADOcn
.CursorType = adOpenDynamic
.Open "Select * from " & AGDconcerne & " where date='"
& DateEVE & "' and heure='" & SelectionTranche & "'"
End With
If ADOagenda.RecordCount = 0 Then
ADOagenda.AddNew
ADOagenda("libelle") = Levenement
End If
ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M.....
JCM
Vérifiez la valeur de RecordCount dans la 2ème solution. Il est fort possible qu'elle soit à -1. Pour régler ce problème, utilisez CursorType adUseClient
"JCM" a écrit dans le message de news: 0a5f01c3d9ad$76758a10$ Bonjour
Pouvez-vous me dire pourquoi la solution2 ne marche pas alors que la solution1 fonctionne je préfére la 2 mais je ne vois pas ou est l'erreur:
'solution2 With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & CheminAgenda .CursorLocation = adUseClient .Open End With Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement Set ADOagenda = New ADODB.Recordset With ADOagenda .ActiveConnection = ADOcn .CursorType = adOpenDynamic .Open "Select * from " & AGDconcerne & " where date='" & DateEVE & "' and heure='" & SelectionTranche & "'" End With If ADOagenda.RecordCount = 0 Then ADOagenda.AddNew ADOagenda("libelle") = Levenement End If ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M..... JCM
EddiGordo
Bonjour
Essaie en mettant .LockType = adLockOptimistic juste avant ton .Open
Trucs et astuces : Utiliser la syntaxe ADOAgenda!Libelle au lieu de ADOAgenda("Libelle") est plus rapide
En espérant t'avoir aidé...
-- Enjoy !
Bonjour
Essaie en mettant .LockType = adLockOptimistic juste avant ton .Open
Trucs et astuces : Utiliser la syntaxe ADOAgenda!Libelle au lieu de
ADOAgenda("Libelle") est plus rapide
'solution2 With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & CheminAgenda .CursorLocation = adUseClient .Open End With Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement Set ADOagenda = New ADODB.Recordset With ADOagenda .ActiveConnection = ADOcn .CursorType = adOpenDynamic .Open "Select * from " & AGDconcerne & " where date='" & DateEVE & "' and heure='" & SelectionTranche & "'" End With If ADOagenda.RecordCount = 0 Then ADOagenda.AddNew ADOagenda("libelle") = Levenement End If ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M..... JCM
.
Merci de ta réponse
mais la solution proposée par la précédente réponse
fonctionne
Cordialement
JCM
-----Message d'origine-----
Bonjour,
Vérifiez la valeur de RecordCount dans la 2ème solution.
Il est fort
possible qu'elle soit à -1. Pour régler ce problème,
utilisez CursorType =
adUseClient
"JCM" <jean-claude.mansion@wanadoo.fr> a écrit dans le
message de news:
0a5f01c3d9ad$76758a10$a301280a@phx.gbl...
Bonjour
Pouvez-vous me dire pourquoi la solution2 ne marche pas
alors que la solution1 fonctionne
je préfére la 2 mais je ne vois pas ou est l'erreur:
'Solution1
Set ADOrs = CreateObject("adodb.recordset")
ADOrs.Open "Select * from AgendaJCM", "Data
Source=c:MapMarketBasesgeneralites.mdb;Provider=Microso
'solution2
With ADOcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & CheminAgenda
.CursorLocation = adUseClient
.Open
End With
Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement
Set ADOagenda = New ADODB.Recordset
With ADOagenda
.ActiveConnection = ADOcn
.CursorType = adOpenDynamic
.Open "Select * from " & AGDconcerne & " where date='"
& DateEVE & "' and heure='" & SelectionTranche & "'"
End With
If ADOagenda.RecordCount = 0 Then
ADOagenda.AddNew
ADOagenda("libelle") = Levenement
End If
ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M.....
JCM
'solution2 With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & CheminAgenda .CursorLocation = adUseClient .Open End With Levenement = TxtEVELibelle.Text
'enregistre le nouvel evenement Set ADOagenda = New ADODB.Recordset With ADOagenda .ActiveConnection = ADOcn .CursorType = adOpenDynamic .Open "Select * from " & AGDconcerne & " where date='" & DateEVE & "' and heure='" & SelectionTranche & "'" End With If ADOagenda.RecordCount = 0 Then ADOagenda.AddNew ADOagenda("libelle") = Levenement End If ADOagenda.UpdateBatch adAffectAllChapters
Merci de vos réponses car je suis vraiment dans la M..... JCM