VB6, Window XP, mysql, ODBC 3.51, addnew = erreur 3027 (en lecture seulement)Résolu

Question

Bonjour,

Sur Window XP et une DB mysql 5.0.11 j'essai la transaction suivante
en VB6 et j'ai toujours la même erreur !! Erreur 3027 : En lecture seulement

Il semble avoir incompatibilité avec VB6 ! XP ou Mysql, j'en perd mon latin !!

Est-ce que quelqu'un peu m'aider à régler ce problème.

Merci

mip

============================
Private Sub Enregistrer_Nouveau()
Dim Inscrip As DAo.Recordset
Dim WS As DAo.Workspace
Dim DbCon As DAo.Connection
Dim StrCon As String


Set WS = DBEngine.CreateWorkspace("", "root", "michel", dbUseODBC)
StrCon = "odbc;DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=localhost;" _
                & "DATABASE=gess_data;" _
                & "UID=xxx;PWD=xxxx; OPTION=3"
Set DbCon = WS.OpenConnection("", dbDriverNoPrompt, False, StrCon)

Set Inscrip = DbCon.OpenRecordset("SYS_Users", dbOpenDynaset)
    Inscrip.AddNew                   ' < ===== erreur 3027 : En lecture seulement !*&?&?
        Inscrip!UserId = "12345"
        Inscrip.Update
    Inscrip.Close
    Set Inscrip = Nothing
End Sub
========================================================

TMONOD · Accepted Answer

Bonjour,
Tu devrais :
- Mieux "border" l'utilisation de ton recordset
if  not inscrip.eof then...


et pourquoi pas un .MoveFirst avant ton .AddNew


- vérifier les droits de ton utilisateur dans mysqlAdmin 

Jcbé[^]

miptechnologie · Answer

Bonjour Jcbé[^]

Merci de ta réponse, j'ai mieux "border" et j'ai toujours le
même problème.

Pour ce qui est des droits, mon utilisateur est présentement le "root"
avec tous les droits

Merci

mip

VB6, Window XP, mysql, ODBC 3.51, addnew = erreur 3027 (en lecture seulement)

2 réponses

Votre réponse

Discussions similaires