Re: ResultField.Type=-2

[Ian Roper <westozscribe@xxxxxxxxx>]

Public Function GetFieldType(InDBType As String, Readable As Boolean, 
InFieldType As Integer) As String

  Dim ReadableStr As String = "Unknown Type"
  Dim SQLiteStr As String = ""
  Dim MySQLStr As String = ""

  Select Case InFieldType
    Case -1 ' Not in the gambas standard types.
      ReadableStr = "Blob"
      If InDBType = "sqlite" Then SQLiteStr = "BLOB"
      If InDBType = "mysql" Then MySQLStr = "BLOB"
*Case -2 ' not in the Gambas standard types*
      ReadableStr = "Serial"
      If InDBType = "sqlite" Then SQLiteStr = "SERIAL"
      If InDBType = "mysql" Then MySQLStr = "SERIAL"
    Case GB.Boolean
      ReadableStr = "Boolean"
      If InDBType = "sqlite" Then SQLiteStr = "BOOLEAN"
      If InDBType = "mysql" Then MySQLStr = "BOOLEAN"
    Case GB.Date
      ReadableStr = "Date"
      If InDBType = "sqlite" Then SQLiteStr = "DATE"
      If InDBType = "mysql" Then MySQLStr = "DATE"
    Case GB.Float
      ReadableStr = "Float"
      If InDBType = "sqlite" Then SQLiteStr = "FLOAT"
      If InDBType = "mysql" Then MySQLStr = "DECIMAL(19,4)" ' Standard 
account practice for $ amounts to stop rounding errors
    Case GB.Integer
      ReadableStr = "Integer"
      If InDBType = "sqlite" Then SQLiteStr = "INTEGER"
      If InDBType = "mysql" Then MySQLStr = "INT"
    Case GB.Long
      ReadableStr = "Long"
      If InDBType = "sqlite" Then SQLiteStr = "LONG"
      If InDBType = "mysql" Then MySQLStr = "BIGINT"
    Case GB.String
      ReadableStr = "String"
      If InDBType = "sqlite" Then SQLiteStr = "VARCHAR"
      If InDBType = "mysql" Then MySQLStr = "VARCHAR"
    Case Else
      Message(InFieldType)
  End Select

  If Readable Then
    Return ReadableStr
  Else
    If InDBType = "sqlite" Then Return SQLiteStr
    If InDBType = "mysql" Then Return MySQLStr
  Endif

End

----------------------------------------------------

Cheers,

Ian.

On 19/3/25 10:29 am, BB wrote:
> Quicky.
>
> What does a ResultField.Type of -2 signify?
>
> tia
>
> b