Soyez le premier à donner votre avis sur cette source.
Vue 5 721 fois - Téléchargée 785 fois
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
14 avril 2009 à 17:35
17 juin 2004 à 00:59
16 juin 2004 à 11:28
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.