Pb avec dbopensnapshot

Question

Bonjour,

Débutant, j'ai un sérieux problème avec le code très court qui suit :

Option Explicit
Public db As Database
Public rs As Recordset
Public sql As String

Private Sub Form_Load()
    Set db = OpenDatabase(App.Path & "\requisition.mdb")
    sql = "select*from Agents"
    Set rs = db.OpenRecordset(sql, dbOpenSnapshot) <-- sur cette ligne erreur "type incompatible"
    Lst_agents.AddItem rs.Fields("nom")
End Sub

C'est un code succint destiné a tester l'accès a un  base de donnée access.
Je ne comprend pas d'où vient l'erreur, quelles sont les causes possibles.

Merci pour votre aide...

lolokun · Answer

Salut,
Je ne sais pas si ça vient de là mais mets des espaces dans ta requête.

sql = "select * from Agents"

Et pour ajouter ensuite la ligne que tu as écrites ne suffira pas :
with rs
If .RecordCount <> 0 Then
        .MoveFirst
         Do While Not .EOF   'puis parcourt les enregistrements jusqu'au dernier
         'Ajout des différents choix de la listbox
         Lst_agents.AddItem .Fields("nom")
        .MoveNext
    Loop
end with

lolokun · Answer

PS : 

Ne pas oublier de fermer le recordset à la fin de la boucle
.Close 'fermeture du recordset

fredpop37 · Answer

Merci à toi,
Bizarre, mon code fonctionne si je ne déclare pas les variables.

De plus, en créant un nouveau projet, même en les déclarant cela fonctionne...

alors ????

j'ai continué ss déclaration...

si vous avez des avis...
fred

lolokun · Answer

Re,


Il vaut mieux toujours déclarer les variables..
Et comme ceci??

Public Sql As String
Public base As Database
Public MonEspace As Workspace
Public rs As Recordset

nomBase = App.Path + "\base_mas.mdb"             'initialisation et ouverture de la base
Set MonEspace = DBEngine.Workspaces(0)
Set base = MonEspace.OpenDatabase(nomBase)
sql = "select*from Agents"
Set rs = MonEspace.OpenRecordset(sql, dbOpenSnapshot)

Pb avec dbopensnapshot

4 réponses

Votre réponse

Discussions similaires