champs time mysql / Ado

Bonjour,

je pilote une base de données MySql depuis une appli VB6.
La connexion à la base de données est réalisé grâce à un controle Adodc
avec un pilote ODBC.
Lors de la création de nouvel enregistrement aucun problème !!!

Mon problème est le suivant.
lors de modification, si je change la valeur d'un champs de type Time
j'obtiens l'erreur suivante :
"La ligne n'a pas pu être trouvée pour la mise à jour. Certaines valeurs ont peut être changées depuis leur dernière lecture"

A noter que le champs Time est lu par Ado sous la forme
"AAAA-MM-DD HH:MM:SS" alors que dans PhpMyadmin il est sous la forme " HH:MM:SS"

Les changements des propriétés Cursorlocation et Cursortype n'ont apportés aucun effet.

merci de votre aide

si tu ne marque pas ton code ça va être dur de t'aider...

-- Pourquoi faire simple quand on peut faire compliquer --

Merci pour ta rapidité.
j'avais estimé que le code n'a aucun interet, ce dernier est d'un classissime
et en plus il marche parfaitement sous access/jet

'/////////////// dans le module /////////////////////////////
    Set ConPi = New ADODB.Connection
        ConPi.CursorLocation = adUseClient 'adUseServer
        StrMysqCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & MYSQLSERVER & ";PORT=3306;DATABASE=" & MYSQLDB_Agenda & ";USER=" & MYSQLUSER & ";PASSWORD=" & MYSQLPWD & ""
        ConPi.Open StrMysqCon
'/////////////// dans le module /////////////////////////////

Private Sub Planning1_HeureFixeDblClick()
    On Error GoTo fin
    Requete_Client = "select Id, Objet, Date_début, Heure_début, Date_fin, Heure_fin, " & _
    "Commercial, Observation, Famille, Imagefond, Nroaffaire, Rappelavant, Numéro_client, Type_planification, " & _
    "Heure_prochain_rappel, Adresse, Ville, Téléphone "

    Select Case Planning1.AgendaPlanning
    Case "Agenda", "Planning-commandes"
        frmAgenda.Show
        With frmAgenda.Adodc1
            .LockType = adLockPessimistic ' j'ai tenté de verrouiller içi sans succès
            .ConnectionString = ConPi
            .RecordSource = Requete_Client & " from agenda where id = " & frmplanning.Planning1.numero_document & ""
            .Refresh
        End With
        frmAgenda.txtobjet.SelStart = Len(frmAgenda.txtobjet.Text)
    Case "Planning-interventions"
        Rechercher_click Planning1.numero_document
    End Select
    Exit Sub
fin:
   Trape_Erreur Me.name, "Planning1_HeureFixeDblClick"
End Sub

excuse moi mais ce qui m'intéresse c'est ton update...

-- Pourquoi faire simple quand on peut faire compliquer --

voici la ligne ou se produit l'erreur

Private Sub Command1_Click()
    Adodc1.Recordset.Update 'ici
End Sub

cela me parait evident en te lisant,
que suggere tu au niveau de l'update
(d'ecrire la requete dans son intéralité en sql ?)

bon apéti on verra plus tard...

-- Pourquoi faire simple quand on peut faire compliquer --

t'as raison ........
j'en fais de meme...

bon ap.

ouai écris la directement pour voir ce que ça donne

-- Pourquoi faire simple quand on peut faire compliquer --