Alassane Diakité » ACCESS

Aperçu des données PostGIS dans ACCESS avec gdiplus

alassanediakite — Tue, 16 Jul 2013 18:06:59 +0000

J’ai récupéré la carte administrative du Mali que j’ai ensuite chargé dans PostGIS 2.0.
Pour l’afficher j’ai utilisé la classe gdiplus de Arkham46 dans ACCESS.
Ci-joint la base ACCESS.
La table était attachée à une vue de PostgreSQL 9.2.4. Le code de la vue

1
2
3

CREATE OR REPLACE VIEW maliadmin AS
SELECT gid, REPLACE(REPLACE(REPLACE(st_astext(mali_administrative.the_geom), 'LINESTRING('::text, ''::text), ' '::text, ','::text), ')'::text, ''::text) AS uneligne
FROM mali_administrative

Avec le temps nous verrons d’autres possibilités.

[VB.NET ACCESS] Récupérer le numeroAuto après insertion

alassanediakite — Mon, 25 Feb 2013 11:18:17 +0000

Voici un code vous permettant d’avoir le numéro auto généré par ACCESS lors d’un insertion avec VB.NET. Le problème m’a été soumis par un étudiant ayant cherché en vain une solution avec ADO.NET.
J’ai pas trouvé la solution avec ADO.NET je me suis alors tourné vers DAO.
L’exemple utilise:

une base « contacts.mdb » contenant une seule table « contact:idc numauto clé, lenom texte, prenom texte »
un formulaire avec deux textbox « Nom » et « Prenom » plus un bouton

Il vous faut d’abord ajouter la référence « Microsoft Access x.x Object Library »
Le code de l’évènement click du bouton

1
2
3
4
5
6
7
8
9
10
11

Dim rs As dao.Recordset
Dim db As dao.Database
Dim moteur As New dao.DBEngine
db = moteur.Workspaces(0).OpenDatabase("D:\contacts.mdb", False, False)
'le premier false pour mode partagé et le second pour lecture et écriture
rs = db.OpenRecordset("contact", 1)
rs.AddNew()
rs("lenom").Value = Me.Nom.Text
rs("prenom").Value = Me.Prenom.Text
MsgBox(rs("idc").Value.ToString) 'réception du numéro auto
rs.Update() 'validation vers la base

Personnaliser la connexion d’un projet adp ACCESS

alassanediakite — Mon, 17 Oct 2011 21:11:02 +0000

Je vous propose ici comment créer un formulaire de login d’une base de données ACCESS qui se connecte à SQL Server.
A la fermeture du formulaire principal (ou menu général) il faut exécuter le code….

1 2	Application.CurrentProject.CloseConnection Application.CurrentProject.OpenConnection ""

[ACCESS] Numérotation automatique de courriers par an (janvier à décembre)

alassanediakite — Thu, 13 Oct 2011 13:25:49 +0000

Problématique :
Numéroter les courriers avec reprise à un (01) en janvier.
La difficulté réside surtout dans un environnement multi-utilisateur ou lors de suppressions de courriers anciens.
Solution proposée :
Une table tnumero(idcourrier, annee) qui prend la clé auto-incrémentée du courrier puis on calcule son rang par rapport à l’année.
Inconvénient de la solution : on ne doit pas changer l’année de la date du courrier.
Mise en pratique