Pb vb access

Question

Voila
je voudrais charger une combo box avec les donn&#233;es qui se trouve ds une table access

Dim rst_genre As ADODB.Recordset
Dim cnx As ADODB.Connection
Dim dsn_nom As String



Set cnx = New ADODB.Connection
dsn_nom = "base_divx"


With cnx
    .ConnectionString = dsn_nom
    .Open dsn_nom
End With

Set rst_genre = New ADODB.Recordset


rst_genre.Open "SELECT libelle FROM GENRE ", cnx


While Not (rst_genre.EOF)
    Cmb_genre.AddItem rst_genre.Fields(0).Value
    rst_genre.MoveNext
Wend
   rst_genre.MoveFirst

et la il me dit que eof ou bof = vrai .
l'op&#233;ration necessite l'enregistrement actuel
erreur 3021

si qqn &#224; une id&#233;e d'ou pourrait provenir l'erreur &#231;a m'aiderai

madbob · Answer

Il faut peut &#234;tre un move first comme tu faists bien un move next

Tu force le curseur &#224; se positionner sur le premier enregistrement il me semble

madbob

madbob · Answer

Sinon comme &#231;a &#231;a marche tr&#232;s bien aussi :

Dim MaBase as database

Dim MonRS As Recordset




Set MaBase = OpenDatabase("c:\bases\mabase1.mdb", False, False, "MS ACCESS")

Set MonRS = MaBase.OpenRecordset("SELECT libelle as LIB FROM Mad_T_Tec;")



MonRS.MoveFirst        "=> on positionne le curseur sur le premier fetch du recordset

While Not (MonRS.EOF)

    Me.Combo1.AddItem MonRS!LIB

    '* fetch suivant

    MonRS.MoveNext

Wend



'* On revient au d&#233;but

MonRS.MoveFirst     

.... 

'* On libere le recordset

MonRS.Close

'* On libere l'instance de la base

MaBase.Close




madbob

valtrase · Answer

Salut,
S'il te met ce message d'erreur il est possible que tu n'ais pas d'enregistrement dans ton recordset.
Moi c'est ce rst_genre.Fields(0).Value qui m'interpelle

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

madbob · Answer

C'est une bonne piste valtrase



Je viens de faire un sample sans move first et j'ai pas eu l'erreur que
j'attendais. Et comme j'ai pris la mauvaise habitude de lui laisser le
moins de choix possible...



Ta table n'est peut &#234;tre pas charg&#233;e comme tu le crois... Oubli d'une validation de trasaction par exemple

madbob

madbob · Answer

Je croyais que le no row found (SQL 100 sous Oracle) ram&#232;ne un code
retour 3061 que je viens de reproduire avec une clause where pipo...
alors j'ai quand m&#234;me des doutes 



Alors j'ai modifier mon sample cr&#233;er une connection ODBC et lanc&#233; ton
code avec une clause where pipo et m&#234;me erreur la requ&#234;te ne ramene pas
d'enregistrement,

Forcement le EOF permet de ne pas rentrer dans la boucle comme tu
demande au curseur de se positionner sur le premier enregistrement et
qu'il y en a pas...



parcontre je suis surpris de pas intercepter le code 3061... pas d'enregistrement



Bravo Valtrase


madbob

madbob · Answer

Utilise la prochaine fois la propri&#233;t&#233; maxcount de ton rs tu &#233;viteras ce genre de surprise...

madbob

madbob · Answer

Pour ....rst_genre.Fields(0).Value 9, &#231;a aussi il est vrai c'&#233;tait pas tr&#232;s catho...



rst_genre.Fields.Item(0).Value  plut&#244;t  ou rst_genre!libelle....

(0 &#233;tant l'index des colonnes dans l'ordre de ton select et non dans l'ordre des colonnes de ta table)


madbob

william the new · Answer

g essaye rst_genre.fields.item(0).value 
et &#231;a ne change rien au probl&#232;me, l'erreur y est tjs

mais je ne vois pas pkoi rst_genre.fields(0).value n'est pas correct 
g tjs fait comme &#231;a jusq'au pr&#233;sent &#224; sa march&#233; jusqu' a aujourd'hui

donc je me demande si il y a pas une option ou qqch ki f&#233; que &#231;a ne marche pas

madbob · Answer

Tu as 2 problemes

1) Ta table est vide &#231;a c'est s&#251;r!

fait &#231;a :






Set rst_genre = New ADODB.Recordse



rst_genre.Open "SELECT count( libelle) FROM GENRE ", cnx

msgbox 
rst_genre.Fields.Item(0).Value
 'pour t'en assurer si  = 0 alors pas d'enregistrement



rst_genre.Close

rst_genre.Open "SELECT libelle FROM GENRE ", cnx


msgbox rst_genre.MaxRecords 'pour t'en assurer si  = 0 alors pas d'enregistrement







2) Concernant la syntaxe ... j'ai repris texto la tienne est j'avais une belle erreur 424 avec l'ajout dans la combo un objet est requis... Alors j'ai un peu cherch&#233;. et j'ai pu v&#233;rifier que rst_genre.Fields.Item(0).Value fonctionne pour ajouter directement  dans la combo.



madbob

valtrase · Answer

Salut, j'ai pas vu ton code en entier mais à première vue tu ne renseignes pas le provider de ta connexion essayes cela Dim rst_genre As ADODB.Recordset Dim cnx As ADODB.Connection Dim dsn_nom As String Set cnx = New ADODB.Connection dsn_nom = "base_divx" With cnx .Provider = "Microsoft.Jet.Oledb.3.51" '~~ Ou la version 4 .ConnectionString = dsn_nom .Open ~~dsn_nom~~ End With Set rst_genre = New ADODB.Recordset rst_genre.Open "SELECT libelle FROM GENRE ", cnx While Not (rst_genre.EOF) Cmb_genre.AddItem rst_genre.Fields(0).Value rst_genre.MoveNext Wend rst_genre.MoveFirst De plus dans ta requette je te conseille de faire un distinct pour eviter les doublons Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

madbob · Answer

Cette partie ne pose pas de probl&#232;me dans mon sample



With cnx

    .ConnectionString = dsn_nom

    .Open dsn_nom

End With




madbob

Pb vb access

11 réponses

Discussions similaires