OPEN ACCESS MDB

Commentaire de PCPT le 06/08/2008 10:32:49 administrateur CS

salut,

pourquoi avoir choisi DAO?
ADO est plus approprié et ne nécessite pas non plus d'avoir Access sur sa machine, juste le MDAC

Commentaire de PCPT le 06/08/2008 10:57:11 administrateur CS

beh c'est pas bien ^^

ajoute ADOX : msadox.dll (Microsoft ADO Ext. 2.7 for DLL and Security)

Dim oCat As New ADOX.Catalog
Dim oTab As New ADOX.Table

oCat.ActiveConnection = mCnx 'nom de ta connexion ADO

For Each oTab In oCat.Tables
    If oTab.Type = "TABLE" Then Debug.Print oTab.Name
Next oTab

Set oTab = Nothing
Set oCat = Nothing

Commentaire de Patrice99 le 07/08/2008 10:13:33

Et VB6 ça tourne sous Linux ? curieux de voir ça !
Par contre DotNet devrait tourner sous Linux via Mono, voir par exemple :
ODBCDotNet : Extraire des requêtes ODBC dans un tableau de tableaux de String
www.vbfrance.com/code.aspx?ID=34701
Mais le problème, c'est de trouver un pilote ODBC pour Access sous Linux : dans tous les cas de figure, cela ne sera pas évident de lire une base Access sous Linux.

Commentaire de PCPT le 07/08/2008 12:58:37 administrateur CS

Patrice99 -> VB6 n'est pas trop l'ami de Linux, le nom du dossier en est souriant oui :)

asimengo -> pas vérifié mais me semble que IN de toute façon n'est pas connu d'Access (enfin tu me mets le doute maintenant ^^)
quant à filter en général on évite de l'utiliser en parallèle d'une requête déjà restrictive. habitude ou obligation...
je testerai à l'occas.
regarde ADO HELPER dans mes sources, çà peut peut-être te donner quelques pistes
++

Commentaire de asimengo le 07/08/2008 17:30:01

Je vais quand même donner le code que j'utilise pour cloner un recordset, il y'a 2 méthodes soit de Recordset à Recordset, soit de Commande à Recordset

'Copie les enregistrements de poRstSource dans poRstDestination
Public Function CloneRecordset(ByVal poRstSource As ADODB.Recordset, ByRef poRstDestination As ADODB.Recordset) As Boolean
On Error GoTo Err_CloneRecordset
Dim oFld As ADODB.Field, vBookmark As Variant

    Set poRstDestination = New ADODB.Recordset
    With poRstDestination
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        'Initialisation de la liste des champs
        For Each oFld In poRstSource.Fields
            .Fields.Append oFld.Name, oFld.Type, oFld.DefinedSize, oFld.Attributes
        Next oFld
        'Ouverture du recordset pour remplissage
        .Open
    End With
    
    'Remplissage du recordset
    'On peut
    With poRstSource
    'On peut aussi faire With poRstSource.Clone(adLockReadOnly), ainsi on ne s'embetera plus avec la gestion des bookmarks.
    'Mais je me suis demandé si ce n'était pas du temps perdu cette méthode, temps de Clone.
    'je ne me suis pas penché dessus pour voir les différences de vitesse.
        If .RecordCount <> 0 Then
            vBookmark = .Bookmark
            .MoveFirst
            Do While Not .EOF
                poRstDestination.AddNew
                For Each oFld In .Fields
                    poRstDestination.Fields(oFld.Name).Value = oFld.Value
                Next oFld
                poRstDestination.Update
                .MoveNext
            Loop
            .Bookmark = vBookmark
            poRstDestination.MoveFirst
        End If
    End With
    
    CloneRecordset = True

Exit_CloneRecordset:
    Exit Function

Err_CloneRecordset:
    MsgBox Err.Description
    Resume Exit_CloneRecordset
End Function

Public Function CloneCommandRecordset(ByVal psCommandText As String, ByVal puConnection, ByRef poRstDestination As ADODB.Recordset) As Boolean
On Error GoTo Err_CloneCommandRecordset
Dim oCnx As ADODB.Connection, oRst As ADODB.Recordset, bCloseConnection As Boolean

    If IsObject(puConnection) Then
        Set oCnx = puConnection
    Else
        Set oCnx = New ADODB.Connection
        oCnx.Open puConnection
        bCloseConnection = True
    End If
    
    Set oRst = New ADODB.Recordset
    With oRst
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        
        .Open psCommandText, oCnx, adOpenStatic
        'Clone le recordset oRst et met le contenu dans poRstDestination
        Call CloneRecordset(oRst, poRstDestination)
        'Ferme le recordset
        .Close
    End With
    CloneCommandRecordset = True

Exit_CloneCommandRecordset:
    Set oRst = Nothing
    If bCloseConnection Then oCnx.Close
    Set oCnx = Nothing
    Exit Function

Err_CloneCommandRecordset:
    MsgBox Err.Description
    Resume Exit_CloneCommandRecordset
End Function

Commentaire de PCPT le 07/08/2008 17:35:21 administrateur CS

euh....
un recordset possède une méthode '.Clone', elle ne te convient pas?

Commentaire de PCPT le 07/08/2008 18:01:49 administrateur CS

pour le clone, la MDSN conseille ces paramètres :
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic

Commentaire de PCPT le 07/08/2008 20:50:45 administrateur CS

asimengo -> par API je ne trouve rien...
va sans doute falloir boucler et mesurer. calcul par rapport à la font sans objet : http://www.vbfrance.com/code.aspx?ID=40299

mais regarde avant dans les sources, çà doit sans doute déjà exister...

sinon pour l'exemple MSDN, je pensais plus à l'ouverture de la source, pas de la destination :)

en revient que je ne vois pas le but, en quoi un clone va réduire ton traffic?

tout çà a tout de même peut-être plus sa place sur le forum que sur cette source non? quoi que ^^