CONTROLE DATATEXT controle, text, datatext, donnée, leger, Source N°46051

Information sur la source

Catégorie :Control Classé sous : controle, text, datatext, donnée, leger Niveau : Débutant Date de création : 13/03/2008 Date de mise à jour : 14/03/2008 17:24:44 Vu / téléchargé: 2 912 / 283

Auteur : moipaci

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Un controle qui permet de connecter un fichier .txt à un DataGrid.
Grace à cela adieu les bases de données encombrantes. Une base de donnée avec une compression grande car un .txt est infiniment plus compressé qu'un .mdb . Actuellement le test n'a fonctionné qu'avec un datagrid.

Source

Ce controle est fait pour les Datagrid.
Il permet d'afficher les données d'un fichier texte structuré ainsi :
Nombre d'enregistrements;Nombre de champs
Champ 1 ;Champ 2;
Enregistrement champ1;Enregistrement champ2;
Le fichier inclus "Data.txt" est un exemple.
Chaque enregistrement se profilera sur une ligne terminée par un ";"
La separation entre les donnée se fait par un ";"
Pour le codage :
Option Explicit
Dim da As New DataAdapter
Private Sub Form_Load()
' Affecte l'objet DataText à la propriété Object de l'objet DataAdapter.
Set da.Object = DataText1
' Définit la propriété DataMember.
DataGrid1.DataMember = App.Path & "\data.txt"
' Affecte l'objet DataAdapter à la propriété DataSource.
Set DataGrid1.DataSource = da
End Sub
Donc pour l'execution des données il faut un data adapter.
Sa librairie est "Microsoft Data Adapter Library"

Ce controle est fait pour les Datagrid.
Il permet d'afficher les données d'un fichier texte structuré ainsi :


Nombre d'enregistrements;Nombre de champs
Champ 1 ;Champ 2;
Enregistrement champ1;Enregistrement champ2;

Le fichier inclus "Data.txt" est un exemple.

Chaque enregistrement se profilera sur une ligne terminée par un ";"
La separation entre les donnée se fait par un ";"

Pour le codage :

Option Explicit
Dim da As New DataAdapter


Private Sub Form_Load()
    ' Affecte l'objet DataText à la propriété Object de l'objet DataAdapter.
    Set da.Object = DataText1
    
    ' Définit la propriété DataMember.
    DataGrid1.DataMember = App.Path & "\data.txt"
    ' Affecte l'objet DataAdapter à la propriété DataSource.
    Set DataGrid1.DataSource = da
End Sub


Donc pour l'execution des données il faut un data adapter.
Sa librairie est "Microsoft Data Adapter Library"

Conclusion

Bonne Utilisation !

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

data.txt 10 512 octets
help.txt 961 octets
MyData.ctl 1 758 octets
MyDataco.ocx53 248 octets
MyDataco.vbp 1 546 octets
MYDATAS.CLS 956 octets
MYOSPOBJ.CLS 12 539 octets

Télécharger le zip

Historique

13 mars 2008 23:05:10 :: Ajout du fichier help.txt et data.txt
14 mars 2008 17:24:44 :: Ajout du source

Sources de la même categorie

Toutes les sources de la catégorie Control

Sources en rapport avec celle ci

Commentaires

Commentaire de bouv le 14/03/2008 12:17:32

1° - Un fichier TXT n'a rien de compressé. Ce qui coute de la place dans une base de donnée c'est la structure, et là, la perte est infime. Par contre quand il s'agit de rechercher, trier, supprimer des données... les requetes SQL te feront gagner un temps CONSIDERABLE.

2° - Je ne vois pas de source dans ce zip, juste un ocx. Voir la chartre de bonne conduite qui dit :
"On ne fourni pas un programme ou une ressource compilée. Une source sans code n'est pas une source! "

++
Commentaire de asimengo le 14/03/2008 13:32:27

@moipaci: fouilles la dedans http://www.vbfrance.com/codes/IMPLEMENTATION-AUTOMATIQUE-RECORDSET-TOUS-PROVIDERS-PASSER-RECORDSET-PARAMETRE_33090.aspx, tu veras cmt on attaque un fichier texte pour un datagrid. il suffit de bien structurer le fichier Schema.ini
Commentaire de moipaci le 14/03/2008 17:31:31

Reponse à BOUV :

1. Lorsque je dis compressé c'est que si tu consideres un fichier de base de donnée access(par exemple) d'un grand volume, en prenant tout simplement un fichier .txt avec 2 ko de memoire on pourrait conserver le triple de la base de donnée .mdb. Bien sûr j'exagere un p' tit peu.

2. Tu as tout à fait raison, je me suis trompé betement de Zip.

Reponse à ASIMENGO:

Je comprends parfaitement ce que tu veux dire. Mais je ne propose pas seulement d'ataquer le fichier txt, mais aussi de le farfouiller, de le modifierà travers un controle, d'ailleurs je l'ameliore pour creer une nouveau genre de sgbd.

Conclusion :

Soyez indulgent c'est mon premier source.
Commentaire de asimengo le 14/03/2008 19:50:18

@MOIPACI: ah non je ne critique pas ton bon travail, juste un tuyau de plus si ca peut t'aider.
Commentaire de BruNews le 14/03/2008 20:49:12 administrateur CS

Justement parce que c'est ta 1ere source, écoute bien ce qui t'est dit en commentaires.

Un txt standard ne pourra jamais être substitué à un BDD, il manquera le système d'indexation et les relations qui font une base de données.
Dès que ton txt prendra un peu de volume, les temps de manipulation deviendront très rapidement rédhibitoires.
Commentaire de moipaci le 14/03/2008 22:27:45

Ok, il est evident qu' un .txt ne remplacera jamais(ou pas prochainement) un sgbd, donc actuellement l'ensemble de mes travaux sont concentrés sur l'acceleration et sur la compression .

Merci pour vos conseils !
Commentaire de BruNews le 14/03/2008 22:31:52 administrateur CS

En ce cas, il faudra t'orienter sur un langage de bas niveau.