Know if a records locked

[Ruslan Zasukhin]

On 9/1/04 12:26 AM, "Barney" <barney at custombased.com> wrote:

> Hi Ruslan,
> 
> No I'm not getting anything ? Here is my code :
> 
> Dim I as Integer
> Dim a,b,c as integer
> Dim L as ListBox
> 
> //Cur = Nil
> 
> L = ListBox1
> L.DeleteAllRows
> 
> a = val(EditField2.text)
> b = val(EditField3.text)
> c = val(EditField4.text)
> 
> Cur = App.DB.SQLSelect(EditField1.text,a,b,c)   //Neither cursor works
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                what is this ???

 
> If Cur <> Nil then
>   
> //Goes ahead and populates rows...
>   
> Else
>   L.AddRow "Nil Cursor"
>   L.AddRow "Error Code is : " + str(App.DB.ErrNumber)
>   L.Cell(1,1) = "Error String is : " + App.DB.ErrString
>   
> End if
> 
> I'm generating NIL cursor by calling a record, then calling it again.
> 
> It is locking up as expected but I'm not getting an error code ?

-- 
Best regards,
Ruslan Zasukhin      [ I feel the need...the need for speed ]
-------------------------------------------------------------
e-mail: ruslan at paradigmasoft.com
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://lists.macserve.net/mailman/listinfo/valentina
-------------------------------------------------------------