Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GO to a negative recno in a optimistic table buffered cu
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Environment versions
Visual FoxPro:
VFP 6 SP5
Miscellaneous
Thread ID:
01031593
Message ID:
01031742
Views:
18
>Why it not works? This works fine for me:
>
>CLOSE DATABASES ALL
>CREATE DATABASE Test
>OPEN DATABASE Test
>SET DATABASE TO Test
>CREATE TABLE tTest (Bla C(10))
>FOR asd = 1 TO 50
>    INSERT INTO tTest VALUES (STR(asd))
>NEXT
>ALTER TABLE tTest ADD PRIMARY KEY Bla TAG Bla
>
>CREATE SQL VIEW vTest AS SELECT Bla FROM tTest
>
>DBSetProp("vTest","View","SendUpdates",.T.)
>DBSetProp("vTest","View","BatchUpdateCount",1)
>DBSetProp("vTest","View","CompareMemo",.T.)
>DBSetProp("vTest","View","FetchAsNeeded",.F.)
>DBSetProp("vTest","View","FetchMemo",.T.)
>DBSetProp("vTest","View","FetchSize",-1)
>DBSetProp("vTest","View","MaxRecords",-1)
>DBSetProp("vTest","View","Prepared",.F.)
>DBSetProp("vTest","View","UpdateType",1)
>DBSetProp("vTest","View","UseMemoSize",255)
>DBSetProp("vTest","View","Tables","eltest!results")
>DBSetProp("vTest","View","WhereType",3)
>
>DBSetProp("vTest.Bla","Field","DataType","C(10)")
>DBSetProp("vTest.Bla","Field","UpdateName","Test!tTest.Bla")
>DBSetProp("vTest.Bla","Field","KeyField",.T.)
>DBSetProp("vTest.Bla","Field","Updatable",.T.)
>CLOSE DATABASES ALL
>
>
>whatBla = STR(25)
>USE Test!vTest
>BROWSE
>CURSORSETPROP("Buffering",5,'vTest')
>lcAlias = "vTest"
>
>UPDATE (lcAlias) SET Bla = STR(55) WHERE vTest.Bla = m.whatBla
>GO 25
>? TABLEUPDATE(1,.t.,lcAlias)
>whatBla = STR(55)
>UPDATE (lcAlias) SET Bla = STR(12) WHERE vTest.Bla = m.whatBla
>GO 25
>BROWSE
>CLOSE DATABASES ALL
>
I don't know. :( The form is extremely complicated and we're using a MereMortals framework here. I just tried to add a new Employer for the patient. The first one was saved, but then I tried to add a new one, it's not saved, though form reports it's saved. Now I have to dig into this mess :( And it's not even my form...
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform