problème, URGENT travail fin session :)

Question

dans mon module:
Public Rst As Recordset
Public rst2 As Recordset

dans ma form:

Private Sub Form_Load()
    Dim Dbs As Database
    Dim Numero_C As Integer
    Dim DBPath As String
    Dim SQLQry As String
    
    DBPath = "d:\BDbibli.mdb" 'Chemin et nom du fichier
    Set Dbs = DBEngine.OpenDatabase(DBPath, True, False)
    
    SQLQry = "SELECT * FROM Client"
*** Set rst2 = Dbs.OpenRecordset(SQLQry)
    TNom.Text = rst2!Nom
    TPrenom.Text = rst2!Prenom
    TAdresse.Text = rst2!Adresse
    TTelephone.Text = rst2!Telephone
    TNumero.Text = rst2!No_Client
    TAmende.Text = rst2.RecordCount

Pourriez-vous me dire pourquoi VB me donne un message d'erreur où il y a les ***?? Il me dit type mismatch... J'aimerais avoir tous les enregistrements dans le set rst2... comment faire?

merci.

DaGreat · Answer

J'ai reussi à régler mon problème, mais ca ne me permet pas de comprendre... J'ai enlevé les mots "as RecordSet" de ma variable rst2, permettant ainsi à VB d'en faire ce qu'il en veut... alors qu'elle serait le bon qualificatif de la variable rst2 pour que mon programme fonctionne (la fonction Dbs.OpenRecordSet(SQLQry) m'a l'air de retourner un Object/RecordSet...

Mariner · Answer

Désolé, je n'ai pas pu reproduire ton problème,
tout marche bien ici. Par contre je te propose
les petits changements suivants:


SQLQry = "SELECT * FROM Client;"  ' <-- J'ai ajouté un ';'
Set rst2 = Dbs.OpenRecordset(SQLQry, dbOpenSnapshot)

Problème, URGENT travail fin session :)

2 réponses

Discussions similaires