Oppure

Loading
17/09/09 19:29
Swanny
Ciao a tutti, tempo fa avevo chiesto aiuto per ultimare il programma che stavo creando dove poter catalogare tutti i libri e i fumetti che possiedo, il programma si appoggia ad un database in access dove vengono salvati tutti i dati relativi al libro. Adesso volevo "implementare" 2 cose nuove:

1)Poter ordinare in ordine alfabetico tutti i relativi titoli presenti nel database, altrimenti ad ogni apertura del programma viene visualizzato l'ultima scheda che ho visionato.

2)Aggiungere l'immagine della copertina


Per il primo caso ho dato uno sguardo in internet ma non ho trovato nulla di soddisfacente. Per il secondo caso ho trovato molto su internet ma tutto estremamente confuso o difficile da realizzare, da qui mi è venuta un'idea:idea: che non so se è realizzabile: avevo pensato di caricare le immagini su di un sito di hosting free e cercare di far visualizzare a VB l'immagine direttamente da link senza bisogno di appesantire il database ma non ho proprio idea di come fare. Potete aiutarmi?
:-|
aaa
17/09/09 20:05
zemas
Ciao Swanny,
per ordinare i dati basta fare così:

rs.sort= "NomeCampo"

per visualizzare un immagine abbianta a un record del db

img = rs("DirectoryImmagine";)
Set Image1 = LoadPicture(img)

aaa
20/09/09 19:27
Swanny
Ho provato ad usare il codice che mi hai consigliato solo che non sono riuscito a farlo andare. Ho creato un pulsante e ho aggiunto il codice
Private Sub cmdcopertina_Click()
Dim rs As String
rs.Sort = "titolo"
End Sub

quando lo provo mi dice qualificatore non valido.

invece per il fatto di caricare l'immagine non ho proprio capito cosa fare, alla fine ho escluso il fatto di hostare la copertina su internet, in quanto dovrei essere collegato per poi visualizzarla...mi sapete aiutare in qualche modo?
aaa
20/09/09 20:14
ruggy94
Basta che scrivi nel DB il percorso dell'immagine.
aaa
21/09/09 18:55
zemas
Ciao Swanny,
che metodo usi per collegarti al db? (Io uso ADO)

"rs" corrisponde a una connessione al recordset del db.

Esempio:
<<
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Percorso = [Percorso del database]
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Percorso
Set Rs = New ADODB.Recordset
Rs.Open "[Tabella]", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTable
Rs.Sort = "titolo"
>>
Questo è un semplice esempio e di riordino di una connessione ad una Tabella di un Db di Access
aaa
21/09/09 19:34
Swanny
Ciao Zemas,
Allora io uso DAO, lo so che qualcuno si arrabbierà per questa mia scelta cmq...uso il controllo DATA per la connessione al DB in access: questa è la form del programma
img10.imageshack.us/img10/9277/…
se può essere di aiuto allego il file con il codice che ho scritto fin'ora, magari si trova qualche corbelleria:-|
Ultima modifica effettuata da Swanny 21/09/09 19:36
aaa
22/09/09 5:54
theprogrammer
Dim rs As String

??

rs deve esere un oggetto recordset non una stringa ...
aaa
22/09/09 9:19
mash_mash
Ciao swanny ti posto per chiederti se puoi gentilmente allegare le immagini che hai usato per i pulsanti come da tua immagine precedentemente allegata , oppure dove posso scaricarle.
Ciao e grazie
aaa