Type de données d'une colone SQL

Question

Salut tlm, je voulais pas poser cte question sur le forum, mais n'y arrivant pas, je craque,

je souhaite recup&#233;rer le type de donn&#233;e d'une colone d'une bdd. J'ai essay&#233; ca : 

   

 Dim nomcolRS As ADODB.Recordset

    Set nomcolRS = connex.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Facture"))

    While Not nomcolRS.EOF

        If nomcolRS("COLUMN_NAME").Value = colone.Text Then

            typeColone = nomcolRS("COLUMN_NAME").type

        End If

        nomcolRS.MoveNext

    Wend

    nomcolRS.Close

    Set nomcolRS = Nothing



-> MAIS il me sors toujour le meme type 202 !!!  :S    Qu'est-ceque j'ai mal fait????



La boucle c'est parce que cela me sortait une erreur si je mettais  nomcolRS(colone.text).





Mon but est d'inserer/modifier des donn&#233;es selon le type de la colone
ou l'utilisateur veut inserer a cause des   " & "'" &
bla.text & "'" & " ou des  " & chiffre.text & " ou
des date.. Si ya un moyen de le faire en autoatique, je suis aussi
reneur :D



Sinon au moins, comment recuperer le type de donn&#233;es de la colone?

 merci bcp !

mythic_kruger · Answer

Il te renvoie le type de donn&#233;es d'un champ (propri&#233;t&#233; Type de l' objet Field ref. DAO) qui n'est autre qu'une constante!

Essaies &#231;a:

Function FieldType(intType As Integer) As String

    Select Case intType

        Case dbBoolean

            FieldType = "dbBoolean"

        Case dbByte

            FieldType = "dbByte"

        Case dbInteger

            FieldType = "dbInteger"

        Case dbLong

            FieldType = "dbLong"

        Case dbCurrency

            FieldType = "dbCurrency"

        Case dbSingle

            FieldType = "dbSingle"

        Case dbDouble

            FieldType = "dbDouble"

        Case dbDate

            FieldType = "dbDate"

        Case dbText

  FieldType = "dbText"

        Case dbLongBinary

            FieldType = "dbLongBinary"

        Case dbMemo

            FieldType = "dbMemo"

        Case dbGUID

            FieldType = "dbGUID"

    End Select

End Function



Tu l'appeles avec 

FieldType(nomcolRS("COLUMN_NAME").type)

papi jim · Answer

En fait, je c ke ca rend une constante, dans la suite de mon code je fai case dbDate, 

case dbint etc....

mais en fait il ne me retourne KE 202 !!! 

a tous les coup ! :s 

c ca mon probleme...

mythic_kruger · Answer

Perso j'utiliserai un autre code pour lister les champs et leur type, encore issu de la r&#233;f&#233;rence DAO:

Sub TypeX3()



    Dim dbsNorthwind As Database

    Dim qdfLoop As QueryDef



    Set dbsNorthwind = OpenDatabase("Comptoir.mdb")



    Debug.Print "QueryDefs dans la base de donn&#233;es Comptoir:"

    Debug.Print "    Type - Nom"



    ' Enum&#232;re la collection QueryDefs de la base de donn&#233;es Comptoir.

    For Each qdfLoop In dbsNorthwind.QueryDefs

        Debug.Print "        " & _

            QueryDefType(qdfLoop.Type) & " - " & qdfLoop.Name

    Next qdfLoop



    dbsNorthwind.Close



End Sub

Type de données d'une colone SQL

3 réponses

Discussions similaires