Creer une dll activex

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.