Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa a sapere il formato di un campo database.

Mi sono bloccato a determinare il formato (numero, testo, ecc) di un campo
di un database in access.
Qualcuno mi sa aiutare ?
ciao

 di un database in access.
Public Function GetFieldType(fieldDBType As Integer) As String
  Dim str As String
  Dim defaultType As String
  defaultType = "String"
  Select Case fieldDBType
    Case dbBigInt
      str = "long" '"Big integer"
    Case dbBinary
'      str = "Binary"
      str = defaultType
    Case dbBoolean
      str = "Boolean" 'uguale a VB
    Case dbByte
      str = "Byte" 'uguale a VB
    Case dbChar
'      str = "Char"
      str = defaultType
    Case dbCurrency
      str = "Currency" 'uguale a VB
    Case dbDate
'      str = "Date / Time"
      str = defaultType
    Case dbDecimal
'      str = "Decimal"
      str = defaultType
    Case dbDouble
      str = "double" '"Double"
    Case dbFloat
      str = "single" '"Float"
    Case dbGUID
'      str = "Guid"
      str = defaultType
    Case dbInteger
      str = "Integer" 'uguale a VB
    Case dbLong
      str = "Long" 'uguale a VB
    Case dbLongBinary
'      str = "Long Binary (OLE Object)"
      str = defaultType
    Case dbMemo
      str = "String" '"Memo"
    Case dbNumeric
      str = "integer" '"Numeric"
    Case dbSingle
      str = "Single" 'uguale a VB
    Case dbText
      str = "string" '"Text"
    Case dbTime
'      str = "Time"
      str = defaultType
    Case dbTimeStamp
'      str = "Time Stamp"
      str = defaultType
    Case dbVarBinary
'      str = "VarBinary"
      str = defaultType
  End Select
  GetFieldType = str
End Function

 ha scritto


oppure (dao)
For Each fld In td.Fields
List1.AddItem "------FLD: " & fld.Name
If chkFProp = 1 Then
List1.AddItem "---------Type: " _
    & fld.Type & Chr(9) & "(" & TipoCampo(fld.Type) & ")"
List1.AddItem "---------Size: " & fld.Size
List1.AddItem "---------Required: " & fld.Required
End If
Next
ciao, a.

 Next
Suppongo che la tua funzione "TipoCampo" sia come la mia "GetFieldType"...
:)

 :)
oops ! e' rimasta impigliata nel modem ! :))
mmm... mmm..
spigliata !!
ciao, a.
Public Function TipoCampo(FldType)
    Select Case FldType
        Case 1: TipoCampo = "BOOLEAN"
        Case 2: TipoCampo = "N-BYTE"
        Case 3: TipoCampo = "N-INTEGER"
        Case 4: TipoCampo = "N-LONGINT"
        Case 5: TipoCampo = "N-CURRENCY"
        Case 6: TipoCampo = "N-SINGLEPREC."
        Case 7: TipoCampo = "N-DOUBLEPREC."
        Case 8: TipoCampo = "DATE/TIME"
        Case 9: TipoCampo = "UNDEF"
        Case 10: TipoCampo = "TEXT"
        Case 11: TipoCampo = "OLE"
        Case 12: TipoCampo = "MEMO/HYPER"
        Case 13: TipoCampo = "UNDEF"
        Case 14: TipoCampo = "UNDEF"
        Case 15: TipoCampo = "N-IDREPLICA / GUID"
        Case 16: TipoCampo = "N-BIG INTEGER"
        Case 17: TipoCampo = "VARBINARY"
        Case 18: TipoCampo = "CHAR"
        Case 19: TipoCampo = "N-NUMERIC"
        Case 20: TipoCampo = "N-DECIMAL"
        Case 21: TipoCampo = "N-FLOAT"
        Case 22: TipoCampo = "TIME"
        Case 23: TipoCampo = "TIMESTAMP"
        Case Else: TipoCampo = "_UNDEF_"
    End Select
End Function

 End Function
Ah! Ovviamente e' DAO...