vb 6: MSFlexGrid et base de données par DAO

**tonguim** · 29/08/2006, 15h06

Bonjour,

je voudrais afficher des données stockées dans une table, sur un MSFlexGrid. Mon code ci-dessous ne fonctionne pas; où se situe le problème? Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Public connect As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub opendb()
    If connect.State = adStateOpen Then connect.Close
 
    locate = App.Path & "\essai.mdb" & ";Jet " & "OLEDB:"
    connect.CursorLocation = adUseClient
    connect.Open "provider=microsoft.jet.oledb.4.0;" + "data source =" & locate & ";" + "persist security info = false"
End Sub
Sub openrs()
    rsuser.Open "employers", connect, adOpenKeyset, adLockOptimistic
End Sub
 
Sub openall()
    opendb
    openrs
End Sub
 
Dim db As Database
Dim rs As Recordset
 
' Ouverture de la base de données
Set db = OpenDatabase("C:\Documents and Settings\etudiant_uva\Bureau\gtf\access\essai.mdb", dbDriverNoPrompt, False, "ODBC;DSN=TestDB")
 
' Execution de la requete sur la base de donnees.
Set rs = db.OpenRecordset("select * from employers", dbOpenDynamic, 0, dbOptimistic)
 
flxGd.DataSource = rs
 
' Parcours des enregistrements de la table
rs.MoveFirst
While Not rs.EOF
    rs.MoveNext
Wend
 
' Fermeture du Recordset.
rs.Close
 
' Fermeture de la base de données
db.Close

**pc75** · 29/08/2006, 15h38

Bonjour,

Envoyé par tonguim

Mon code ci-dessous ne fonctionne pas

C'est un peu court comme précisions !

**tonguim** · 29/08/2006, 15h59

Voci le message d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"erreur de compilation; type defini par l'utilisateur non defini"

. Puis le compilateur selectionne la première ligne du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public connect As New ADODB.Connection

**Phifi** · 29/08/2006, 15h59

je voudrais afficher des données stockées dans une table, sur un MSFlexGrid. Mon code ci-dessous ne fonctionne pas; où se situe le problème? Merci.

Effectivement, une petite précision serait la bienvenue : l'erreur est sur quelle ligne de ton code par exemple, quelle est la description de celle-ci...

Le copier/coller est facile. Ceux qui essayent de te répondre devront analyser un extrait code fait par un autre, hors contexte, avec sûrement d'autres habitudes, d'autres façons de faire, dans un environnement inconnu, pour on ne sait quelle fin...

On prend sur notre temps de travail pour répondre, c'est déjà pas mal, mais de là à relever le challenge Microsfot du bug caché dans les 12 523 lignes de code...

On gagne quoi au fait ?

**Phifi** · 29/08/2006, 16h01

Public connect As New ADODB.Connection

Tu as ajouté quelle référence à ton projet ? DAO ou ADO ? (Jet 2.x/3.x ou ActiveX Data Objet 2.x)
Il me semble qu'il y a une petite confusion classique

**tonguim** · 29/08/2006, 16h06

Envoyé par Phifi

Tu as ajouté quelle référence à ton projet ? DAO ou ADO ? (Jet 2.x/3.x ou ActiveX Data Objet 2.x)
Il me semble qu'il y a une petite confusion classique

J'utilise le DAO.