recordset et listbox help

Question

Bonjour
je débute en VB6, et je suis confronté au probleme suivant : 

Je desire accéder a une table sur un as400, avec une selection sql. Jusque la, ca vas,ensuite je veux écrire le recordset dans une listbox, mais a ce moment j'ai le message suivant : 

Run-time error '-2147217896 (80040e18)":
impossible de redemarrer la position de l'ensemble de lignes. 

je comprend pas la signification de ce message. 
si qq 'un a une idée ou m'explique ou j'ai merd..., d'avance merci.

ps : Mon ordre SQL est saisie dans le form. 

ci dessous mon code :
Dim oCnx As ADODB.Connection
Dim oCnxErr As ADODB.Error
Dim oRs As ADODB.Recordset
Dim sSql As String

Private Sub Command1_Click()
Dim I
I = 1

' Instantiate
Set oCnx = New ADODB.Connection
Set oRs = New ADODB.Recordset


'  string sql
sSql = txtQuery.Text

' Connection
oCnx.Open "provider=IBMDA400;data source=" & "MERCURE" & "", "toto", "titi"

If oCnx Is Nothing Then GoTo hend

' Query
oRs.Open sSql, oCnx

' chargement listbox
oRs.MoveLast
oRs.MoveFirst

Do Until oRs.EOF
List.AddItem Text1.Text, I
I = I + 1

oRs.MoveNext
Loop

hend:
End Sub

Calade · Answer

Bonjour,

Ce n'est pas la bonne méthode car si ton Recordset contient beaucoup d'enregistrements, cela va prendre un temps fou, utilises plutôt:

Set List.Datasource = oRS


Calade

cs_gouyette · Answer

ok, merci j'essaie

cs_gouyette · Answer

ok, ca marche mieux, merci
maintenant au lieu de caracteres normal a l'affichage il me donne que des : ??????????????????????????????????????????????? sur toutes les lignes. 
si on peux m'aider? 
merci

Calade · Answer

Désolé, je ne t'ai donné que la moitié de la réponse.
Il faut ajouter:

list.DataField = "le champ source de ton Recordset"


Calade

cs_gouyette · Answer

oui j'avais compris et rajouter le reste, 
ok, ca marche mieux, merci 
maintenant au lieu de caracteres normal a l'affichage il me donne que des : ??????????????????????????????????????????????? sur toutes les lignes. 
si on peux m'aider? 
merci

Recordset et listbox help

5 réponses

Votre réponse

Discussions similaires