[VB6] Recuperare il tipo di un campo in Access

[TheAikon]

Salve ragazzi volevo sapere come si può recuperare il tipo (float,memo ecc.) di un campo in access.

Grazie mille

[mgmg]

Si può facendo: rs("nomecampo").Type, i valori che ritornano sono differenti tra ADO e DAO.
Se invece devi memorizzare conoscere i valori di tutti i Type della tua tabella puoi fare:

    If Not rs.EOF Then
        i = 0
        For Each Fld In rs.Fields
             a(i)= rs.Fields.Item(i).Name 'nome
             b(i)= rs.Fields.Item(i).Type  'tipo
             c(i) = rs.Fields.Item(i).DefinedSize 'dimensioni
             i = i + 1
        Next

    End If

[TheAikon]

Originariamente inviato da mgmg
Si può facendo: rs("nomecampo").Type, i valori che ritornano sono differenti tra ADO e DAO.
Se invece devi memorizzare conoscere i valori di tutti i Type della tua tabella puoi fare:

    If Not rs.EOF Then
        i = 0
        For Each Fld In rs.Fields
             a(i)= rs.Fields.Item(i).Name 'nome
             b(i)= rs.Fields.Item(i).Type  'tipo
             c(i) = rs.Fields.Item(i).DefinedSize 'dimensioni
             i = i + 1
        Next

    End If

Grazie...
ma la stringa

rs.Fields.Item(i).Type

mi restituisce un intero.

[kalosjo]

Esattamente, c'è una corrispondenza tra gli interi che restituisce e i tipi di campi.

[mgmg]

Guarda in questo articolo se stai programmando in ADO trovi la corrispondenza tra il numero ed il tipo e se crei una funzione come questa che io ho copiato dall'help, hai risolto :

http://www.soft-land.org/cgi-bin/doc...d&tpl=doc#type

Public Function FieldType(intType As Integer) As String

   Select Case intType
      Case adChar
         FieldType = "adChar"
      Case adVarChar
         FieldType = "adVarChar"
      Case adSmallInt
         FieldType = "adSmallInt"
      Case adUnsignedTinyInt
         FieldType = "adUnsignedTinyInt"
      Case adDBTimeStamp
         FieldType = "adDBTimeStamp"
   End Select

End Function

Spero sia chiaro. Ciao

[TheAikon]

Originariamente inviato da mgmg
Guarda in questo articolo se stai programmando in ADO trovi la corrispondenza tra il numero ed il tipo e se crei una funzione come questa che io ho copiato dall'help, hai risolto :

http://www.soft-land.org/cgi-bin/doc...d&tpl=doc#type

Public Function FieldType(intType As Integer) As String

   Select Case intType
      Case adChar
         FieldType = "adChar"
      Case adVarChar
         FieldType = "adVarChar"
      Case adSmallInt
         FieldType = "adSmallInt"
      Case adUnsignedTinyInt
         FieldType = "adUnsignedTinyInt"
      Case adDBTimeStamp
         FieldType = "adDBTimeStamp"
   End Select

End Function

Spero sia chiaro. Ciao

Chiarissimo....Grazie mille!!!