desgui1
Messages postés2Date d'inscriptionlundi 23 novembre 2009StatutMembreDernière intervention 1 décembre 2009
-
1 déc. 2009 à 04:31
desgui1
Messages postés2Date d'inscriptionlundi 23 novembre 2009StatutMembreDernière intervention 1 décembre 2009
-
1 déc. 2009 à 16:41
Bonjour,
j'ai une certaine expérience avec VB, mais je n'ai jamais travaillé avec de base de données. J'ai le code suivant qui me pose problème.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\allo.mdb"
con.Open()
rst.Open("SELECT * FROM Compte", con, ADODB.CursorTypeEnum.adOpenUnspecified, ADODB.LockTypeEnum.adLockOptimistic)
With rst
If .RecordCount <> 0 Then
.MoveFirst()
MsgBox(rst.RecordCount)
Do While Not .EOF
MsgBox(rst!nombre) *****
.MoveNext()
Loop
Else
MsgBox("Rien trouvé")
End If
End With
rst.Close()
con.Close()
rst = Nothing
con = Nothing
End Sub
End Class
J'ai mis ***** à la ligne que me pose problème. Avec ce que j'ai vu sur divers site, c'est la façon d'extraire une donnée, mais ça ne marche pas, car j'obtiens l'erreur suivante :
La résolution de surcharge a échoué, car aucun 'Fields' accessible n'accepte ce nombre d'arguments.
Je présume qu'il y a quelque chose que je n'ai pas compris à quelque part. Merci de m'éclairer sur ce sujet.