[VB6] ListBox e record

[mgmg]

1)...l'ho esportato in exe e l'ho messo su una macchina dove c'è windows xp e mi da questo errore "impossibile far girare il programma in non modal mode...ecc..ec.." non l'ho mica capito..che cos'è? Grazie

1)Dopo che hai compilato il progetto creando l'eseguibile .exe, l'hai copiato sull'altro pc? ..Ma, se sull'altro pc non hai visual basic installato, per farlo "girare" devi prima fare la creazione guidata dei pacchetti di installazione ed assemblare il progetto in un pacchetto distribuibile.

2) Per utilizzare la listview devi modificare nelle proprietà dell'oggetto:
GridLines = true
LabelEdit = 1 IvwManual
View = 3 IvwReport
A Form_load
Dim DB as Recordset
Dim Rs as Recordset
Dim Test As ColumnHeader
Dim Lis As ListItem
Set Db = OpenDatabase(NomeDB, False, False, Pass)
Set Rs = Db.OpenRecordset("Select * from tabella")
lstView1.ListItems.Clear
If Not rs.EOF Then
i = 0
'mette i nomi dei campi come testata della colonna
For Each Fld In rs.Fields
Set test = lstView1.ColumnHeaders.Add()
test.Text = rs.Fields.Item(i).Name
i = i + 1
Next
End If
T = 0
While Not rs.EOF
X = 0
'aggiunge il contenuto dei campi nella lista
Set lis = lstView1.ListItems.Add(1, "a" & T, rs.Fields(X))
For X = 1 To i - 1

lis.SubItems(X) = rs.Fields(X)
Next
T = T + 1
rs.MoveNext
Wend

[Goodie]

ciao mgm..una domanda..tu dove hai imparato queste cose..(pratica a parte). C'è un testo che a te piace particolarmente e che ti ha aiutato un sacco? grazie

[mgmg]

Io ho dei "vecchi" manuali di Visual Basic che mi aiutano:
Funzioni Professionali - Microsoft Visual Basic
Il manuale ufficiale per Microsoft Visual Basic 6.0
Guida di riferimento al linguaggio - Microsoft Visual Basic

I libri che mi piaccioni di più sono editi da Mondadori Informatica e costano poco (Miti informatica Euro 10,70):
I trucchi di Visual Basic 6 (Francesco Balena)
Accesso ai dati con Visual Basic I portatili (Vaughn William R)

Voglio comprare l'edizione economica (se si trova!! Adesso è più facile trovare manuali di visual basic-Net): Programmare Microsoft Visual Basic 6.0 (Francesco Balena)

..Eppoi se ho problemi faccio ricerche in rete, guardo molto gli articoli nel sito della Microsoft Italia http://www.microsoft.com/italy/default.aspx

e qui per funzioni che non trovo nei miei libri
http://msdn.microsoft.com/archive/default.asp

In questo lavoro c'è sempre da imparare e trovi sempre qualcuno che ha più esperienza di te. Per questo mi piace leggere i thread, perchè ci sono dei bravi programmatori che danno risposte a cui non so rispondere (...così imparo)

Ciao e buon lavoro!

[alka]

Originariamente inviato da Goodie
ciao mgm..una domanda..tu dove hai imparato queste cose..(pratica a parte). C'è un testo che a te piace particolarmente e che ti ha aiutato un sacco?

Non modifichiamo l'argomento principale della discussione.
Inoltre, esistono i messaggi privati per scambiare...conversazioni private.

Ciao!

[Eas]

Originariamente inviato da mgmg
Questo scrive l'intero contenuto dei campi del record nella listview

Do Until rs.EOF
For Each fld In rs.Fields
stringa1 = stringa1 & " " & rs(fld.Name)
'Debug.Print stringa1
Next
List1.AddItem stringa1
stringa1 = ""
rs.MoveNext
Loop

Ciao

Scusate se mi intrometto e ritorno in tema ...

Ma la proprietà DataSource della ListBox non si può usare come si fa per il DataGrid???

In questo modo si risparmierebbe il ciclo e probabilmente gli sarebbe più comdo avere a disposizione il record nell'applicazione piuttosto che solo il testo del campo.

Lo chiedo perchè anche io ho lo stesso problema e non riesco a far caricare il recordset nella listbox e ad averlo disponibile ... che mi dite??

Grazie
Cia'

[Eas]

Scusate sono un fesso ... era un combobox ...

Ho risolto con una ricerca giusta sul forum:

http://forum.html.it/forum/showthrea...box+datasource


ANTE MOD:
ma il risultato non cambia ... non mi funziona!

Ho praticamente trasformato un datagrid in una combobox

Set frmMain.ciccio.DataSource = Rs ' il recordset pieno

ma non mi lista nulla!

[mgmg]

Ho paura che la proprietà DataSource dei Combobox si riferisca a degli oggetti data e non al recordset come può essere per la grid.
Popolare un combobox è semplice devi fare la open sul tuo recordset ed eseguire questo codice:

Do Until Rs.EOF
   Combo1(30).AddItem Rs!CampoTabella, i
   i = i + 1
   Rs.MoveNext
Loop

Ciao

[Eas]

No, in realtà si può fare ma ricevo lo stesso errore che riceveva l'utente del 3d che ho indicato:

Mi compila la Combo con solo il primo record

    
 Set frmMain.ciccio.DataSource = Rs
 frmMain.ciccio.DataField = "nomecampo"

boh!

Cia'

[Boolean]

Originariamente inviato da Eas
No, in realtà si può fare ma ricevo lo stesso errore che riceveva l'utente del 3d che ho indicato:
Mi compila la Combo con solo il primo record

il sistema di assegnare il data source e il data field, serve solo per indicare al controllo in quale campo del database dovrà essere posto il valore che viene selezionato dalla lista.

non serve per popolare il combo con i valori di un campo.

per eseguire questa operazione (cioè una compilazione automatica della lista del Combo) esiste il DataCombo.

Boolean