Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 16:06:41

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[VISUAL STUDIO 2010] LES TESTS CASES C'EST BIEN, MAIS JE VAIS DEVOIR TOUT RééCRIRE ? par Etienne Margraff

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par PCPT

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par sancho12345

RE : SOS REMPLISSAGE DE LISTVIEW ET TEXTBOX par PCPT

RE : SOS REMPLISSAGE DE LISTVIEW ET TEXTBOX par yabross

ENVOIE D'UNE IMAGE SANS PASSER PAR LE DISQUE DUR par hippo92210b

+ de logiciels à télécharger

1 464 277 membres
182 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 302 819 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

OUVERTURE D'UNE BASE DONNÉES AVEC L'INSTRUCTION PATH

Information sur la source

Catégorie :Base de Donnees Niveau : Initié Date de création : 04/11/2004 Vu : 6 521

Auteur : hourrane

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Ouverture de la base de données qui se trouve dans le même répertoire que l’application
Avantage : limite les difficultés rencontrés lors du changement du répertoire de l’application

Source

'************chemin de la base de données****
Dim str As String
If Right(App.Path, 1) = "\" Then
str = App.Path
Else
str = App.Path + "\"
End If
'Ouverture de la base de données "nom de la base des données"
Set db = OpenDatabase(str + " nom de la base des données ")

'************chemin de la base de données****
Dim str As String
If Right(App.Path, 1) = "\" Then
    str = App.Path
  Else
    str = App.Path + "\"
  End If
  'Ouverture de la base de données "nom de la base des données"
  Set db = OpenDatabase(str + " nom de la base des données ")

Conclusion

ce petit code banal est présenté pour répondre à un certain nombres de questions posés ds ce forum

Sources du même auteur

REQUÊTE POUR IMPRIMER UN ÉTAT CRYSTALREPORT DANS UNE BASE DE...

Toutes les sources de hourrane

Sources de la même categorie

GESTION DE VIDEOTHÈQUE par johndave

GESTIONNAIRE DE FICHIERS VIDEOS par jcslider

RECUPERER ET AFFICHER LES MESSAGES D'INFORMATION ET D'ERREUR... par braidas

GESTION DE BIBLIOTHÉQUE par smaili

GESTION DE VENTE AUTO par promarc

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de econs le 04/11/2004 22:07:24 administrateur CS

Le niveau 'Initié' est carrément usurpé.

Commentaire de Zoneur le 05/11/2004 04:02:49

Salut, je me pose une kestion ?

Pkoi faire ce code qu'il faut juste faire ..

GloBal Patch as string

on met ceci dans la sub load .. et puis stop .. sa sert a rien de controler (en tout cas sous vs6).

Patch = app.path & "\"

C'est vrais que 'Initié' c'est fort car méme ...

Commentaire de Akita95 le 16/05/2006 16:50:32

Salut :)

ConnectionString = App.Path & "\MaBase.mdb"

Es-tu sûr de ton "Patch" ?

Oui le niveau initié c'est marrant, on va dire que c'est une faute de click hein :-)

++

Commentaire de zakariaeyoub le 30/05/2007 13:25:25

comment je fais pour pauser une base de donnes d'une restauront?????

Commentaire de Iokus le 04/06/2008 08:20:49

bonjour
j'utilise r?guli?rement cette instruction "path"
n?anmoins si ma base de donn?e est s?curis?e par un mot de passe, y'a-t-il un moyen de le noter dans l'instruction, afin que mon programme puisse se connect? comme tout seul ?
merci