[Access][ADODB] Petit soucis avec les BOF et EOF

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Access][ADODB] Petit soucis avec les BOF et EOF

lebowski

Bonjour,

Une petite question pour agrementer votre apres-midi :

Voici le code que j'ai tape.

Code :

Dim Conn As New ADODB.Connection
Dim cnn As New ADODB.Command
Dim rs As New ADODB.Recordset
'open connection
Conn.Open "Provider = Microsoft.jet.OLEDB.4.0 ; data source = C:\temp\Lebowski\Hours Project\Projet\TablesLink.mdb"
'record parameters and open recordset
Set cnn.ActiveConnection = Conn
cnn.CommandType = adCmdText
cnn.CommandText = "SELECT employee FROM employee" //une requete au hasard
Set rs = cnn.Execute
With rs
Do Until .EOF
Affichage.Caption = rs.GetString
.MoveNext
Loop
End With

Des que je l'execute, rien ne se passe (alors que j'aimerais bien avoir la liste des employers).
Si par hasard j'enleve le bloc :

Code :

With rs
Do Until .EOF
Affichage.Caption = rs.GetString
.MoveNext
Loop
End With

Il m'affiche une erreur 3021 (Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record).
'oila, 'oila, si quelqu'un peut m'expliquer (ou a defaut corriger) ce petit bout de code, j'en serai au comble de ma bonne humeur.

D'avance, merci beaucoup.

Lebowski

PS : Romania, Trezeste-te (c'est du roumain...)

Message édité par lebowski le 18-05-2004 à 16:02:22

Publicité

lebowski

Bonjour,

Voila, j'obtiens toujours le meme probleme. Apres creation des connexions et definition du recordset, voici ce que j'ai tape pour tenter de recuperer ce qu'il y a dans le recordset :

Code :

'le recordset est rs
If rs.EOF Then
MsgBox "EOF"
Else
If rs.BOF Then
MsgBox "BOF"
Else
Do While Not rs.EOF
MsgBox rs("employee.FIRST_NAME" )
Loop
End If
End If
Affichage.Caption = rs.GetString

Des que ce code est execute, il m'affiche "EOF", et ensuite le meme message d'erreur vu precedemment (ce qui parait assez logiquem compte tenu du message "EOF" ).
Quel en est la raison ? Mon recordset est vide ? Je suis arrive a la fin du recordset et il faut que lui precise d'aller au debut ?

Voila quelques interrogations existentielles qui mettent bien a mal ma conscience.

Merci d'avance.

Lebowski

Amoul Solo

Bonsoir,

Le problème est que vous ne pouvez pas accéder à la valeur d'un champ si la recordset est vide ou que le pointeur de recordset a atteint une limite (EOF ou BOF à True).

Le problème dans le premier Algo vient de la boucle "Do Until", même si le recordset est vide, il fera un tour de boucle, c'est dans la structure. En revanche dans le second exemple vous tester votre recordset, mais vous accedez à la valeur du champ en ligne 15 et vous obtenez une erreur. Je vous conseille la structure suivante :
With rs
While Not .EOF
Affichage.Caption = rs.GetString
.MoveNext
Wend
End With

Elle offre l'avantage de tester d'abord l'état de la condition (Not .Eof) donc si le recordset est vide, vous n'entrerez pas dans la boucle.

Voilà

FORUM HardWare.fr

Programmation

SQL/NoSQL

[Access][ADODB] Petit soucis avec les BOF et EOF

Sujets relatifs
pb references access	[Access / Sql] Comment mettre un critere sur les 3 dernieres semaines
[XML / XLS] C++ : Soucis de feuille XSL !	access: aucun chiffre ne s'affichent dans mes états
[Access / VB] Un petit coup de pouce pour un debutant (bis)	[Access / VB] Un p'tit coup de pouce pour debuter
Petit Probleme de programmation	[Access] Recuperer tous les champs de la semaine derniere
pb access help me
Plus de sujets relatifs à : [Access][ADODB] Petit soucis avec les BOF et EOF

Page générée en 0.050 secondes