Insérer des caractères Unicode dans MySQL avec Delphi 2010

Question

Essayer d'insérer des valeurs avec des caractères Unicode dans une base de données MySQL en utilisant Delphi 2010 et TADOConnection sans succès.

Connexion avec ODBC

Provider=MSDASQL.1;Persist Security Info=False;Data Source=mysrc;Initial Catalog=mydb 

La commande SQL:

INSERT INTO myTable (aCol) VALUES('Russian: русский язык') 

Essayé insérer directement avec

TADOConnection.Execute(SQL) 

Il ne se termine que dans la base de données « russe: ?? ????? ???? "

également essayé la méthode proposée ici: http://www.3delite.hu/Object%20Pascal%20Developer%20Resources/delphiunicodemysqltutorial.html

 
With TADOQuery do 
    begin 
    SQL.Clear; 
    SQL.Add('INSERT INTO myTable (aCol) VALUES(:p)); 
    Parameters.ParamByName('p').DataType := ftWideString; 
    Parameters.ParamByName('p').Value := 'Russian: русский язык'; 
    ExecSQL; 
end; 

Faire cela dans le code ne fonctionne pas du tout pour moi, que si j'ajouter des paramètres dans designtime, mais il est toujours le même résultat dans la base de données avec des questions partout.

Answer 1

Il semble TADOConnection ne prend pas en charge Unicode, au moins je ne peux pas le faire fonctionner.

Si j'utilise à la place dbExpress TSQLConnection et TSQLQuery pour insérer dans la base de données cela fonctionne comme prévu. Mais je dois le faire avec des paramètres et non avec directement avec une commande INSERT

   with qTarget.Params.ParamByName('p' + IntToStr(i)) do 
       begin 
        DataType := ftWideString; 
        Value   := Fields[i].AsWideString; 
       end; 
       qTarget.ExecSQL; 

Answer 2

Je crois que ce script PHP exécute une requête SET NAMES utf8 premier