Problème VB et Access

Question

J'ai un petit probl&#232;me de lecture d'une base de donn&#233;e Access.
en voulant afficher une liste dans une ListeBox
j'obtiens cette erreur:


Erreur d'ex&#233;cution '91':
Variable objet ou variable bloc With non d&#233;finie


Voil&#224; le morceau de mon code:


Connect = Access
Data1.DatabaseName = App.Path & "\data\PRSONNEL.mdb"
Data1.RecordSource = "Unites" 'car j'ai plusueur tableau ds la m&#234;me bdd
With Data1.Recordset
List1.Text = .Fields("unite").Value
List1.Text = .Fields("unite").Value
End With


Je ne trouve pas la solution. HELP !!!

Rem'S

jpleroisse · Answer

Voila la m&#233;thode que j'utilise pour remplir un ListBox
Ne pas oublier de r&#233;f&#233;rencier ActiveX  Data Objects 2.0 Library et 
Microsoft DAO 3.6 Object Library. (3.51 sous Windows 98)

 Private Sub Command1_Click()
'On Error Resume Next
Dim MaBase As ADODB.Connection
Dim Connect As ADODB.Recordset
Dim sconnection As String
Set MaBase = New ADODB.Connection
Set Connect = New ADODB.Recordsetsconnection "Provider Microsoft.jet.OLEDB.4.0;" & " Data Source = C:\Program Files\Microsoft Visual Studio\vb98\Gestion.mdb" 
MaBase.Open sconnection
Connect.Open "Clients", MaBase
List1.AddItem Connect.Fields("Nom")
List1.AddItem Connect.Fields("Adresse")
List1.AddItem Connect.Fields("T&#233;l")


End Sub

jpleroisse

rems02 · Answer

Comment r&#233;f&#233;rencer ActiveX  Data Objects 2.0 Library et 
Microsoft DAO 3.6 Object Library. (3.51 sous Windows 98) ?

Rem'S

jpleroisse · Answer

Dans vb ouvre le fichier, Projet
S&#233;lectionne R&#233;f&#233;rences , parcours la bo&#238;te de dialogue et coche les cases 
devant ActiveX  Data Objects 2.0 Library et 
  Microsoft DAO 3.5.1 Object Library.

jpleroisse

Problème VB et Access

3 réponses

Discussions similaires