Creer une dll activex

Soyez le premier à donner votre avis sur cette source.

Vue 5 721 fois - Téléchargée 785 fois

Description

Ceci est un code pour Créer une DLL ActiveX pour connexion à une BD Access

Source / Exemple :


Option Explicit

Private m_chaineDeConnexion As String

Private Sub Class_Initialize()
  m_chaineDeConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\maBase.mdb;" & _
  "Persist Security Info=False"
End Sub

Private Function makeConnexion() As ADODB.Connection

  Dim cnn As ADODB.Connection
  Set cnn = New ADODB.Connection
  cnn.Open m_chaineDeConnexion
  Set makeConnexion = cnn

End Function

Public Function getMaTable(table As String) As ADODB.Recordset

  Dim cnn As ADODB.Connection, rst As ADODB.Recordset

  Set cnn = makeConnexion()
  Dim sql As String
  sql = "SELECT * FROM " & table
  Set rst = New ADODB.Recordset
  rst.CursorLocation = adUseClient
  rst.Open sql, cnn, adOpenForwardOnly, adLockReadOnly
  Set rst.ActiveConnection = Nothing

  cnn.Close
  Set cnn = Nothing

  Set getMaTable = rst

End Function

Codes Sources

A voir également

Ajouter un commentaire Commentaires
PROTEUS91 Messages postés 156 Date d'inscription mardi 4 novembre 2003 Statut Membre Dernière intervention 28 décembre 2010
14 avril 2009 à 17:35
Quand on créer une DLL c'est pour ne pas avoir a recompiler 20 fois l'application... Tu mets tous dans une DLL mais tu n'utilise aucune variable, tu passes tout en dur, Intérêt ?
cs_hakim0 Messages postés 123 Date d'inscription mercredi 27 août 2003 Statut Membre Dernière intervention 12 août 2008 1
17 juin 2004 à 00:59
c'est pas la pai,n de crée une dll,... est en plus ton zip n'amarche pas! je ne sais pas
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
16 juin 2004 à 11:28
mouais.... tu auras fait un module, ce serait pas pire !

aucune propriété, impossible de soumettre ses propres requetes;
le chemin versla BDD est en dur, en plus !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.