Hmm... Shvatio sam sta zelis da uradis.
1) Predlozio bih ti da prvo malo preucis kako se radi sa bazama podataka. Da naucis osnove. Mozes nauciti iz ovog source-a (posto je sve lepo objasnjeno) i malo pretrage na netu.
2) Objasnicu kako bi ja to uradio, a ti ako imas neku ideju ili zamerke javi.
Sada imas jednu bazu u kojoj ces uneti sve svoje CD-ove. Kada kliknes na 'Dodaj u pozajmljeno' neka on to ubaci u drugu tabelu u bazi. Nakon toga samo ucitas podatke iz druge tabele u listu ispod Prosto zar ne?
Sta treba uraditi?
Treba da napravis jos jednu tabelu u bazi koju ces nazvati "pozajmljeno". Za to ce ti trebati access. Na zalost nemam instaliran Access, tako da ti ne mogu objasniti kako se to radi, ali svodi se na neslo slicno kao desni klik add new table ili worksheet... Za kolone u tabeli treba da postavis: Naziv, Opis, Velicina, Kolicina. Kada si to uradio treba da dodamo code za dugme "Dodaj u pozajmljeno".
Ako pogledas code od dugmeta Command1 videces code za ubacivanje podataka iz textbox-ova u tabelu 'firma'. Ti treba da napises code koji ce iz ListView1 da prebaci u tabelu 'pozajmljeno' koju si u predhodnim koracima napravio u bazi i da sadrzaj tabele 'pozajmljeno' ucita u ListView2 (ListView2 je lista dole; lista gde ce nam biti prikazani pozajmljeni CD-ovi).
Code bi trebao liciti na ovo:
Dim sql As String
sql = "INSERT INTO pozajmljeno (naziv,opis,velicina,kolicina) VALUES ('" & ListView1.ListItems(j).ListSubItems(1).Text & "','" & ListView1.ListItems(j).ListSubItems(2).Text & "','" & ListView1.ListItems(j).ListSubItems(3).Text & "','" & ListView1.ListItems(j).ListSubItems(4).Text & "');"
openconn
conn.Execute (sql)
closeconn
openconn
sql = "SELECT * FROM pozajmljeno ORDER BY id DESC;"
Set rs = conn.Execute(sql)
ListView2.ListItems.Clear
Do Until rs.EOF
ListView2.ListItems.Add 1, , rs("id")
ListView2.ListItems(1).SubItems(1) = rs("naziv")
ListView2.ListItems(1).SubItems(2) = rs("opis")
ListView2.ListItems(1).SubItems(3) = rs("velicina")
ListView2.ListItems(1).SubItems(4) = rs("kolicina")
rs.MoveNext
Loop
closeconn
Prvi deo gde pise:
sql = "INSERT INTO po...
Znaci da cemo u tabelu pozajmljeno u kolone: naziv, opis, velicina, kolicina; ubaciti vrednosti iz ListView1. ListView1.ListItems(j).ListSubItems(1).Text oznacava da ce se u kolonu 'naziv' ubaciti vrednost iz ListView1, kolona 2 (ne sve vrednosti iz kolone 2, samo ona vrednost koja je selektovana)
Za openconn, conn.Execute (sql), closeconn.. je objasnjeno u projektu.
Zadnji deo koda od Do Until rs.EOF do Loop znaci da ubacujemo vrednosti iz tabele 'pozajmljeno' u ListView2.
Ovako pospan, nadam se da sam detaljno objasno...
Pozdrav...
|