sql je zapravo jezik koji sluzi za radi, obradu podataka a baza npr.Access mesto gde ce se ti podaci cuvati nakon obrade, unosa i t.d.
vb6 je program koji ce napraviti interakciju sa korisnikom u radu sa tim podacima, prikazati mu podatke na graficki lepse resen nacin od Accss-a
kako to funkcionise:
vb6 pomocu upita otvara konekciju ka bazi koja se nalazi na nekoj putanji na HD-u
Code:
'//===================================================
'konektovanje baze
'//===================================================
Public Sub openconn()
conn.Provider = "Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\baza_program.mdb;"
conn.Open
End Sub
'//===================================================
'diskonektovanje baze
'//===================================================
Public Sub closeconn()
conn.Close
End Sub
dakle u ovom slucaju imamo openconn koji sluzi da otvori bazu i closeconn da zatvori, pa tako imamo sledece:
Code:
'//===================================================
'otvarannje forme
'//===================================================
Private Sub Form_Load()
popuni_listview2
End Sub
ovo pokazuje sta se desava ofmah cim se program pokrene, a "popuni_listview2" je isto neka vrsta zadatka koji treba da se odradi cim se program startuje
"popuni_listview2" definises predhodno, das mu ime a on izleda ovako:
Code:
'//===================================================
'popunjavanjelistview-a 2
'//===================================================
Sub popuni_listview2()
Dim SQL As String
openconn '/// otvara klonekciju i pronazalazi bazu i tablicu koju definisemo ovde ispod
SQL = "SELECT DISTINCT broj_fakture,redni_broj FROM baza_faktura ORDER BY redni_broj DESC;" '//// ovo je putanja gde se i sta otvoriti u bazi . tablici . po columnu
Set rs = conn.Execute(SQL)
If rs.EOF Then '///// If petlja sluzi da proveri da li je zadatak ispunjen pa ako nije prijavi gresku ovde ispod...
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"'/// greska
closeconn'//// zatvaranje konekcije
Exit Sub
End If
ListView2.ListItems.Clear '/// brise*cisti sve sto se nalazi na listview-u
Do Until rs.EOF
ListView2.ListItems.Add 1, , rs("redni_broj")'//// i ovde sada listview puni sa pdoacima iz baze po columnima
ListView2.ListItems(1).SubItems(1) = rs("broj_fakture")
rs.MoveNext
Loop
closeconn
ListView2.ListItems(1).Selected = True
End Sub
Ako zelis uciti moras stalno raditi na praksi, ja se povremeno bavim ovim i zavrsavam moje potrebe, jos uvek ne komercijalno jer ja zapravo nisam izgradjen programer,zavistan sam od es-a, tutorijala i primera, kada radim skoro uvek drzim predhodni program koji sam radio za koriscenje kodova i t.d. ali za razliku od ranije napredovao sam pa umem citati kod i razumeti sustinu.
Meni su pored ovih ljudi piomogli najvise primeri, PlanetSource je extra sajt sa gotovim primerima, a primer od kojeg sam poceo i koji mi mnooogo pomoogao je ovaj u postu
nadam se da sam ti pomogao bar malo i ispravno
Kako da prikazem sadrzaj baze, ovako?
Registrovani: 2 ( Nebojsa Milanovic, FrankyRC )