[ steewsc @ 27.02.2005. 13:35 ] @
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!!!
[ mladenovicz @ 28.02.2005. 11:26 ] @
Postuj kod koji ne radi
[ anebojsa @ 28.02.2005. 11:28 ] @
napisi insert da vidimo o cemu se radi
[ Mladen_Perisic @ 28.02.2005. 12:46 ] @
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.
[ steewsc @ 05.03.2005. 19:13 ] @
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 ???
[ TheAlas @ 06.03.2005. 08:07 ] @
Moze biti bilo sta, posalji kod koji pravi problem...
[ steewsc @ 08.03.2005. 11:24 ] @
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 !!!
[ Marko_L @ 08.03.2005. 17:19 ] @
Citat:
Private Sub Command1_Click(KeyAscii As Integer)

????????????
[ steewsc @ 10.03.2005. 22:26 ] @
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.
[ Marko_L @ 11.03.2005. 01:03 ] @
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.
[ steewsc @ 12.03.2005. 10:39 ] @
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.
[ Marko_L @ 12.03.2005. 16:48 ] @
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.