Variables string limité à 255 caractères?

Version imprimable

Bonjour,

J'ai un petit soucis. J'ai cette boucle qui me permet de parcourir un fichier excel. A chaque personne trouver, il insère une valeur en plus dans la variable requete qui contient la future requete INSERT INTO. Je déclare ma variable requete en string, mais j'ai un petit problème, il ne mets pas toute les valeures, il me coupe a 255 caractère. Mais j'ai regarder dans l'aide, et c'est marqué qu'il peut contenir jusqu'à 2 milliard de caractère...

C'est bizarre. Est-ce que quelqu'un pourrait m'aider

Merci d'avance

Code:

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
 
'déclaration des variables de données
Dim requete As String
 
 
'création de l'objet excel
Set excel_application = CreateObject("Excel.Application")
' Définit le fichier EXCEL à ouvrir
Set excel_feuille = excel_application.Workbooks.Open(Application.CurrentProject.Path & "/fichier/2005.xls")
 
 
 
'rend l'application excel visible
'excel_application.Visible = True
 
 
 
Set base_de_donnee = CurrentDb
requete = "INSERT INTO tbl_temp_personne (nom_personne) values "
 
'boucle permettant de trouver la fin du fichier ainsi que d'insérer la liste des personnes dans la table tbl_temp_personne
While test_fin <> "ok"
    nombre_ligne = nombre_ligne + 1
    'If excel_application.Cells(nombre_ligne + 1, 1) = "" Then
    If nombre_ligne = "100" Then
        requete = requete & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "');"
        txt_test.Value = txt_test.Value & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "');"
        test_fin = "ok"
    Else
        'récupération du nom de la personne et création de la requete
         requete = requete & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "'),"
         txt_test.Value = txt_test.Value & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "'),"
        test_fin = "pas ok"
    End If
Wend
MsgBox (requete)

27/01/2006, 12h58
seacat

bonjour,

est ce le contenu de la variable qui est tronqué ou plutôt le contenu du champ dans la table?
27/01/2006, 13h10
krfa1

En fait la variable est bonne. Je m'explique. Si je fais un

Code:

txt_Test.value = requete

Il affiche toute la valeur de la variable.

Mais quand je fait

Code:

base_de_donnee.Execute requete

Il me marque

Code:

point virgule absent

Comme si il supportait pas une requete SQL de plus de 255 caractères

de cette façon tu n'arriveras pas car ton code SQL sera faux

procède ainsi

Code:

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
 
'déclaration des variables de données 
Dim requete As String 
Dim bd as database
Dim Rst as recordset
Dim Nombre_linge as integer
 
'création de l'objet excel 
Set excel_application = CreateObject("Excel.Application") 
' Définit le fichier EXCEL à ouvrir 
Set excel_feuille = excel_application.Workbooks.Open(Application.CurrentProject.Path & "/fichier/2005.xls") 
 
 
 
'rend l'application excel visible 
'excel_application.Visible = True 
 
 
 
Set Bd= CurrentDb ()
requete = "SELECT nom_personne FROM tbl_temp_personne ; " 
 
set RSt = BD.OpenRecordset(requete , dbOpenDynaset)
'boucle permettant de trouver la fin du fichier ainsi que d'insérer la liste des personnes dans la table tbl_temp_personne 
Nombre_ligne = 0
While test_fin <> "ok" 
    nombre_ligne = nombre_ligne + 1 
    'If excel_application.Cells(nombre_ligne + 1, 1) = "" Then 
 
    Rst.addnew
    Rst("nom_personne") = excel_application.Cells(nombre_ligne + 1, 5)  
    Rst.update
    If nombre_ligne = "100" Then 
        test_fin = "ok" 
    Else 
        'récupération du nom de la personne et création de la requete 
         test_fin = "pas ok" 
    End If 
Wend 
rst.close
'MsgBox (requete)

ceci fonctionnera mieux

27/01/2006, 14h18
krfa1

Mais le problème c'est que là j'ai 18407 enregistrement à insérer. Donc je vais à chaque fois faire un insert. Tandis que si je fait un insert into tbl_temp_personne (nom_personne) values (mavariable),(mavariable2),(etc...) et bien je vais faire qu'un seule requete. Ce sera plus rapide. Ou je me trompe?
27/01/2006, 14h49
Alexandre Sahli

Justement ta requête insert est fausse car tu devrais faire 18407 fois une requête "insert to"
donc impossible avec 1 seule requête!!

or dans mon code tu écris directeurement dans ta table temporaire pour reprendre tes noms
27/01/2006, 15h28
krfa1

Ah ouai, j'ai compris. Mais si j'ouvre deux recordset en même temps, il risque pas d'y avoir des problèmes?

Merci bien pour ton aide et bon week end
27/01/2006, 15h29
Alexandre Sahli

non aucun problème, tu peux même en ouvrir plus il faut cependant faire attention de les refermer
bon week end