[es] - relacije u accesu ili na laksi nacin za pocetnika...

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 09:09 - pre 169 meseci}

ako uklonim

Code:
ListView2.ListItems.Add 1, , rs("rednibroj")

onda opet selektuje zutom bojom

Code:
ListView2.ListItems(1).SubItems(1) = rs("brojfakture")

sve sam probao, pravio novu tablicu, brisao primarni kljuc, menjao svojstvo texta (redni_broj/AutoNumber), brisao znakove "_" iz redni_broj/rednibroj ali opet ista stvar

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 09:23 - pre 169 meseci}

Ajde daj sliku greške.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 09:51 - pre 169 meseci}

apsolutna ista greska kao ova gore samo je sada selektovan ovo

Code:
ListView2.ListItems(1).SubItems(1) = rs("brojfakture")

uspelo mi je da pokrenem na ovaj nacin prozor bez greske ali mi listview stoji prazan

Code:
br_fak = Text1.Text
    openconn
    SQL = "SELECT DISTINCT broj_fakture FROM baza_faktura WHERE broj_fakture = '" & br_fak & "' ORDER BY broj_fakture;"
    Set rs = conn.Execute(SQL)
If rs.EOF Then
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"
closeconn

u text1.text sam uneo rucno po defaultu broj fakture kako bi ga iscitao

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 10:07 - pre 169 meseci}

Jesi stavio pravilan naziv polja?

Code:
ListView2.ListItems(1).SubItems(1) = rs("broj_fakture")

a ne

Code:
ListView2.ListItems(1).SubItems(1) = rs("brojfakture")

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 10:12 - pre 169 meseci}

da da vratio sve na staro posto mi preglednije sa "_", sve je to u redu...izbrisao sam ceo kod osim ovoga, to je sve sto mi treba:

Code:
Public conn As New ADODB.Connection
Public rs As ADODB.Recordset
Dim SQL As String

Private Sub Form_Load()
popuni_listview2
End Sub
'//===================================================
'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
'//===================================================
'popunjavanjelistview-a 2
'//===================================================
Sub popuni_listview2()
Dim SQL As String
br_fak = Text1.Text 'upisano 01_2010
    openconn
     SQL = "SELECT DISTINCT broj_fakture FROM baza_faktura WHERE broj_fakture = '" & br_fak & "';"
    Set rs = conn.Execute(SQL)
If rs.EOF Then
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"
closeconn
Exit Sub
End If
ListView1.ListItems.Clear
Do Until rs.EOF
    ListView2.ListItems.Add 1, , rs("redni_broj")
    ListView2.ListItems(1).SubItems(1) = rs("broj_fakture")
rs.MoveNext
Loop
closeconn
    ListView2.ListItems(1).Selected = True
End Sub

u text1.text kao sto rekoh unesem direktno sa forme 01_2010
onda kada u text1.text pise 2010 on prijavljuje gresku kao gore
kada je text1.text prazan pokrene program bez greske ali prazan listview

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 10:59 - pre 169 meseci}

Nikako da me skužiš :)

SQL = "SELECT DISTINCT broj_fakture FROM baza_faktura WHERE broj_fakture = '" & br_fak & "';"
Set rs = conn.Execute(SQL)
If rs.EOF Then
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"
closeconn
Exit Sub
End If
ListView1.ListItems.Clear
Do Until rs.EOF
ListView2.ListItems.Add 1, , rs("redni_broj")
ListView2.ListItems(1).SubItems(1) = rs("broj_fakture")

Ovo ne može raditi. Ti pozivaš

ListView2.ListItems.Add 1, , rs("redni_broj")

a u rs ne postoji to polje! A ako staviš to polje u upit onda ti distinct neče raditi ono šta ti želiš. Dakle trebam u distinct uzeti samo polje broj_fakture i u listview prikazati samo broj fakture, ne treba ti redni_broj u desnom listview. I zašto zapisuješ u textbox? Imaš na dupli klik od listviewa i to je to. (Osim ako ne želiš pretragu, onda ok)

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 12:01 - pre 169 meseci}

BINGO !!! :DDD hvala druze napokon je to ono sto sam trazio. hvala ti puno
jos samo jedno kratko pitanje

kako izvesti kretanje napred nazad odnsono gore dole u ovom slucaju uz pomoc dugmeta "napred" i "nazad" kroz listview nesto kao sto za datagrid vec postoji komponenta

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 13:08 - pre 169 meseci}

Citat:

miki987: BINGO !!! :DDD hvala druze napokon je to ono sto sam trazio. hvala ti puno
jos samo jedno kratko pitanje

kako izvesti kretanje napred nazad odnsono gore dole u ovom slucaju uz pomoc dugmeta "napred" i "nazad" kroz listview nesto kao sto za datagrid vec postoji komponenta

Pa od mog prvog posta u ovoj temi ti govorim istu stvar koju trebaš napraviti a ti nikako da me shvatiš :) I ubuduće, pokušaj pročitati i shvatiti šta ti oni error window govori, ne priča on nebuloze :)

Kretanje možeš riješiti na OnKeyDown ili kako se već zove.

1. Gledaj da li je stisnuto down ili up
2. Pogledaj na kojem si redu u listview-u (ListView1.ItemIndex ili tako nešto, ne znam napamet)
3. Pomakni se ovisno koji je stisnut (gore ili dole) listView1.ItemIndex = ListView1.ItemIndex +/- 1 (i nemoja zaboraviti pozvati on doubleclick nakon toga da popusti listview sa stavkama)

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 14:25 - pre 169 meseci}

Evo:

Code:
      Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
             On Error Resume Next
          Select Case KeyCode
              Case vbKey 'Then Find which key you want to use from the list below
                  'Code to run when key is pressed
          End Select
      End Sub

vbKeyLButton Left Mouse Button
vbKeyRButton Right Mouse Button
vnKeyCancel Cancel Key
vbKeyMButton Middle Mouse button
vbKeyBack Back Space Key
vbKeyTab Tab Key
vbKeyClear Clear Key
vbKeyReturn Enter Key
vbKeyShift Shift Key
vbKeyControl Ctrl Key
vbKeyMenu Menu Key
vbKeyPause Pause Key
vbKeyCapital Caps Lock Key
vbKeyEscape Escape Key
vbKeySpace Spacebar Key
vbKeyPageUp Page Up Key
vbKeyPageDown Page Down Key
vbKeyEnd End Key
vbKeyHome Home Key
vbKeyLeft Left Arrow Key
vbKeyUp Up Arrow Key
vbKeyRight Right Arrow Key
vbKeyDown Down Arrow Key
vbKeySelect Select Key
vbKeyPrint Print Screen Key
vbKeyExecute Execute Key
vbKeySnapshot Snapshot Key
vbKeyInsert Insert Key
vbKeyDelete Delete Key
vbKeyHelp Help Key
vbKeyNumlock Delete Key

vbKeyA through vbKeyZ are the key code constants for the alphabet
vbKey0 through vbKey9 are the key code constants for numbers
vbKeyF1 through vbKeyF16 are the key code constants for the function keys
vbKeyNumpad0 through vbKeyNumpad9 are the key code constants for the numeric key pad

Math signs are:
vbKeyMultiply - Multiplication Sign (*)
vbKeyAdd - Addition Sign (+)
vbKeySubtract - Minus Sign (-)
vbKeyDecimal - Decimal Point (.)
vbKeyDivide - Division sign (/)
vbKeySeparator - Enter (keypad) sign

I pazi da provjeravaš ako si na zadnjem retku da ne ide dalje jer če ti bacati error. Isto tako ako si na prvom.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 15:36 - pre 169 meseci}

:D e sad me ti nisi razumeo :D

Code:
Private Sub Command1_Click()
ListView2.SelectedItem = ListView2.ListItems(1) 'i sada ovde npr. + 1 i svaki put na clik dugmeta on ide dalje kroz listview
ListView1.SetFocus
End Sub

nadam se da razumes sta zelim.

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 16:13 - pre 169 meseci}

Citat:

miki987: :D e sad me ti nisi razumeo :D

Code:
Private Sub Command1_Click()
ListView2.SelectedItem = ListView2.ListItems(ListView2.Selecteditem +/- 1) 'i sada ovde npr. + 1 i svaki put na clik dugmeta on ide dalje kroz listview
ListView1.SetFocus
End Sub

nadam se da razumes sta zelim.

Miki miki, teško čemo mi programera od tebe napravit :)

Ne znam kako točno ide u VB-u ali valjda češ skužiti šta sam želio reči.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 17:01 - pre 169 meseci}

:D jeste tako :D
reci mi postoji li nesto sto gresku 35600 moze da predstravi kao upozorenje recimo da je stigao do kraja?

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 17:09 - pre 169 meseci}

Citat:

miki987: :D jeste tako :D
reci mi postoji li nesto sto gresku 35600 moze da predstravi kao upozorenje recimo da je stigao do kraja?

Do kojeg kraja?

Pokaži kod i reci gdje ti baca grešku.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 17:44 - pre 169 meseci}

situacija sledeca:
kada listview2 (desni) ima dva columna npr.
|redni_broj|broj fakture|

ovo funkcionise

Code:
ListView2.SelectedItem = ListView2.ListItems(ListView2.Selecteditem + 1)

zbog ranije price da mi listview mora imati samo jedan column i to
|broj_fakture|

ovo ne funkcionise

Code:
ListView2.SelectedItem.Text = ListView2.ListItems(ListView2.Selecteditem.Text + 1)

Takodje kada u gornjem slucaju sve ovo radi, kada se spusti do poslednjeg izbaci sledece:

odnosno da je stigao do kraja

Prikačeni fajlovi

123.png - 22.6k

1234.png - 16.03k

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 18:00 - pre 169 meseci}

Ajde mi objasni kako ovo može funkcionirati?

Code:
ListView2.SelectedItem.Text = ListView2.ListItems(ListView2.Selecteditem.Text + 1)

Lijepo ti kaže type mišmaš. Ti zbrajaš type string sa type integer. Šta želiš postići u ovome retku?

I to kada dođe do kraja sam ti par postova gore rekao da moraš paziti. Prije nego mu kažeš da ide na slijedeći redak pronađi count-1 od tog listview-a tj. koliko ima redova i ako je trentuno odabrani red = broju redova kaži mu da izađe iz procedure.

A sada ozbiljno. Mislim da sam ti još prije par mjeseci rekao da ne počinješ ništa ozbiljnije raditi dok ne naučiš osnove. Zašto me nisi poslušao? :)

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 18:14 - pre 169 meseci}

vidi teorijski kapiram, mozda ne razumem teminologiju, greska je stio zbrajam odnosno racunam tekst i broj
verovatno bih trebao definisati

Code:
dim racunaj as string

pa ga u kodu gde radi + ili - ubaciti ali...ili gresim???

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 18:17 - pre 169 meseci}

String je tekst. Tekst ne možeš nikako zbrajati.

Ne kužim šta če ti ta linija. zar ti ovo

Code:
ListView2.SelectedItem = ListView2.ListItems(ListView2.Selecteditem + 1)

ne radi dobro posao?

Ako ne, objasni mi šta točno želiš sa ovime

Code:
ListView2.SelectedItem.Text = ListView2.ListItems(ListView2.Selecteditem.Text + 1)

i na kojem mjestu ti se to nalazi u kodu.

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 18:29 - pre 169 meseci}

kada sam prvi put ovo

Code:
Private Sub Command8_Click()
ListView2.SelectedItem = ListView2.ListItems.Add(ListView2.SelectedItem - 1)
ListView1.SetFocus
End Sub

uveo u program radilo je, medjutim taj project u kojem radim je samo za primere,a onaj glavni gde pisem program otvaram i menjam samo kada znam sta trebam menjati (da ne bi nesto zabrljao :D)

tako sada ovo

Code:
Private Sub Command8_Click()
ListView2.SelectedItem = ListView2.ListItems.Add(ListView2.SelectedItem - 1)
ListView1.SetFocus
End Sub

u onom gde testiram radi a u onom ne radi :D
medjutim znam gde je greska

ovaj test project ima listview2 gde ima dva columna a ovaj drugi gde pisem pravi program ima samo jedan column zbog

Code:
Sub popuni_listview2()
Dim SQL As String

openconn
SQL = "SELECT DISTINCT broj_fakture FROM baza_faktura;"
Set rs = conn.Execute(SQL)
If rs.EOF Then
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"
closeconn
Exit Sub
End If
ListView2.ListItems.Clear
Do Until rs.EOF

ListView2.ListItems.Add 1, , rs("broj_fakture") '///////////////////////////////zbog ovog///////////////////////////////////////

rs.MoveNext
Loop
closeconn
ListView2.ListItems(1).Selected = True
End Sub

Odgovor na temu