AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • 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 2009 07 11 21:50:31
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 !

9 commentaire(s) de acecel sur des sources sur tout CodeS-SourceS

Le : 20/01/2006 10:46:25
Source : UN EFFET WATER SUR VOS IMAGES
Impressionant !
10/10 !

Le : 13/12/2005 16:38:08
Source : MODULE DE CLASSE : BASE DE DONNÉES ADODB
Salut
C'est exact, il serait plus judicieux d'utiliser plutôt :
"Select Case cTempdbType "
('Select Case dbType' fait appel à la méthode Get dbType, et par conséquent il vaut mieux utiliser la variable locale cTempdbType)

Et en effet, il ne faut pas oublier non plus d'ajouter la reférence Microsoft ActiveX Data Objects 2.8 Library.

Ce module de classe est vraimment tout bête, dans l'appli que j'avais développé, il permettait juste de ne pas avoir à modifier le code du programme si l'utilisateur souhaite changer le type de la base de donnée.

J'ai aussi volontairement utilisé le même nom que les fonctions standard de ADO (Execute et OpenRecordSet) ce qui limite le nombre de modifications à effectuer dans le programme.
(déclarer la base de donnée en "New ClsDatabase" au lieu de "DataBase", déclarer les recordsets en "New ADODB.Recordset" au lieu de "Recordset", et enfin définir les paramètres de connexion à la base de donnée)



Le : 13/10/2005 10:42:16
Source : MODULE DE CLASSE : BASE DE DONNÉES ADODB
Dans le programme

Pour Déclarer la base :

Dim pBase as New ClsDatabase



Pour Affecter les variables (dbPath, dbDriver...) :

pBase.dbType = "ACCESS"  ou pBase.dbType = "AUTRE"
pBase.dbPath = Mon_Chemin
...



Pour Ouvrir la connexion :

pBase.Connexion



Pour Ouvrir un recordset :

Set Recordset = pBase.OpenRecordset("Select * from..")




Pour Executer une requête SQL simple :

pBase.Execute "Update ..."



Pour Fermer la connexion :

pBase.Fermeture



Le : 12/10/2005 14:36:23
Source : CONNEXION ORACLE SANS ODBC
Je me suis permis de modifier/simplifier ta source selon mes besoins.
celle-ci permet maintenant de se connecter soit à une base Access, soit une autre base.

j'ai créé un type dans mon module normal :


********************************************************
Type ParamètreConnexionADODB
    Path As String
    Type As String
    Provider As String
    User As String
    Password As String
    DataSource As String
End Type
Public pdbParamètreConnexion As ParamètreConnexionADODB
********************************************************

pdbParamètreConnexion  contient donc tous les paramètres de connexion (qui sont définis dans le programme, et enregistrés dans la base de registre)

ce module de classe permet juste de renvoyer un recordset, ou exécuter une requete simple.

dans le programme il suffit de déclarer la base :
********************************************************
Public pdbArticle As cDataBase
Set pdbArticle = New cDataBase
pdbArticle.Connexion
********************************************************

et les recordsets :
********************************************************
Dim xrec1 As New ADODB.Recordset
set xrec1 = pdbArticle.OpenRecordset ("Select * from ..")
********************************************************

et pour fermer la base :
********************************************************
pdbArticle.Fermeture
********************************************************







Code à copier dans le module de classe : (cDataBase.cls)


Option Explicit

' /// Variables pour la Connexion ADODB /////////////////////////////////////////////////////////////////////////////////////////
Private pdbConnection As New ADODB.Connection
Private pdbRecordsetADO As New ADODB.Recordset


' /// Ouverture de la Base de Données /////////////////////////////////////////////////////////////////////////

Public Sub Connexion(dbPath As String)
On Error GoTo Connexion_Error

    Select Case pdbParamètreConnexion.Type
        Case "ACCESS"
            pdbConnection.Provider = pdbParamètreConnexion.Provider
            pdbConnection.ConnectionString = dbPath
            pdbConnection.Open
        Case "AUTRE"
            pdbConnection.Open "Provider=" & pdbParamètreConnexion.Provider & ";Password=" & pdbParamètreConnexion.Password & ";User ID=" & pdbParamètreConnexion.User & ";Data Source" & pdbParamètreConnexion.DataSource
    End Select
  
    On Error GoTo 0
    Exit Sub

Connexion_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Connexion dans Module de classe cDataBase", vbCritical
End Sub


' /// Envoi du RecordSet //////////////////////////////////////////////////////////////////////////////////////

Public Function OpenRecordSet(dbSQL As String, Optional dbOption) As ADODB.Recordset
On Error GoTo OpenRecordSet_Error

    If dbSQL <> "" Then
        pdbRecordsetADO.CursorLocation = adUseClient
        pdbRecordsetADO.CursorType = adOpenDynamic
        pdbRecordsetADO.LockType = adLockOptimistic
        pdbRecordsetADO.Open dbSQL, pdbConnection
        Set OpenRecordSet = pdbRecordsetADO
        Set pdbRecordsetADO = Nothing
    End If
    
  
    On Error GoTo 0
    Exit Function

OpenRecordSet_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure OpenRecordSet dans Module de classe cDataBase", vbCritical
End Function

' /// Exécution d'une Requête SQL /////////////////////////////////////////////////////////////////////////////

Public Sub Execute(xSQL As String)
On Error GoTo Execute_Error

    pdbConnection.Execute xSQL
  
    On Error GoTo 0
    Exit Sub

Execute_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Execute dans Module de classe cDataBase", vbCritical
End Sub



' /// Fermeture de la connexion avec la Base de Données ///////////////////////////////////////////////////////

Public Sub Fermeture()
On Error GoTo Fermeture_Error

    pdbConnection.Close
    Set pdbConnection = Nothing
  
    On Error GoTo 0
    Exit Sub

Fermeture_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Fermeture dans Module de classe cDataBase", vbCritical
End Sub

Le : 12/10/2005 09:09:48
Source : YOMMEXPLOREROCX POUR CE QUI VEULENT UN VRAI EXPLORATEUR WINDOWS
Ca a l'air pas mal!
Je n'ai pas encore eu le temps de regarder plus préçisement (j'en ai pas l'utilité pour le moment).
Mais je t'ai quand même noté 10/10.
;-)

Le : 08/07/2005 15:15:12
Source : MODELISEUR DE D'IMPRESSION
:-)

En fait j'ai crée un modèle par type de document (carte de visite / entete de lettre / Enveloppe..)
et je souhaitais pouvoir remplir ce modèle à partir de mon programme (remplacer NOM par TOTO , PRENOM par JEAN...)
et pour cela j'ouvre le fichier grâce à ta méthode Ouvre et je modifie le texte dans la ListeAtion.

J'ai essayé de passer par ta classe  clsSPR mais ca ne fonctionnait pas (erreur type utilisateur non reconnu..)
mais la façon dont je procède me convient trés bien :-)

Pour les etiquettes oui c'est trés simple, une simple boucle suffit (en gérant la position X Y)

;-)

Le : 08/07/2005 11:59:38
Source : MODELISEUR DE D'IMPRESSION
En fait c'est bon j'ai trouvé. et c'est tout bête. suffit de remplir la liste "ListAction", d'enregistrer ca dans le fichier avec la méthode "Sauve" et de lancer "ouvre" :-)

Franchement c'est excellent ton programme, ton code est propre. bravo encore !

Le : 08/07/2005 11:08:29
Source : MODELISEUR DE D'IMPRESSION
Par contre j'aimerais utiliser ton programme pour imprimer des cartes de visites..etc..
donc rentrer en paramètre les valeurs des champs(nom prenom adresse..)
j'ai essayé de créer un modele (fichier .spr) en mettant les intitullés des champs ("NOM" "PRENOM"..) et en les modifiant ensuite directement dans le fichier mais cela ne fonctionne pas.
Donc en clair aurais tu une idée pour me permettre de faire ce que je souhaite?
Créer un modele d'etiquette avec les intitulés des champs
et le modifier lorsque qu'on clique sur imprimer à partir d'une fiche en y mettant les valeurs des champs.

Merci d'avance.

Le : 07/07/2005 17:24:50
Source : MODELISEUR DE D'IMPRESSION
Bravo !
C'est pas mal du tout ce petit prog.
Je cherchais justement quelque chose du genre et ayant deja eu l'occasion d'imprimer des documents complexe en vb "à la main", je n'avais pas envi de recommencer... alors merci !



1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Samsung CLX-3175FN Color Laser All-in-One Printer Laser
Entre 372€ et 399€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo accident de la routePhoto femme, plage, bien être, soleil, vacances, été, détente, repos

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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,156 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é.