ok, ja sam u medjuvremenu nesto radio, tebi hvala na primeru posluzice mi itekako ali:
ovo je datagrid a ja radim sa listview-om = pitanje, da li to znacajno menja stvari i da li je moguce u listview-u otvoriti dvoklikom polje radi upisa statusa ako bar ne moze da se u listview integrise combobox
posto sam dosta razvio ovo mojei poznajem sve sta sam radio imam utisak da cu se bolje snaci, naravno uz vasu-tvoju pomoc,a do resenja problema deli me nekoliko koraka. okacicu kod
Code:
'
Public conn As New ADODB.Connection
Public rs As ADODB.Recordset
'// sadrzi index kliknutog objekta u listi
Public j As Integer
'// sadrzi vrednost kliknutog objekta
Public k As String
Dim strQuery As String
'//////////////////////////////////////////////////
Private Sub Otvori1_Click()
Dim sql As String
openconn
sql = "SELECT * FROM baza1 ORDER BY redni_broj DESC;"
Set rs = conn.Execute(sql)
If rs.EOF Then
MsgBox "U bazi ne postoji ni jedan zapis!", vbExclamation, "Access"
closeconn
Exit Sub
End If
ListView1.ListItems.Clear
Do Until rs.EOF
ListView1.ListItems.Add 1, , rs("redni_broj")
ListView1.ListItems(1).SubItems(1) = rs("broj_dostavnice")
ListView1.ListItems(1).SubItems(2) = rs("broj_resenja")
ListView1.ListItems(1).SubItems(3) = rs("ime_i_prezime")
rs.MoveNext
Loop
closeconn
End Sub
'//////////////////////////////////////////////
Private Sub Otvori2_Click()
Dim sql As String
openconn
sql = "SELECT * FROM baza2 ORDER BY redni_broj DESC;"
Set rs = conn.Execute(sql)
If rs.EOF Then
MsgBox "U bazi ne postoji ni jedan zapis!", vbExclamation, "Access"
closeconn
Exit Sub
End If
ListView1.ListItems.Clear
Do Until rs.EOF
ListView1.ListItems.Add 1, , rs("redni_broj")
ListView1.ListItems(1).SubItems(1) = rs("broj_dostavnice")
ListView1.ListItems(1).SubItems(2) = rs("broj_resenja")
ListView1.ListItems(1).SubItems(3) = rs("ime_i_prezime")
rs.MoveNext
Loop
closeconn
End Sub
'///////////////////////////////////////////
Public Sub openconn()
conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\baza.mdb" & ";"
conn.Open
End Sub
'///////////////////////////////////////////
Public Sub closeconn()
conn.Close
End Sub
'///////////////////////////////////////////
Private Sub ListView1_Click()
If ListView1.ListItems.Count = 0 Then
Exit Sub
End If
'///////////////////////////////////////////
'// index selektovanog Item-a
j = ListView1.SelectedItem.Index
'// vrednost selektovanog Item-a
k = ListView1.ListItems(j).Text
End Sub
'///////////////////////////////////////////
Private Sub Form_Load()
strQuery = "select * from baza1 where broj_dostavnice like '%" & Text1 & "%'"
End Sub
'///////////////////////////////////////////
Public Sub Text1_Change()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baza.mdb" & ";Jet OLEDB:Database Password=MyDbPassword;"
strQuery = "select * from baza1 where broj_dostavnice like '%" & Text1 & "%'"
If rs.State = 1 Then rs.Close
rs.Open strQuery, conn
Do While Not rs.EOF
ListView1.ListItems(1).SubItems(1) = rs("broj_dostavnice")
ListView1.ListItems(1).SubItems(2) = rs("broj_resenja")
ListView1.ListItems(1).SubItems(3) = rs("ime_i_prezime")
' Ovde napisi kod kojim popunjavas odredjeni red tabele
rs.MoveNext
Loop
End Sub
Private Sub Izlaz_Click()
Unload prva
End Sub
Private Sub Izadji_Click()
Unload prva
End Sub
kaos to vidis ja sam uspeo povezati bazu sa vb-om
zbog velikw kolicine popdataka moj vb-exe se ucitava dugo, pa sam napravio 2 table (baza1 i baza2)
sada to ucitava brze i tu nema problema (osim cirilice koja se i posle promene u control panelu ne menja, vidim samo "????")
status-e i datum_izmene sam izbacio iz upotrebe za sada jer mi predstavlja problem prilikom ucitavanja jer je vrednost 0, dok kasnije planiram nekako to da zaobidjem.datum izmene klasicnim automatskim unosom datuma a status ...(ne znam ni ja koje je najlakse resenje)
najtezi problem je search, kojeg pokusavam resiti na nacin iz koda. ne znam gde gresim, odnosno predpostavljam da je problem u
Code:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baza.mdb" & ";Jet OLEDB:Database Password=MyDbPassword;"
jer dva puta otvaram isti fajl ali nemam predstavu kako da to resim.
zamislio sam da to sve radi ovako.
kada se baza ucita u listview, unesem neki broj ili ime i on mi u listview-u pronadje-osenci taj red.onda kliknem na field datum, unesem datum a zatim na field status odaberem-unesem da,ne,mozda
Registrovani: 3 ( fangorn, Darko Nedeljković, krgo )
Re: print preview iz vb za excel fajl