PHILA-Collector, le Forum

Tout sur ce logiciel, participez à son développement, vos encouragements, vos remarques.

Vous n'êtes pas identifié(e).

#51 27/01/2021 19:28:06

Maurice
Modérateur
Lieu : EVRY
Inscription : 07/10/2007
Messages : 2 292
Site Web

Re : Un avis sur la numérotation...

Bonsoir,

Merci, la méthodes 2 est peut-être applicable dans PHILA.
Je vois ça ce WE.


pancarte.png
https://www.logi-collector.fr , philatéliquement, Maurice.

Hors ligne

#52 29/01/2021 01:08:43

Maurice
Modérateur
Lieu : EVRY
Inscription : 07/10/2007
Messages : 2 292
Site Web

Re : Un avis sur la numérotation...

Bonsoir,

Je crois bien y être arrivé après 3 heures d'essais et de programmation :
               
      'Se connecter à la base Timbres.mdb
      Dim dbe As DAO.DBEngine
      Dim db As DAO.Database
      dbe = New DAO.DBEngine
      db = dbe.Workspaces(0).OpenDatabase(Application.StartupPath + "\Timbres.mdb")

      Try
           'Modifier temporairement le nombre de verrous
           dbe.SetOption(DAO.SetOptionEnum.dbMaxLocksPerFile, 300000)

           'Lire la définition de la table Timbres de la base de données
           Dim Tbl As DAO.TableDef
           Tbl = db.TableDefs("Timbres")
           
           'Lire le nombre de caractères du champ Numero
           Dim TailleNumero As Integer
           TailleNumero = Tbl.Fields("Numero").Size
           
           'Si la nouvelle taille n'est pas déjà appliquée, modifier les 3 champs Numero, Observation et Description
           If TailleNumero <> 16 Then
                 db.Execute("ALTER TABLE Timbres ALTER COLUMN Numero TEXT(16)")
                 db.Execute("ALTER TABLE Timbres ALTER COLUMN Observation MEMO")
                 db.Execute("ALTER TABLE Timbres ALTER COLUMN Description MEMO")
            End If

            'Fermer la base
            db.Close()

      Catch ex As Exception
            'On ferme la base aussi si une erreur apparait
            db.Close()
      End Try

Ca fonctionne sur une base contenant 150 000 timbres référencés parmi 159 pays.
Par contre je ne sais pas quel nombre de verrous sont necessaires, j'ai défini 300 000 !!!
Ca fonctionne avec 200 000.


pancarte.png
https://www.logi-collector.fr , philatéliquement, Maurice.

Hors ligne

Pied de page des forums

Propulsé par FluxBB