AccueilCodesTutorielsForumsEmploiLivresConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 05:37:03
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

43 commentaire(s) de bigane sur des sources sur tout CodeS-SourceS

Le : 25/02/2007 19:37:57
Source : COMMENT CRÉER UNE BASE ACCESS, CRÉER TABLE, LIRE COLONNE, EN QUELQUES LIGNES VB5-VB6
Merci,
a ton service et bon code.
a+
Bigane

Le : 02/07/2005 01:16:21
Source : COMMENT CRÉER UNE BASE ACCESS, CRÉER TABLE, LIRE COLONNE, EN QUELQUES LIGNES VB5-VB6
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+

Le : 02/05/2005 18:51:25
Source : COMMENT CRÉER UNE BASE ACCESS, CRÉER TABLE, LIRE COLONNE, EN QUELQUES LIGNES VB5-VB6
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


Le : 20/09/2004 19:12:18
Source : COMMENT CRÉER UNE BASE ACCESS, CRÉER TABLE, LIRE COLONNE, EN QUELQUES LIGNES VB5-VB6
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.


Le : 04/05/2004 19:38:30
Source : COMMENT CRÉER UNE BASE ACCESS, CRÉER TABLE, LIRE COLONNE, EN QUELQUES LIGNES VB5-VB6
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

Le : 12/02/2004 22:02:45
Source : 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 ...

Le : 12/02/2004 21:53:51
Source : COMMENT SE DÉBARRASSER DE VB6FR.DLL LIMITANT LA COMPATIBILITÉ DES APPLICATIONS VB?
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+

Le : 20/10/2003 10:09:06
Source : 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

Le : 06/10/2003 18:18:16
Source : CODER DECODER FICHIER EN BASE-64 POUR TRANSMISSION EN FORMAT TEXTE DANS UN MAIL
merci,
fais en bon usage.
Et fais moi un mail quant ton projet spam-remover sera prêt.
A+

Le : 11/09/2003 21:07:06
Source : CARLVB'S MINIPASCAL 2
Salut,

pour ma part j'ai fait un cheminement différent : j'ai détourné un compilateur en pascal pour en faire un décompilateur d'ASM vers du VB (il fonctionne, mais le résultat n'est pas satisfaisant).
Je me suis impiré de cet exemple :
http://custom.lab.unb.br/pub/compiler/howto/crenshaw-txt.zip
C'est un tutorial (en pascal) pour expliquer et comprendre le principe des analyseurs syntaxique et compilateurs. Si tu ne connais pas, je te promet que cela vaut le détour.
A+
Yves


1 2 3 4


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,094 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.