Code:
Dim rec As Integer
db1.Provider = "Microsoft.Jet.OLEDB.4.0"
rs1.LockType = adLockOptimistic
rs1.CursorType = adOpenKeyset
str1 = App.Path & "\SIFRE.mdb"
db1.Open str1
rec = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
str1 = "Select sifra,[rezervni delovi],namena,komentar FROM sifre where sifra=" & rec
rs1.Open str1, db1
rs1!sifra = txtSifra.Text & ""
rs1![rezervni delovi] = txtRezervni.Text & ""
rs1!namena = txtNamena.Text & ""
rs1!komentar = txtKomentar.Text & ""
rs1.UpdateBatch
Dim rec As Integer
db1.Provider = "Microsoft.Jet.OLEDB.4.0"
rs1.LockType = adLockOptimistic
rs1.CursorType = adOpenKeyset
str1 = App.Path & "\SIFRE.mdb"
db1.Open str1
rec = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
str1 = "Select sifra,[rezervni delovi],namena,komentar FROM sifre where sifra=" & rec
rs1.Open str1, db1
rs1!sifra = txtSifra.Text & ""
rs1![rezervni delovi] = txtRezervni.Text & ""
rs1!namena = txtNamena.Text & ""
rs1!komentar = txtKomentar.Text & ""
rs1.UpdateBatch
Kad hocu da promenim sifru javlja mi gresku run-time error '3021'. Kad ne menjam sifru, vec samo ostala polja onda radi. U bazi imam polje id koje je AutoNumber, a polje sifra je tipa Number. U cemu je problem. Hvala
[Ovu poruku je menjao mladenovicz dana 27.01.2004. u 15:12 GMT]