none
sauvegarde erroné des données avec ACCESS RRS feed

  • Discussion générale

  • bonsoir à tous

    (je travaille avec vb6)

    (est il possible de joindre des fichiers? si oui svp dites moi comment le faire et je vais joindre la figure mentionnée la-dessous le plus vite que possible)


    je fais des acquisitions des données (température) et je les mets dans une base de données; le code d'acquisition et de sauvegarde est le suivant

     

    Private Sub Timer1_Timer()

    Dim i As Integer

    tj = tj + 1

    Text2.Text = tj * milli

    Form9.Text2.Text = Text2.Text

    t1 = -aqc(0) 'lecture des données

    t2 = -aqc(1)

    t3 = -aqc(2)





     t4 = -aqc(3)

    t5 = -aqc(4)

    t6 = -aqc(5)

    t7 = -aqc(6)

    t8 = -aqc(7)

    'formules permettant de calculer les températures à partir des tensions (les ti;i=1..8 sont en volt)

    'tt(2) = -2 + t11(2) * (t1 - t12(2))

    'tt(3) = -1 + t11(3) * (t2 - t12(3))

    'tt(4) = -2 + t11(4) * (t3 - t12(4))

    'tt(5) = -1 + t11(5) * (t4 - t12(5))

    'tt(6) = -2.5 + t11(6) * (t5 - t12(6))

    'tt(7) = -1 + t11(7) * (t6 - t12(7))

    'tt(8) = -1 + t11(8) * (t7 - t12(8))

    'tt(9) = t11(9) * (t8 - t12(9))

    'pour que vous pouvez tester vous même ce problème, j'ai penser à simuler les courbes des température par la fonction log entachée d'un bruit aléatoire,
    'normalement vous aurez une chose comme la figure zippée ci-joint ou les pics anormales sont remarquables( l'affichage se fait avec delphi ayant meilleur objet mschart);
    tt(1) = Log(x) + Rnd * (-1) ^ tp ' x est initialisé à 0.5 et tp est initialisé à 1
    tt(2) = 2 * Log(x) + Rnd * (-1) ^ tp
    tt(3) = 3 * Log(x) + Rnd * (-1) ^ tp
    tt(4) = 4 * Log(x) + Rnd * (-1) ^ tp
    tt(5) = 5 * Log(x) + Rnd * (-1) ^ tp
    tt(6) = 6 * Log(x) + Rnd * (-1) ^ tp
    tt(7) = 7 * Log(x) + Rnd * (-1) ^ tp
    tt(8) = 8 * Log(x) + Rnd * (-1) ^ tp
    tt(9) = 9 * Log(x) + Rnd * (-1) ^ tp

    'affichage des températures en temps réel

    For i = 0 To 3

    dtPlotChart.SinglePoint = tt(i + 2)

    Form9.dtPlotChart.SinglePoint = tt(i + 6)

    Next

    'enregistrement dans la BD

    With MonRs

    .AddNew

    .Fields("TI1") = tt(1)

    .Fields("TI2") = tt(2)

    .Fields("TI3") = tt(3)

    .Fields("TI4") = tt(4)

    .Fields("TI5") = tt(5)

    .Fields("TI6") = tt(6)

    .Fields("TI7") = tt(7)

    .Fields("TI8") = tt(8)

    .Fields("TIREG") = tt(9)

    .Fields("Te") = Timer1.Interval

    .Fields("DAT") = Date

    .Update

    End With

    x=x+0.5



    tp=tp+1



     End Sub

    alors, mon problème est le suivant:
    durant l'affichage des températures je ne vois aucune variation anormale, mais lorsque j'arrête l'acquisition et visualise les courbes précédemment enregistrées je vois des variations anormales comme si les valeurs qui sont affichées en temps réels ne sont pas eux qui ont été enregistrées ce qui me fais penser que le problème a lieu lors de l'enregistrement.

    l'accès à la base se fait comme suit

     

    Dim Cnn1 As ADODB.Connection, MonRs As ADODB.Recordset

    Set Cnn1 = New ADODB.Connection



    Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ch

    Set MonRs = New ADODB.Recordset



    MonRs.CursorLocation = adUseClient



    MonRs.ActiveConnection = Cnn1



    MonRs.Open "SELECT * FROM ert", , adOpenStatic, adLockOptimistic, adCmdText





    autre chose ; access est-il limité en capacité (taille)
    Remarque; lorsque j'ouvre le fichier mdb avec Microsoft access il s'affiche "avertissement de sécuité du contenu de la base a été désactivé", cela peut-il avoir un rapport
    merci d'avance pour votre aide
    • Type modifié guefrachi lundi 12 avril 2010 22:45
    • Déplacé Alex Petrescu mardi 13 avril 2010 11:31 question de vb 6 (Origine :Visual Basic)
    lundi 12 avril 2010 21:39