Devenir membre club
Connectez vous
Aide & règlement
Votre 1ère visite
Le règlement
Contacter les admins
Contacter le webmaster
Questions & réponses
Comment soutenir CodeS-SourceS
Comment faire un lien vers CodeS-SourceS
Autres questions
A propos & don
A propos du réseau
Les modérateurs
Remerciements
Faire un don
Le livre d'or
Tous les livres
Les dernières parutions
Les plus consultés
Les critiques
Le top des ventes
Le top favoris des membres
Recevoir des livres blancs
Tous les thèmes
Les derniers messages
Les nouveaux messages
Poser une question
Le Chat - IRC
Tous les tutoriels
Ajouter un tutoriel
Les tutoriels en vidéo
Les formations vidéos
Tous les codes
Ajouter un code
Filtrer par catégorie
Filtrer par date
Les plus récents
Les mis à jour
Les codes par jour
Filtrer par niveau
Niveau débutant
Niveau initié
Niveau expert
Filtrer par type
Les codes avec capture
Les codes avec zip
Les codes .Net
Filtrer par qualité
Les plus populaires
Les plus populaires du mois
Les plus téléchargés
Les mieux notés
Top par catégorie
Top des favoris
Filtrer par auteur
Tous les auteurs
Le top des membres
Les snippets
Déposer votre CV
Consulter les offres d'emploi ou de stage
Consulter les CVs
Déposer une offre d'emploi ou de stage
Modèles de CV et lettres
Trouver une convention collective
Les écoles d'informatique
Toutes les écoles
Ajouter une école
Les outils
Outils pour développeurs
Trouver des ressources
Base de données de CodeS-SourceS
Télécharger les meilleurs logiciels
Comparer les prix
Envoyer des ecards
Création de bannières
Annuaire de la prog
Tous les sites
Ajouter votre site
Le dico de la prog
Toutes les définitions
Ajouter une définition
Les évènements
Tous les évènements
Les évènements à venir
Ajouter un évènement
Téléchargements
CodeS-SourceS Toolbox
CodeS-SourceS Toolbar
Toolbar pour FireFox
Fonds d'écran
Les compil's
Nos partenaires
Magazine Programmez
Frontier.fr
Xiti
ProgOnline
Winwise
Editions Eyrolles
Toute la liste
Les RFC
CS
VB, VB.NET
ASP.NET,ASP
C, C++
ColdFusion
PHP
Javascript
Delphi
Flash
Java
Graphisme
Irc
Assembleur
C#
Mobilité
SQL
Foxpro
Python
Regex
Flex
Windev
Ce site au démarrage
begin process at 2010 03 19 06:07:23
Accueil
Codes
Tutoriels
Forum
Livres
Emploi
Services
Connexion
Trouver un code source :
dans
Tout le site
Codes
Tutoriels
Forum
Blogs
Livres
RFC
Icones
News .NET
Boutique
[ Dernières recherches ]
Veuillez saisir votre recherche... Ex: smtp, lire un fichier, rs232
Options de recherche :
Tous les codes
Tous les codes en .Net
Tous les codes sauf .Net
Langages disponibles :
Tous les langages
ASP / ASP.NET
Assembleur
C / C++ / C++.NET
C# / C#.NET
ColdFusion
Delphi
Flash
Flex, Air, ActionScript
Foxpro
Graphisme
IRC
JAVA / J2EE
Javascript / Ajax / DHTML
PDA / PocketPC
PHP
Python
Regex, Regular Expression, Expression régulière
SQL
Visual Basic, VB6, VB.NET, VB 2005, VB
44 commentaire(s) de bigane
sur des sources sur tout
CodeS-SourceS
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
Je suis désolé, ce code fonctionnait avec VB6 et VBA pour Office 97 à 2003.
Microsoft a évolué depuis et avec le temps j'ai abandonné tous leurs produits au profit des produits libres (entendre libre d'accès aux sources et gratuits).
Donc le premier test pour savoir si ce code est toujours d'actualité, c'est DAO. Si cet objet est reconnu (cf : 2- dans le menu projet, menu références, coche : Microsoft DAO 3.5 Object Library ou DAO avec une version supérieure) En saisissant le mot DAO puis le point dans la fenêtre du code, alors la complétion automatique devrait te proposer Workspace(0) ou quelque chose d'approchant. Au pire, il pourrait te proposer le mot OpenDatabase :
DAO.OpenDatabase( ...
Si tu n'arrives pas à avoir cette méthode : càd pas de complétion pour le mot DAO c'est que :
1) soit tu n'as pas mis Microsoft DAO x.y Object Library
2) soit tu n'utilises pas VB ou VBA
Bon courage,
Bigane
Posté le :
04/02/2009 08:17:22
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
Merci,
a ton service et bon code.
a+
Bigane
Posté le :
25/02/2007 19:37:57
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
Salut Igorois,
Non, désolé je n'ai pas cela. Par contre j'ai déjà eu un problème similaire. C'est réélement complexe.
Tu peux utiliser la commande suivante :
Dim dbEng As DAO.DBEngine
dbEng.CompactDatabase scrName, DstName
Car celle-ci permet de créer une copie compressée de ta base initiale. Un balayage des tables permet ensuite de les vider une à une, et une dernière compression réinitialise les compteurs.
Une seconde méthode consiste à creer une base vide, à énumerer les tables et les colonnes de ta première base pour ensuite les créer dans la suivante. C'est long, mais si tu y arrive tu pourras tout faire avec cette méthode.
A+
Posté le :
02/07/2005 01:16:21
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
Salut,
Désolé pour ton problème, mais tu ne peux pas insérer une ligne dans plusieurs tables en une seule requête.
Par contre si tu la décompose (une par table) alors tu devrais pouvoir y arriver.
Pour ton premier problème, voici une solution :
db.Execute "CREATE TABLE [TableA] ( [ColonneX] Long);"
db.Execute "CREATE TABLE [TableB] ( [ColonneX] Number );"
La table A contiendra une colonne de type Long (effecue des tests pour vérifier le type).
La table B contiendra une colonne de type Double, poun insérer une valeur tu feras par exemple :
db.Execute "INSERT INTO TableB ( ColonneX ) values (2.5);"
A+
Bigane
Posté le :
02/05/2005 18:51:25
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
Donne plus d'explications :
Une requête ? elle rapatrie un ou plusieurs résultats ?
--> si un seul alors tu intégre les données avec une simple requête d'ajout ou un recordset ouvert sur la table de destination (et rs.addnew comme décrit plus haut).
--> si plusieurs tu peux faire une boucle pour relire les enregsitrements de ta requête un a un et utilisé la méthode utilisée pour un seul.
Sinon tu as encore la possibilité d'effectuer une requête d'insersion "insert into LaTable select xxx" et tu utilise ta fameuse requête comme sources de valeur à écrire dans ta table. Problème : il faut que tes données correspondent exactement à celles de la table de destination.
Cela doit te donner des pistes ... sinon, donne un exemple de requête, le type de tes données, la ou les tables de résultats ...
a+
Bigane.
Posté le :
20/09/2004 19:12:18
Déposé sur
Comment créer une base access, créer table, lire colonne, en ...
salut zeunz,
Voici ce que tu peux faire (par exemple)
Crée une base avec deux tables :
Clients [
idClient : numérique, primarykey
NomClient : Texte
]
Produits [
idProduit : numérique, primarykey ;
idClient : numérique ;
NomProduit : Texte
]
le but de la manip sera alors de relier les champs idClient des deux tables.
Voici le bout de code créant cette relation en ADO :
' Pour simplifier, je désigne db comme
' étant ma base dans la suite du code
Dim db As Database
Set db = CurrentDb()
Dim r As Relation
' Création d'une relation
Set r = New Relation
' Ma relation relie les clients et les produits, d'où ce nom pratique
r.Name = "ClientsProduits"
' J'indique les tables concernées par cette relation
r.Table = "Clients"
r.ForeignTable = "Produits"
' Je désigne le champ de la table "Clients"
r.Fields.Append r.CreateField("idClient")
' ce champ est relié à la table jointe (au champ idClient)
r.Fields("idClient").ForeignName = "idClient"
' J'ajoute la nouvelle relation à la collection de la base
db.Relations.Append r
' validation
db.Relations.Refresh
' libération propre et explicite des pointeurs
set r = nothing
set db = nothing
Au cas où, voici la syntaxe pour supprimer la relation
' db.Relations.Delete "ClientsProduits"
Il est facile pour comprendre les relations de les créer avec l'interface. Puis de regarder le résultat en mode debug avec des espions sur l'objet db.relations par exemple. C'est de cette façon que j'ai créé cet exemple.
A+
Bigane
Posté le :
04/05/2004 19:38:30
Déposé sur
Emulation de la fonction replace() de vba6
Voici une ligne qu'il faut ajouter en fin de la fonction :
If Start > 1 Then Replace = Mid$(Replace, Start)
J'ai retrouvé cette idée sur un site étranger :
http://www.programmazione.it/index.php?entity=etip&idTip=110&idArea=1
C'est marrant, on a toujours réinventé la roue, sa fonction replace me semble correcte, a voir ...
Posté le :
12/02/2004 22:02:45
Déposé sur
Comment se débarrasser de vb6fr.dll limitant la compatibilité...
Tiens, cind lignes qui devrait t'aider dans la recherche du Graal :
Open cdg.FileName For Binary As #1
buffer = String(LOF(1), 0)
Get #1, , buffer
Put #1, 1, Replace(buffer,"VB6FR.DLL" & vbnullchar & vbnullchar & vbnullchar,"MSVBVM60.DLL")
Close #1
Je ne l'ai pas testé, je n'ai pas VB6 sur ce poste, mais cela devrait fonctionner. A condition que la fonction replace (VBA) soit présente dans ton VB.
A+
Posté le :
12/02/2004 21:53:51
Déposé sur
Remenber vb 2.0.0b
Salut,
Il y a de bonnes idées dans ton code, et quelques défauts. Mais j'aime bien son principe et je te (vous, puisque vous êtes deux) propose une idée suplémentaire.
Un des défauts est lié aux problèmes de codification des lignes VB dans un fichier ini. Si je veux saisir une routine avec des retours chariots, des signes égal plein les lignes et autres codes.. ton programme ne fonctionne plus (ou mal). Aussi voici ce que je te propose :
J'ai posté sur vbfrance un source avec le codage/décodage de texte en Base 64 : source 16830, lien: http://www.vbfrance.com/code.aspx?ID=16830
Il est très optimisé et permet de coder en chaine de caractères lisibles toute chaine de texte.
Ainsi, voici un exemple de ligne dans ton fichier ini
Avant :
Aller à la ligne=& Chr(13) & Chr(10)
Après :
Aller à la ligne=Q2hyKDEzKSAmIENocigxMCk=
Le (ou les) sigle égal à la fin ne dérange pas la lecture de la ligne.
Pour le codage décodage, dans mon source tu utilisera Decode64 et Encode64. Les fonctions hash_string, ReadFile et WriteFile peuvent être retirées.
L'insertion dans ton code peut, entre autres, se situer à cette ligne :
Retenir = LectureIni
Que tu changerai en
Retenir = Decode64(LectureIni)
Dernier avantage (et celui là est immense ) : un fichier codé en Base64 passe dans le Net sans être déformé. On peut donc envoyer un mail (ou ftp) avec un fichier codé sans qu'Internet ne le déforme.
A+
Bigane
Posté le :
20/10/2003 10:09:06
Déposé sur
Coder decoder fichier en base-64 pour transmission en format ...
merci,
fais en bon usage.
Et fais moi un mail quant ton projet spam-remover sera prêt.
A+
Posté le :
06/10/2003 18:18:16
1
2
3
4
5
Nos sponsors
Derniers Blogs
TECHDAYS 2010 GENèVE : RETROUVEZ-MOI POUR UNE SESSION SUR LA HAUTE DISPONIBILITé ET LE SCALEOUT AVEC SQL SERVER
TECHDAYS 2010 GENèVE : RETROUVEZ-MOI POUR UNE SESSION SUR LA HAUTE DISPONIBILITé ET LE SCALEOUT AVEC SQL SERVER
par christian
Eh oui, cette année j'ajoute une corde de plus à mon arc concernant les conférences que je vais animer. Direction la Suisse Romande pour ses TechDays qui ont lieues à Genève. Pour ma part je vous donne Rendez-Vous le 14 avril à 14h45 pour la sess...
Cliquez pour lire la suite de l'article
par christian
[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA
[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA
par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article
par cyril
CERTIFICATIONS BETA .NET 4
CERTIFICATIONS BETA .NET 4
par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article
par KooKiz
[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2
[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2
par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article
par redo
LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!
LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!
par MPOWARE
Toutes les vidéos de ce lancement sont en ligne! Partie I - Intro http://www.youtube.com/watch?v=LkQzTQ8T6CA Partie II - Démo 1 http://www.youtube.com/watch?v=drAhYQ7lqvo Partie III - Démo 2 http://www.youtube.com/watch?v=c8KM_1Gqybc...
Cliquez pour lire la suite de l'article
par MPOWARE
La suite
RSS
Côté IT
A la découverte de la console d?administration de Team Foundation Server 2010
A la découverte de la console de configuration de Team Foundation Server 2010
A la découverte du programme d?installation de Team Foundation Server 2010
Empècher Windows de créer les fichiers THUMBS.DB
Nettoyage de disque sans compression
Comment faire un CD bootable depuis Nero 7
Modifier la liste des valeurs proposées par le champ Assigned To dans les Elements de travail de ...
La suite
RSS
Offres d'emploi
Recherche Développeur SharePoint
Recherche Développeur web
Recherche DEVELOPPEUR WEB PHP/MYSQL/JAVASCRIPT EN ALTERNANCE/STAGE (H/F)
Recherche DEVELOPPEUR WEB PHP/MYSQL/JAVASCRIPT SENIOR (H/F)
Recherche Développeur web PHP polyvalent
Recherche Ingénieur d'études .NET
Recherche Webmaster
Déposer une offre
La suite
RSS
Formations Video
Cinema 4D par la pratique
Techniques avec Photoshop : correction des couleurs
Créer son blog avec WordPress
Montage photo : Vacances au ski
Retouche beauté : Mister Bad Boy
After Effects CS4 pour les utilisateurs de Photoshop
Final Cut Pro 7 : les fondamentaux
La suite
RSS
Appels d'offres
plaquette - logo
Budget :
350€
Gestion clientele JEE
Budget :
500€
URGENT Travaux PAO iWork 09 arabe hebreu anglais captures ecran
Budget :
400€
La suite
RSS
Logiciels
Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)
Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...
Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)
Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...
Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)
Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...
Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)
Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...
Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)
c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...
Cliquez pour télécharger Rigs of Rods
+ de logiciels à télécharger
Vidéos drôles
Banana Song
Foot féminin
Maman, j'aime pas mamie
Comment attraper la grippe A
Parodie Pub Window 7
Daft Bodies - Harder Better Faster Stronger
Royal Fuhrer
La suite
RSS
Sondage...
Votre navigateur n'utilise pas le javascript, pour
voter aux sondages de ce site, cliquez ici
Statistiques
1 623 103
membres
74
nouveaux aujourd'hui
15 510
membres club
Comparez les prix
iPod nano 5ème génération Orange (8 Go)
Entre 129€ et 150€
Visiter le guide achat
CalendriCode
Mars
2010
L
M
M
J
V
S
D
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
28
29
30
31
Consulter la suite du CalendriCode
Photothèque
Visiter la photothèque
CS Tool Box