[VB6]come popolare una DBLIST

[jakula]

Ciao Di Nuovo....
Ho provato a riempire una DBLIST con lo stesso metodo usato per la combobox

Private Sub Form_Load()
Call connetti
Rs.Open "SELECT * FROM prodotti "
Do Until Rs.EOF
    
   Combo1.AddItem Rs("nomeprodotto")
    
   
Rs.MoveNext
Loop
End Sub

e quindi l' ho modificata così

. 

Private Sub Form_Load()
Call connetti
Rs.Open "SELECT * FROM prodotti "
Do Until Rs.EOF
    
   DbList1 .AddItem Rs("nomeprodotto")
    
   
Rs.MoveNext
Loop
End Sub

Ma ovviamente dà errore


Ho visto poi che per Le DBCombo e le DBList bisgna impostare le proprietà Datasource Rowsource Datafield

    
Call connetti
 
Rs1.Open "SELECT * FROM prodotti"

  

Set DBList1.DataSource = Rs1
 Set DBList1.RowSource = Rs1
 DBList1.DataField = ("nomeprodotto")
   
End Sub

Qualcuno sa darmi una mano?

[jakula]

Ho ottimizzato un po' il codice aggiungendo un command facendo una prova su un'altra tabella (Customer)

ora mi dà solo questo errore

"Variabile oggetto o variabile del blocco with non impostata"

La riga incriminata è la rossa

  
 

Private Sub Command1_Click() 
Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim strSql As String, strDB As String 

strDB = "C:\VB6ordprova\ordini.mdb " 
cn.ConnectionString = "Provider =Microsoft.Jet.OleDB.4.0; " _ 
& "data source=" & strDB & "; Persist security info=False;" 
cn.Open 

strSql = "SELECT nominativo FROM customer" 
rs.Open strSql, cn, 1, 3 

Set DBCombo1.RowSource = rs   
DBCombo1.ListField = "nominativo" 
DBCombo1.Refresh 
End Sub

P.s. Sto provando con una DataCombo ora

[*pao]

prova a mettere un
rs.cursorlocation = aduseclient
prima di aprirlo

[jakula]

fatto ma niente stesso errore

[cassano]

è quel rowsource che nn mi quadra se lo levi cosa succede ???

[jakula]

se lo levo non mi visualizza niente

cmq se nelle proprietà del DBcombo1 setto Rowsource rs ora si popola ma solo con il primo record

[Jupy64]

Ciao, forse il problema è altrove, a me funziona benissimo cosi:

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\archivio.mdb"
Set cn = New ADODB.Connection
cn.Open strConn
cn.CursorLocation = adUseClient

Set rsTab = New ADODB.Recordset
rsTab.CursorLocation = adUseClient
rsTab.CursorType = adOpenDynamic 
rsTab.LockType = adLockOptimistic
rsTab.Open "SELECT * FROM tabella ORDER BY COGNOME;", cn, , , adCmdText

Set DataList1.RowSource = rsTab
DataList1.ListField = "COGNOME"

La DataList1 viene popolata per l'intero recordset.

[cassano]

Set DataList1.RowSource = rsTab
DataList1.ListField = "COGNOME"

quindi datasource nn ci entra nulla ,allora la cosa cambia

[jakula]

E aggiungendo Rs.movenext mi visualizza il secono record quindi si muove , ma non mi visualizza tutti i record insieme nella casella di riepilogo....

   

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String, strDB As String

strDB = "C:\VB6ordprova\ordini.mdb "
cn.ConnectionString = "Provider =Microsoft.Jet.OleDB.4.0; " _
& "data source=" & strDB & "; Persist security info=False;"
cn.Open

strSql = "SELECT nominativo FROM customer"
rs.Open strSql, cn, 1, 3

Set DBCombo1.DataSource = rs
 
DBCombo1.ListField = "nominativo"
DBCombo1.Refresh
rs.MoveNext  :biifu:

Suggerimenti?

[jakula]

Jupy64

.

Ciao, forse il problema è altrove, a me funziona benissimo cosi:


strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\archivio.mdb"
Set cn = New ADODB.Connection
cn.Open strConn
cn.CursorLocation = adUseClient

Set rsTab = New ADODB.Recordset
rsTab.CursorLocation = adUseClient
rsTab.CursorType = adOpenDynamic
rsTab.LockType = adLockOptimistic
rsTab.Open "SELECT * FROM tabella ORDER BY COGNOME;", cn, , , adCmdText

Set DataList1.RowSource = rsTab
DataList1.ListField = "COGNOME"

La DataList1 viene popolata per l'intero recordset.

Copiata Pari Pari (eccetto mio percorso ,tab e campi)

Ma mi da: Variabile oggetto o variabile del blocco with non impostata