Discussion :

[GreatTeacherOnizuka]

Bonjour,

Je définis chaine As String et je viens ensuite la remplir progressivement avec des données en VBA Access .

Tout se passe bien, jusqu'à ce que, je rajoute trop de données, je pense que ma chaine est coupée au bout de 255 caractères.

Car quand je supprime des caractère, ceux qui manquaient à la fin viennent se rajouter.

Cette chaine est censé être une requête SQL ensuite.

Savez vous s'il est possible d'enlever cette limitation ?

Merci d'avance.

[marot_r]

Bonjour.

Les chaînes de caractères (as string) peuvent contenir, de mémoire, environ 64000 caractères.

La limite de 255 caractères est sur les champs de type texte dans les tables.
Si tu as besoin de plus long, tu peux utiliser une champ mémo qui peut contenir, de mémoire, environ 64000 caractères.
Il arrive que le contenu d'un champ mémo soit coupé à 255 quand il est utilisé dans une requête de regroupement.

Il y a peut-être une erreur dans ton code, peux-tu le poster ?

A+

[GreatTeacherOnizuka]

Merci pour votre réponse, je vous envoie le morceau de code, mais je ne pense pas avoir fait d'erreurs.
Peut être que je me trompe?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim chaine_locale As String
chaine_locale=""
Do Until condition=False
If chaine_locale <> "" Then
               chaine_locale = chaine_locale & "," & "( " & Variable1 & " , " & local.Id & ", " & local.Id_2 & " , " & local.Cout & ", " & local.Equivalent & " )"
             Else
               chaine_locale = "( " & Variable1 & " , " & local.Id & " , " & local.Id_2 & ", " & local.Cout & ", " & local.Equivalent & ")"
              End If
 
...
 
Loop

Donc quand je suis en mode débogueur aucun soucis jusqu'ici:

Code :

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

1
2
3
4
5
If chaine_locale <> "" Then
     chaine_locale = "INSERT INTO ELEMENTS_DE_COUTS (Var1,Id_1 ,Id_2,Couts_Euros,Couts_2)VALUES " & chaine_locale & ";"
     Set Req_Compteur_Prestation = Db.CreateQueryDef("", chaine_locale)
    Req_Compteur_Prestation.Execute
 End If

Aucun soucis tant que chaine locale ne dépasse pas un certain nombre de caratères.

Sinon connaissez vous un moyen plus rapide (en temps d'exécution) pour exécuter des requêtes SQL ?

Merci en tout cas.