[AC-2003] Traduire un code DAO en ADO. [Résolu]

[Bonero]

Bonjour tout le monde,

Je travaille avec des tables qui contiennent a la base plein d’espace (c-a-d Zero Length String) qui rendent le developpement de mon application tres difficile care je dois incessemment gerer des nulls et ZLS.

Je suis tombe sur ce bout de code qui permet d’eliminer d’un seul trait les ZLS. Mais il est ecrit en DAO que je ne connais pas trop.

Quelqu’un pourrait-il m’aider a le traduire en ADO?
Mon application est en ADO et je n’aimerais pas melanger DAO et ADO.

Merci d’avance de votre aide.

Bonero.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function FixZLS()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property
    Const conPropName = "AllowZeroLength"
    Const conPropValue = False
 
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            If tdf.Name <> "Switchboard Items" Then
                For Each fld In tdf.Fields
                    If fld.Properties(conPropName) Then
                        Debug.Print tdf.Name & "." & fld.Name
                        fld.Properties(conPropName) = conPropValue
                    End If
                Next
            End If
        End If
    Next
 
    Set prp = Nothing
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Function

[User]

Salut,

Regarde ce lien:
http://www.classanytime.com/mis333k/...ecordsets.html

avec les exemples qui sont donnés.

A+