Pb rapidité instructions SQL

Question

Bonjour &#224; tous,

Voila j'ai un probl&#232;me sur mon programme. Mon programme g&#232;re plusieurs base de donn&#233;es simultanement tout ca sur une meme feuille (elle contient environ 450 controles).
J'utilise un tabstrip pour visualiser les diff&#233;rentes "pseudo-feuilles"(se sont des picturebox dans lesquelles sont stock&#233;s les controles). 
J'utilise aussi Crystal Report pour l'impression, chaque base de donn&#233;e contient 2 tables, une o&#249; j'archive tous les bon de commande et l'autre que j'utilise pour imprimer, donc cette deuxieme table ne doit avoir qu'une seule ligne ou qu'un seul enregistrement afin de pouvoir imprimer qu'un seul bon de commande avec CR.
J'ai un bouton enregistrer qui me permet de copier la ligne de la table Imprimer &#224; la table d'archivage tout en supprimant la ligne dans la table Imprimer. mais si par m&#233;garde l'utilisateur ne l'enregistre pas et change d'onglet, alors la je fais ce code : 

Set db = OpenDatabase(App.Path & "\BonCmd.mdb")
db.Execute "DELETE * FROM Imprimer"

J'ai trois fois cette instruction pour trois base de donn&#233;e diff&#233;rentes, le probl&#232;me est que c'est extremement long, mon pc met pratiquement 10 secondes pour faire ces trois instructions, j'ai pu verifier que c'&#233;tait bien ces instructions l&#224; qui me faisait ralentir la b&#233;cane.
Si quelqu'un sait comment faire pour plus que ca rame, ou si vous avez une solution plus rapide que celle ci, merci d'avance.
Je suis en VB 6.0 sous XP SP2

Merci d'avance

cs_funseb · Answer

Salut,

Pour la rapadit&#233; d'execution des requ&#232;tes, il est recommand&#233; de travailler avec des proc&#233;dures stock&#233;es !! en fait les proc&#233;dures stock&#233;es sont gard&#233;es en m&#233;moire vive par le bi&#233; de ton SGBDR et sont donc &#233;x&#233;cut&#233;es plus rapidement ! Apr&#232;s je sais que sous SQL-server et Oracle ont peut en faire mais sous Access je pense pas (a verifier ) !

gaa179 · Answer

Salut,

Le plus simple, c'est de faire pointer ton rapport Crystal report sur la table qui contient toute les donn&#233;es. Ensuite, lorsque tu appelles ton rapport, tu place un filtre dans CR, qui s'execute directement dans le query sur le serveur.

Voici la syntaxe pour CR 8.5
Public Sub PrintFrm(ByVal ReportFile As String, WindowTitle As String, Optional RecordSelector As String, Optional PrintReport As Boolean False, Optional ReportHeader As Boolean False, Optional ExportEnable As Boolean = False, Optional ReportLandscape As Boolean = False)
On Error GoTo Err_Print
Dim crystal As New CRAXDDRT.Application
Dim Report As New CRAXDDRT.Report
Dim MyRsSubRep As New ADODB.Recordset
Dim StrSql As String


    Set Report = crystal.OpenReport(App.Path & "\Report" & ReportFile & ".rpt")
    If ReportHeader Then Report.ReportTitle = WindowTitle
    'S&#233;lection de l'imprimante
    If ReportLandscape Then Report.PaperOrientation = crLandscape
    
    If RecordSelector <> "" Then Report.RecordSelectionFormula = RecordSelector
    If PrintReport Then
            Report.ReadRecords
            Report.PrintOut
        Else
            'FrmPrint.Show vbModal
            With FrmPrint.CRViewer1
                .ReportSource = Report
                .ViewReport 'SHOW REPORT
                Do While .IsBusy 'ZOOM METHOD DOES NOT WORK WHILE
                    DoEvents 'REPORT IS LOADING, SO WE MUST PAUSE
                Loop 'WHILE REPORT LOADS.
                
                'Modification affichage
                .Refresh
                .Zoom 1
                .Top = 0
                .Left = 0
                .Height = FrmPrint.ScaleHeight
                .Width = FrmPrint.ScaleWidth
                .DisplayTabs = False
                .DisplayGroupTree = False
                .EnableExportButton = ExportEnable
                .EnableGroupTree = False
                .DisplayBackgroundEdge = False
                '.EnableSearchControl = False
                .EnableNavigationControls = True
            End With
            
            With FrmPrint
                .Caption = WindowTitle
                .Show vbModal
                .Refresh
            End With
    End If
    Set crystal = Nothing
    Set Report = Nothing


Exit Sub


Err_Print:
    Set crystal = Nothing
    Set Report = Nothing
    MsgBox Err.Description, vbCritical + vbOKOnly, "Impression"
End Sub

Remarque:

La variable RecordSelector doit avoir la syntaxe suivante:
"{FieldName} = " & value

A+

aieeeuuuuu · Answer

salut

tu te connecte a trois base de donn&#233;es differentes, c'est normal que ca soit long.

ce que tu peux faire, c'est cr&#233;er des tables liees dans une de tes bases qui pointent vers les tables necessaire dans les autre bases, comme ca tu ne te connecte qu'a une base qui va aller mettre a jour les autres.

je pense que ca sera plus rapide

Sniper_Vgaerr · Answer

Le truc c'est que pour aller chercher dans les base de donn&#233;e c'est rapide vu que je fait chercher que dans une seule base a la fois, lorsque je clique sur l'onglet bon de commande, je vais chercher dans la base de donn&#233;e BonCmd.mdb, mais c'est seulement quand je veux supprimer tous les champs d'un table qui mets un temps fou.
Merci pour tou vos commentaires .

cs_funseb · Answer

Dans ce cas l&#224; tu peux g&#233;rer des thread ! 
par exemple tu fais un count de ta table, et tu g&#232;re plusieurs requ&#232;tes ( 1 pour les 30 premi&#232;res lignes, 1 autre pour les lignes 31 &#224; 60 ...) et t'execute chaque requ&#232;te dans un thread diff&#233;rent !

aieeeuuuuu · Answer

ca ne sera pas plus rapide avec des threads, au contraire, c'est la base qui ralenti l'operation dans ce cas, donc si en plus tu lui rajoute des conditions pour ne supprimer que les n premieres, ca va etre encore plus long

par contre vu que tu supprime toutes les donn&#233;es de ta tables, t'as essay&#233; en supprimant la table et en la recreant (je ne pense pas qu'ACCESS accepte le TRUNCATE TABLE qui est pourtant tres rapide pour vider une table, mais qui suppose que tu n'es pas de clef etranger de d&#233;finie)

Sniper_Vgaerr · Answer

Re,

J'ai trouv&#233;, en fait j'utilise la librairie DAO 3.6 et c'est celle la qui me fait ramer, alors qu'avant j'&#233;tais sous DAO 3.51. Voila d'ou venait ce probl&#232;me de rapidit&#233;.
En tout cas merci &#224; tous pour vos solutions.
Merci

Pb rapidité instructions SQL

7 réponses

Discussions similaires