From: | "Bret" <bret_stern(at)machinemanagement(dot)com> |
---|---|
To: | <pgsql-general(at)postgresql(dot)org> |
Subject: | Numeric Type and VB/ODBC |
Date: | 2009-11-11 06:07:16 |
Message-ID: | 000a01ca6295$398224c0$0d00a8c0@bjsworkstation |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-general |
This may not be the right group, if so, just let me know.
I have a table with a type [numeric].
When executing queries, I get the data which happens to
be (6.5) in this case, but my VB6 function which traps
for nulls (below) returns a null.
If I change it to type [real]. No problems
Function IsNothing(varToTest As Variant) As Integer
' Tests for a "logical" nothing based on data type
' Empty and Null = Nothing
' Number = 0 is Nothing
' Zero length string is Nothing
' Date/Time is never Nothing
IsNothing = True
Select Case VarType(varToTest)
Case vbEmpty
Exit Function
Case vbNull
Exit Function
Case vbBoolean
If varToTest Then IsNothing = False
Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
If varToTest <> 0 Then IsNothing = False
Case vbDate
IsNothing = False
Case vbString
If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing =
False
End Select
End Function
Bret Stern
From | Date | Subject | |
---|---|---|---|
Next Message | Andrei | 2009-11-11 06:49:27 | Re: Numeric Type and VB/ODBC |
Previous Message | Scot Kreienkamp | 2009-11-11 02:18:30 | Re: pg_dump native format will not restore correctly |