Discussion :

[noname]

Le code si dessous est sensé lire dans un fichier une liste (se son des pays) et les mettres dans Mysql mais pour une réson que j'ignore au 49eme pays j'ai une erreur "guillemet droit manquant".

Si quelqu'un voie se qui fait buguer mersi d'avance pour sa solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
void __fastcall TForm_accueil::Button_ModifierClick(TObject *Sender)
{
    double temps=timeGetTime();
 
    String pays;
    char *fichier;
    int lon=194,numero;
 
    int FileHandle = FileOpen ("liste des pays sans la fin.txt", fmOpenRead);
 
    if (FileHandle >= 0 )
   {
        int FileSize   = FileSeek (FileHandle, 0, 2);
        FileSeek( FileHandle,0,0 );
 
        fichier = new char[FileSize+1];
 
        FileRead(FileHandle, fichier, FileSize); //lecture du fichier
 
        FileClose (FileHandle);
    }
 
    String Stfichier=AnsiString(fichier);
    int i=0,pivo=0;
    int NbCaract = Stfichier.Length();
    bool test=false;
    bool Sortie=false;
 
    for(numero=0;numero<=lon;)
   {
        do 
        {
            test=Stfichier.IsDelimiter("\n", i);
            if (test == true )
            {
                pays = Stfichier.SubString( pivo+1,i-pivo-2 );
                pivo=i;
                Sortie=true;
            }
            i++;
        }while( Sortie != true && i <= NbCaract);
 
        numero++;
 
            Query1_MIL->Close();
            Query1_MIL->SQL->Clear();
            Query1_MIL->SQL->Add("INSERT INTO pays(Numero,Liste_Pays)"
                                 " VALUES ( '"+AnsiString(numero)+"','"+pays+"')");
            Query1_MIL->ExecSQL();
            test=false;
            Sortie=false;
 
    }
 
    delete [] fichier;
    double temps2=timeGetTime();
    Label_temps->Caption=AnsiString(temps2-temps);
}

[Shakram]

regarde si ton 49eme pays comporte une apostrophe, dans ce cas il faudrait soit la doubler avant de faire ta requête, soit dans ta requête délimiter tes noms de payes par des guillemets à la place d'apostrophe, pour ce faire il faut utiliser le caractère d'echappement '\' .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Query1_MIL->SQL->Add("INSERT INTO pays(Numero,Liste_Pays)" " VALUES ( \""+AnsiString(numero)+"\",\""+pays+"\")");

[noname]

Merci le code que tu ma donnée à résolut le probléme.

[ChMerlier]

Bonjour,

2 petites choses :
La premiére -> j'utilise un stingreplace pour doubler mes guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
StringReplace(strBuffer, "'", "''", TReplaceFlags() << rfReplaceAll)

Mon champ reste donc identique à ce que je veux faire.

La deuxieme -> tu ajoutes dans la base 1 enregistrement à la fois.
Pour ma part, j'utilise une base MySQL pour une application ou je dois ajouter des milliers d'enregistrements (voire des millions) et je les ajoute par paquet de 500.
En fait, ma requete est contruite dans la boucle de lecture et tous les 500 records, elle part vers le serveur.
C'est sans commune mesure au niveau vitesse.