Odgovoriti ću ti samo na dio pitanja.

1. Nije pametno koristiti polje u bazi da vidiš da li je record u stanju editiranja. Zašto? Evo: šta ako radnik krene editirati record i ode na marendu? I, šta ako pukne baza u trenutku editiranja? Kako ćeš ponovo otključati record?

2. Da bi ti odgovorio ovo oko rs.edit morao bi dati malo vise koda. napiši šta točno radiš u sub listajkorisnike

Na zalost, pod onim 1, si u pravu :((( (kako coveku ove sitne i jednostavne stvari izmaknu, ccc - tu cu morati uraditi nesto drugo)

Pod 2: Vrsi listanje podataka, evo kod (inace koristim ComponentOne FlexGrid) :

Sub ListajKorisnike()
With Grid1
.Rows = 1 'inace Row = 1 je FixedRow i to je, ustvari, zaglavlje Grid-a
rs.Index = "PoPrezimeIme"
rs.MoveFirst
Do
.Rows = .Rows + 1
.Row = .Rows - 1
.Col = 0: .Text = rs!Sifra
.Col = 1: .Text = rs!Prezime
.Col = 2: .Text = rs!Ime
.Col = 3: .Text = rs!Adresa
.Col = 4: .Text = rs!Mesto
rs.MoveNext
Loop Until rs.EOF
.Row = 1: .Col = 0
End With
End Sub

Ali, problem je u tome, kada vrsim editovanje (rs.Seek, zatim ws.BeginTrans, pa rs.Edit, onda rs.Update i na kraju ws.CommitTrans) ne samo da se ne izvrse izmene, fizicki, u bazi nego isti taj zapis bude obrisan (fizicki iz baze ??). AddNew radi bez problema - zapis ostaje fizicki snimljen u bazi i redovno se prikazuju pokretanjem procedure ListajKorisnike

Pozdrav.
btw. Thx na pomoci & unapred hvala na daljoj pomoci.

<sub>[Ovu poruku je menjao nebojsa4 dana 09.10.2009. u 17:27 GMT+1]

[Ovu poruku je menjao nebojsa4 dana 09.10.2009. u 17:28 GMT+1]

[Ovu poruku je menjao nebojsa4 dana 09.10.2009. u 17:29 GMT+1]</sub>

postoji rješenje i za ovaj način kako si ti napravio, ali nije baš pametno, pa ti ga niti neću reći :-)

Bilo je davno kada sam radio u VB, i ovako ne vidikm gdje bi mogla biti greška. Ako želiš, pošalji mi projekt na mail, pa mogu pogledati.

galileoMAJMUNpu.t-com.hr

Kada se radi o višekorisničkom okruženju, vrlo je bitno da se ne dozvoli da jedan korisnik može da ometa rad drugih, bilo tako što će zaključati bazu, pa zaboraviti da je otključa bilo tako što će non stop nešto čačkati po podacima pa će ostali morati da čekaju na red. Tako da, direktan pristup bazi otpada, već mora da postoji neki layer između baze i klijenata, tj. klijent aplikacija. E sad, ako nećeš da koristiš ADO i SQL Server koji sam po sebi predstavlja taj layer, moraćeš da napraviš svoj. Naravno, to ne mora da bude neka komplikovana server aplikacija, već može da bude mini server koji može da komunicira sa klijentima i sa bazom, tako što će od klijenata primati određene zahteve (dodaj podatke, izmeni podatke, izvrši taj i taj query i pošalji mi rezultat... itd.). Taj server bi imao svojevrsni queue, tako da kada dva klijenta zatraže isti podatak, neće doći do konflikta. Komunikaciju između klijenta i servera možeš ostvariti pomoću Winsocka recimo.

Evo kako bi to trebalo da izgleda. Klijent pošalje serveru svoj ID, svoju IP adresu u mreži i zahtev sa parametrima (koja akcija, koja tabela, koja polja). Server obrađuje zahtev, proverava queue i ako je prazan izvršava ga odmah, a ako nije stavi na na kraj liste i obrađuje po završetku svih ostalih (u praksi će queue u 99% slučajeva biti prazan, ali treba da postoji za slučaj da dva klijenta pošalju zahtev u istoj sekundi ili je baza toliko narasla da treba par sekundi da se obradi zahtev). Kada izvrši zahtev, zavisno od toga kakav je on bio, server šalje povratnu informaciju njemu ili svim klijentima koji su u mreži... tj. ako je neki podatak dodat, promenjen ili izbrisan, onda se šalje update svim klijentima... a ako je zatraženo da se izvrši query sa ciljem da se dobiju filtrirani podaci, onda se vraća samo klijentu koji je to zatražio. Takođe, ta server aplikacija bi trebalo da ima i logovanje svih pristupa... tako da imaš jednu tabelu koja sadrži podatke o tome koji klijent, pod kojim korisničkim imenom, u koje vreme je izvršio neku operaciju i koju i nad kojim podatkom. Ovo je vrlo bitno, jer ako se pojave neke nelogičnosti u bazi, može da se trejsuje kada i kako je ta nelogičnost nastala i ko je doveo do toga, a ako toga nema, svaki nezadovoljni radnik bi mogao da sabotira bazu i niko ne bi znao da je to on uradio. Naravno, svaki zahtev bi morao da ima START i END string, tako da ako nema ta dva, onda server označi zahtev kao neispravan i ne vrši nikakvu operaciju nad bazom, već vraća klijentu poruku da ponovi zahtev. Ovo recimo rešava problem kada u toku slanja pukne mreža ili klijentov računar, pa ne stignu svi paketi na odredište, itd. Sve su to problemi na koje treba misliti.

E sad, ovo možda zvuči komplikovano, ali ako si već krenuo da praviš multikorisničko okruženje, ne možeš očekivati da sve bude isto kao kad radiš bazu za jednog korisnika. Jednostavno, višekorisničko okruženje zahteva mnogo veću kontrolu pristupa i rešavanje gomile problema od kojih je Picard neke već pomenuo (korisnik pristupi bazi i ode na kafu ili još gore završi smenu, a ostali ne mogu ništa s njom da rade). Isto će se desiti ako nešto pukne prilikom rada sa podacima od strane nekog klijenta, pa baza ostane zaključana (pritom ne mislim samo na zaključavanje tvojom true false metodom, već i accessovima lockovanjem) ili ne daj Bože pukne mreža. Pored toga, tu su i problemi sa logovanjem, sa pucanjem baze i slično. Jednostavno, mora da postoji layer koji će to da razrešava i sačuva podatke u slučaju kvara, jer nikad nije dobro da radnik može namerno ili slučajno da napravi havariju i stopira celu firmu zato što nije uneo podatak kako treba, a da o tome ne postoji log koji će uperiti na tog radnika.

U svakom slučaju, znam d si rekao da ne predlažemo ništa drugo, ali kako god okreneš, siguran sam da bi bilo lakše naučiti ADO i preći na SQL Server, jednostavno manje posla. Istina je da, iako nema nekih velikih razlika između ADO i DAO, ADO može u nekim slučajevima da zbuni nekoga ko dugo radi sa DAO (ja i dan danas koristim DAO kada radim jednokorisničke aplikacije, jer jednostavno brže radim u njemu), ali opet to je ništa u odnosu na ono što te čeka ako hoćeš da napraviš stabilnu multikorisničku aplikaciju koristeći DAO. Naravno, izbor je tvoj i ako si baš tako rešio, onda radi... ovde ćeš svakako dobiti svaku pomoć koja ti treba. Ali spremi se da ćeš morati da se pozabaviš ne samo radu sa bazom, već i mrežnim protokolima i komunikacijom.

E mislim da si ga sada stvarno uplašio

Ali je na njegovu žalost sve šta si rekao istina...

Lako je vama se zezati :-)
Salim se.

Narode, evo pokusavam malo da skontam ADO - pa sam nesto i pokusao.
Naravno, sve ce ovo delovati pocetnicki ali jbg

Jedno pitanje (malo sam gledao i na drugim forumima o ADO, itd) :

Prilikom svake izmene, dodoavanja novog ili brisanja zapisa (naravno, uvek govorim o fizickom brisanju iz baze) se mora uspostaviti konekcija i nakon izvrsenja prethodno navedenih operacija ista se zatvara da bi fizicki imala efekta na bazu?

Evo primer kako sam uradio i funkcionisalo je:
'imam jedan Grid, TextBox i CommandButton

Dim aConn As ADODB.Connection
Dim rs As ADODB.Recordset
Const sqlConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mp3Kat.mdb;Mode=ReadWrite;Persist Security Info=False"

Sub Listaj()
Set aConn = New ADODB.Connection
aConn.Open sqlConn
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Pesme WHERE Sifra=2", aConn 'Sifra je sifra Grupe ciji se spisak po Nazivima istih nalazi u drugom Recordset-u
rs.MoveFirst
Grid1.Clear
Grid1.AllowUserResizing = flexResizeColumns
Grid1.Rows = 1
Do
Grid1.Rows = Grid1.Rows + 1
Grid1.Row = Grid1.Rows - 1
Grid1.Col = 0: Grid1.Text = rs!RedBr
Grid1.Col = 1: Grid1.Text = rs!Naziv
Grid1.Col = 2: Grid1.Text = rs!Velicina
rs.MoveNext
Loop Until rs.EOF
rs.Close
aConn.Close
Set rs = Nothing
Set aConn = Nothing
End Sub

Private Sub Command1_Click()
Set aConn = New ADODB.Connection
Set rs = New ADODB.Recordset
aConn.Open sqlConn
rb = CLng(Grid1.Cell(flexcpText, Grid1.Row, 0))
rs.Open "SELECT * FROM Pesme WHERE RedBr=" + Trim(Str(rb)), aConn, adOpenKeyset, adLockOptimistic
rs.Delete adAffectCurrent
Set rs = Nothing
aConn.Close
Set aConn = Nothing
Listaj
End Sub

Private Sub Form_Load()
Listaj
End Sub

Private Sub Grid1_Click()
Text1.Text = Grid1.Cell(flexcpText, Grid1.Row, 1)
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set aConn = New ADODB.Connection
aConn.Open sqlConn
Set rs = New ADODB.Recordset
KeyAscii = 0
rb = CLng(Grid1.Cell(flexcpText, Grid1.Row, 0))
MsgBox rb
rs.Open "SELECT * FROM Pesme WHERE RedBr=" + Trim(Str(rb)), aConn, adOpenKeyset, adLockOptimistic
rs!Naziv = UCase(Text1)
rs.UpdateBatch adAffectCurrent
Set rs = Nothing
aConn.Close
Set aConn = Nothing
Listaj
End If
End Sub


Jer valja ovo ovako? mislim, ima efekta (sigurno moze i bolje)


btw. hvala svima koji se javljaju - puno mi znaci ova pomoc.
btw2. samo me sada nemojte cimati sto pokusavam da koristim ADO object (malo sam tezak po pitanju prelaska i ucenja necega novog jer mi vreme bas i ne dozvoljava).

@nebojsa4

Ja sam isto radio DAO na MSaccess bazi kad se radilo o jednokorisnickoj bazi, a sad radim na ADO MS SQL i nije uopste neka migracija
kako sam ja mislio i prepao se gdje cu sad sve to mjenjati i sl, ali je svakako bolje.

Evo ti par mojih prijedloga ako hoces:

Napravi modul sa procedurama za pozivanje query-ja i svim ostalim parametrima koji su uslov za konekciju prema serveru:

- Ono je najbolje raditi sa ConnectionStringom i to ka DNSname servera ako ti vec nije fixna IP adresa
- nadam se da razumijes da su ove "db_name....." moras zamjeniti tvojim podacima




- a pozivanje Query-ja mozes ovako da napravis cisto da malo smanjis kod:


- tek sad vidjeh da pri svakom listanju pokreces novu konekciju ka serveru sto nije dobro, stoga mozes iskoristiti ovo sto sam ti napisao gore

Pozzzz....