Know if a records locked

[Barney]

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

  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 ?

Thanks

Barney
  
  
  
  
  
  
  




















on 1/9/04 9:17 AM, Ruslan Zasukhin at sunshine at public.kherson.ua wrote:

> On 9/1/04 12:10 AM, "Barney" <barney at custombased.com> wrote:
> 
>>> Hi Barney,
>>> 
>>>> Is there any way while debugging in RB IDE using V4RB that we can tell
>>>> if records are locked.
>>> 
>>>> If we call records using a cursor can we somehow find out if the records
>>>> we're calling are still locked somewhere else ?
>>> 
>>> Just if you try SELECT at least one record which is locked in conflict mode,
>>> Then cursor will not be created at all and you get error 363
>> 
>> Thanks for that...
>> 
>> Where do I look to get that error code from.
> 
> As usually.
> 
>   db.ErrCode
> 
> 
>> I've managed to get myself NIL cursors OK, but where or how do I get the
>> error code. If I have a look at my database object in the IDE it has error
>> code = 0 ?
> 
> Strange.
> 
> Must be 363
>