Discussion :

[jbaudin]

Bonjour à tous !
Je veux initialiser une chaîne de caratères qui contient une requête SQL à passer à un DoCmd.RunSQL

Mais voilà, ma chaîne est d'une longueur supérieur à 255 caratères et ma variable de type STRING ne peut apparement pas contenir + de 254 caratères.
Pourant dans l'aide de Access 2003, il est marqué :

String
(longueur variable) 10 octets + longueur de la chaîne 0 à environ 2 milliards

Mais aussi :

String
(longueur fixe) Longueur de la chaîne 1 à environ 65 400

Comment faire une déclaration de variable de type String avec une longueur variable et profiter de ces 2 milliard de caractères ??????

Merci !
[/quote]

[Tofalu]

Dim Variable As String

sera largement suffisant Et par défaut, elle est à longueur variable

[jbaudin]

Tu penses bien que ça c'est déjà fait !!!
D'autant plus que je mets systématiquement Option Explicit en haut de chaque module!!

Apparement, je ne suis pas le seul à avoir ce type de prb :
http://www.developpez.net/forums/vie...tring+longueur

[Tofalu]

Attention c'est la propriété RowSource qui est limité, pas la variable String !!!

[jbaudin]

Alors pourquoi dans la fenêtre Variables locales, je n'ai pas ma chaîne en entière mais bien tronquée à 254 caractères ?

[jbaudin]

Ah ben voui t'as raison, si je fais un msgbox strSQL, j'ai bien ma requête en entière.
Du coup comment faire ???
Va falloir que je scinde en 2 ma requête ?
Une avec INSERT et une autre avec UPDATE ?
C'est du délire !!!

[Tofalu]

C'est pourquoi faire ?

[fdraven]

Tu peux peut-être enregistrer la requête via DAO pour contourner le problème.

[random]

je ne vois pas le problème
spécifications requêtes
Nombre de caractères d'une instruction SQL environ 64 000
Les chaînes de longueur variable peuvent contenir environ 2 milliards (2^31) de caractères.
as tu essayé d'ajouter une querydef avec ton code et de la lancer ?

[jbaudin]

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
            strSQL = "INSERT INTO " & Mid(strNomFichier, 1, InStrRev(strNomFichier, ".")) & " (CLIIDCLI, CLICODCL, CLINOMBR, CLISIGCA, CLICALLE, CLITELEF, CLIDIRER, CLICODPO, CLICIUPR, CLINACIO, CLIDMOAD, CLICOPFA, CLIFILIA, CLITIPCL, CLIFALTA, CLIFBAJA, CLINUREL, CLIRAMA, CLICUENT, CLICARTE, CLIFACTU, CLISBAJA, "
            strSQL = strSQL & "CLITIIVA, CLILIMCR, CLISIGCE, CLINIF12, CLIATENC, CLILMIVA) "
            strSQL = strSQL & "VALUES (""" & strLigne(1) & """ , """ & strLigne(2) & """ , """ & strLigne(3) & """ , """ & strLigne(4) & """ , """ & strLigne(5) & """ , """ & strLigne(6) & """ , """ & strLigne(7) & """ , """ & strLigne(8) & """ , """ & strLigne(9) & """ , """ & strLigne(10) & """ , """ & strLigne(11) & """ , """ & strLigne(12) & """ , """ & strLigne(13) & """ , """
            strSQL = strSQL & strLigne(14) & """ , """ & strLigne(15) & """ , """ & strLigne(16) & """ , """ & strLigne(17) & """ , """ & strLigne(18) & """ , """ & strLigne(19) & """ , """ & strLigne(20) & """ , """ & strLigne(21) & """ , """ & strLigne(22) & """ , """ & strLigne(23) & """ , """ & strLigne(24) & ""","""
            strSQL = strSQL & strLigne(25) & """ , """ & strLigne(26) & """ , """ & strLigne(27) & """ ,""" & strLigne(28) & """);"
            MsgBox strSQL
 
            DoCmd.RunSQL strSQL

Dans la MsgBox, j'ai bien ma requête en entière, mais pas dans la fenêtre des variables locales.

[random]

essaye d'abord MsgBox strSQL len(stsql)
tu verras bien
ensuite mets strsql en variant réessaye

[fdraven]

j'ai l'impression que ta requête est erronée à cause des " " " qui entourent tes zones de textes. Essayes ça :

Code :

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

1
2
3
4
5
strSQL = "INSERT INTO " & Mid(strNomFichier, 1, InStrRev(strNomFichier, ".")) & " (CLIIDCLI, CLICODCL, CLINOMBR, CLISIGCA, CLICALLE, CLITELEF, CLIDIRER, CLICODPO, CLICIUPR, CLINACIO, CLIDMOAD, CLICOPFA, CLIFILIA, CLITIPCL, CLIFALTA, CLIFBAJA, CLINUREL, CLIRAMA, CLICUENT, CLICARTE, CLIFACTU, CLISBAJA, " 
            strSQL = strSQL & "CLITIIVA, CLILIMCR, CLISIGCE, CLINIF12, CLIATENC, CLILMIVA) " 
            strSQL = strSQL & "VALUES (" ' " & strLigne(1) & "'" , "'" & strLigne(2) & "'" , "'" & strLigne(3) & "'" , "'" & strLigne(4) & "'" , "'" & strLigne(5) & "'" , "'" & strLigne(6) & "'" , "'" & strLigne(7) & "'" , "'" & strLigne(8) & "'" , "'" & strLigne(9) & "'" , "'" & strLigne(10) & "'" , "'" & strLigne(11) & "'" , "'" & strLigne(12) & "'" , "'" & strLigne(13) & "'" , "'" 
            strSQL = strSQL & strLigne(14) & "'" , "'" & strLigne(15) & "'" , "'" & strLigne(16) & "'" , "'" & strLigne(17) & "'" , "'" & strLigne(18) & "'" , "'" & strLigne(19) & "'" , "'" & strLigne(20) & "'" , "'" & strLigne(21) & "'" , "'" & strLigne(22) & "'" , "'" & strLigne(23) & "'" , "'" & strLigne(24) & "'","'" 
            strSQL = strSQL & strLigne(25) & "'" , "'" & strLigne(26) & "'" , "'" & strLigne(27) & "'" ,"'" & strLigne(28) & "'");"

[Tofalu]

Oui, car la fenêtre d'espion tronque une partie. Mais ta variable contient bien tout. Donc pas d'erreur à priori

Un truc me chiffone .. tous tes champs sont de type texte ?

[jbaudin]

Oui ils sont tous de type texte.
Voici le message d'erreur lorsque le pas ç pas passe sur DoCmd.RunSQL strSQL :

Erreur d'éxécution 3450
Erreur de syntaxe dans la requête.
La clause de la requête est incomplète.

Si je clique sur aide :

Erreur de syntaxe dans la requête. La clause de la requête est incomplète. (Erreur 3450)
Cette erreur se produit lorsque vous essayez de sauvegarder une requête enregistrée (vue ouprocédure).

[jbaudin]

Laisse tomber, je suis (encore) un neuneu de bas étages !!

J'ai pas construit mon nom de table comme il faut :

Code :

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

Mid(strNomFichier, 1, InStrRev(strNomFichier, "."))

Il faut :

Code :

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

Mid(strNomFichier, 1, InStrRev(strNomFichier, ".") - 1)

Sinon, le nom de ma table comprend un point (je récupére le nom du fichier comme nom de ma table).
Maintenant, ça fonctionne bien.

Merci à vous tous d'avoir essayé de trouver la solution, pardonnez moi d'avoir pris sur votre temps si précieux pour des clopinettes !