View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jamie Collins Jamie Collins is offline
external usenet poster
 
Posts: 593
Default differentiate empty and zero

"RB Smissaert" wrote ...

I have the following situation:
An Interbase table with integer and string fields.

Then the following code fragment:

Dim rs As ADODB.Recordset
Dim strQuery As String
Dim arrData

strQuery = "SELECT G.* FROM GPP_INVESTIGATION G WHERE G.ENTRY_ID = " &
lENTRY

Set rs = New ADODB.Recordset

rs.Open Source:=strQuery, _
ActiveConnection:=ADOConn, _
CursorType:=adOpenForwardOnly, _
LockType:=adLockReadOnly, _
Options:=adCmdText

arrData = rs.GetRows

Now I need to know if elements in this array are empty or zero.


In the Immediate Window:

a = Array(0,Null)
? IsNull(a(0))
False
? IsNull(a(1))
True

BTW why are you operating on the array and not the recordset? You risk
the values changing due to Excel's/VBA's habit of coercing values.

Jamie.

--