PHILA-Collector, le Forum
Vous n'êtes pas identifié(e).
- Contributions : Récentes | Sans réponse
#51 27/01/2021 19:28:06
Re : Un avis sur la numérotation...
Bonsoir,
Merci, la méthodes 2 est peut-être applicable dans PHILA.
Je vois ça ce WE.
https://www.logi-collector.fr , philatéliquement, Maurice.
Hors ligne
#52 29/01/2021 01:08:43
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.
https://www.logi-collector.fr , philatéliquement, Maurice.
Hors ligne