imam problema sa dodavanjem novog zapisa

imam problema sa dodavanjem novog zapisa 27.02.2005. u 13:35 · pre 263 meseci #1

Povezem formu sa bazom, ali AddNew nece da radi.
Nekad se desava da hoce da radi, nekad ne.
Stvarno ne znam sta da mislim.
Procitao sa tutorial koji se nalazi ovde na VB&ASP forumu i jos nekoliko drugih,
ali ono radi kad ono hoce...
Imam utisak da je to nesto malo i prosto, a ja mu ne znam razlog i zbog toga ludim!!!

Potpis

www.cicevac.com
†StEEwSc†

Re: imam problema sa dodavanjem novog zapisa 28.02.2005. u 11:26 · pre 263 meseci #2

Postuj kod koji ne radi

Potpis

Blue Man Group

Re: imam problema sa dodavanjem novog zapisa 28.02.2005. u 11:28 · pre 263 meseci #3

napisi insert da vidimo o cemu se radi

Re: imam problema sa dodavanjem novog zapisa 28.02.2005. u 12:46 · pre 263 meseci #4

Procitaj moj odgovor na temu ADODC kreiranje konekcije (ili se nesto slicno zvala). Tu sam pokusao da objasnim problem, koliko-toliko. Valjda ce ti pomoci. Ipak, zakljucak do kojeg sam dosao uzmi sa velikom rezervom posto je jednostavno empirijski utvrdjen.

Potpis

Sve najbolje zeli vam,
Mladen Perisic

Re: imam problema sa dodavanjem novog zapisa 05.03.2005. u 19:13 · pre 263 meseci #5

Napravim dve forme:
1. preko DataForm Wizarda
2. "rucno"

Ova sa wizardom radi sve dok ne ubacim da kada se pritisne ENTER da se saberu vrednosti nekih polja i ispisu u neko trece e tad pocinje da zeza.

Dok se kod forme pravljene rucno ovo ne desava uvek.
Nekad se desi da jedan isti kod radi na jednoj, a da na drugoj nece...

Bar sam ja tako shvatio ???

Potpis

www.cicevac.com
†StEEwSc†

Re: imam problema sa dodavanjem novog zapisa 06.03.2005. u 08:07 · pre 263 meseci #6

Moze biti bilo sta, posalji kod koji pravi problem...

Re: imam problema sa dodavanjem novog zapisa 08.03.2005. u 11:24 · pre 263 meseci #7

Kod je prost (promenio sam kontrolu preko koje povezujem program sa bazom sada koristim ADODC i nema problema ali evo):

Code:

Private Sub Command1_Click(KeyAscii As Integer)
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text3.Text = CStr(CSng(Text1.Text) + CSng(Text2.Text))
    Command2.SetFocus
End If
End Sub

To bi bilo to !!!

Potpis

www.cicevac.com
†StEEwSc†

Re: imam problema sa dodavanjem novog zapisa 08.03.2005. u 17:19 · pre 263 meseci #8

Citat:

Private Sub Command1_Click(KeyAscii As Integer)

????????????

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: imam problema sa dodavanjem novog zapisa 10.03.2005. u 22:26 · pre 263 meseci #9

Ne! To je greska pri kucanju
u kodu je :

Citat:

Private Sub Command2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.Recordset.Update
End If
End Sub

etc.

Potpis

www.cicevac.com
†StEEwSc†

Re: imam problema sa dodavanjem novog zapisa 11.03.2005. u 01:03 · pre 263 meseci #10

A čemu uopšte taj keypress kod command button-a ? On kad dobije fokus (a svakako mora da dobije fokus da bi izvršio taj keypress) pritisak na ENTER ili SPACE će da simulira klik na taj command button.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: imam problema sa dodavanjem novog zapisa 12.03.2005. u 10:39 · pre 263 meseci #11

Pa dobro onda vise necu tako da radim, nego mislim da je problem bio na nekom
drugom mestu. Stvar je u tome sto kada se txt polja "automatizuju" program nece da uradi AddNew. Onda sam probao da ja "rucno" dodam novo prazno mesto u bazi i onda bi kod nekih formi radilo, ali opet nije to to.

Potpis

www.cicevac.com
†StEEwSc†

Re: imam problema sa dodavanjem novog zapisa 12.03.2005. u 16:48 · pre 263 meseci #12

Upravo je problem u tome što se update izvršava samo kad pritisneš ENTER, a ukoliko samo klikneš na dugme ništa se neće desiti.Dakle skroz ukloni ono keyascii iz commandbutonna i ostavi da bude ovako.

Code:
Private Sub Command1_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text3.Text = CStr(CSng(Text1.Text) + CSng(Text2.Text))
    Command2.SetFocus
End If
End Sub

Probaj tako.Trebalo bi da radi.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Srodne teme