Alphajet Faites le vous-même! | Bonjour,
Avant tout, j'ai utilisé la fonction recherche, mais elle me renvoyait des résultats dans toutes les catégories, et pas seulement VB/VBA/VBS...
J'ai une portion de code qui crée des requêtes INSERT INTO et les exécute à la suite. La requête est créée dans une String. Mon problème est que la fin de cette requête est tronquée, d'où l'impossibilité d'insertion dans la base.
Je ne comprends pas, elle a l'air d'être tronquée a quelques centaines de caractères (+ de 500) lorsque je fais afficher ma requête.
Quelle est la taille maximale d'une String? Et d'une requête dans Access ? J'ai lu que c'était beaucoup plus que 255 caractères, donc j'imagine que je problème doit venir d'ailleurs!
Code :
- 'Insertion des données dans la table Country
- ImportLoop
- MsgBox ("test:" & TabCountry(0, 23))
- For i = 0 To 240
- sql2 = "INSERT INTO tbl_Country (Id_Country, Name_Country, ISOCode_Country, Population_Country, GDP_Country, GDPHab_Country, GDPGrowth_Country, Inflation_Country, Capital_Country, Map_Country, Flag_Country, Area_Country, NameRegion_Country, NameContinent_Country, CoastLine_Country, Language_Country, Time_Country, Religion_Country, Density_Country, Government_Country, GovernmentType_Country, NaturalRessources_Country, Importation_Country, Exportation_Country, Ports_Country, File_Country) "
- sql2 = sql2 & "VALUES ('" & TabCountry(i, 0) & "', '" & TabCountry(i, 1) & "', '" & TabCountry(i, 2) & "', " & OrNull(TabCountry(i, 3)) & ", " & OrNull(TabCountry(i, 4)) & ", " & OrNull(TabCountry(i, 5)) & ", " & OrNull(TabCountry(i, 6)) & ", " & OrNull(TabCountry(i, 7)) & ", '" & TabCountry(i, 8) & "', '" & TabCountry(i, 9) & "', '" & TabCountry(i, 10) & "', " & OrNull(TabCountry(i, 11)) & ", '" & TabCountry(i, 12) & "', '" & TabCountry(i, 13) & "', " & OrNull(TabCountry(i, 14)) & ", '" & TabCountry(i, 15) & "', '" & TabCountry(i, 16) & "', '" & TabCountry(i, 17) & "', " & OrNull(TabCountry(i, 18)) & ", '" & TabCountry(i, 19) & "', '" & TabCountry(i, 20) & "', '" & TabCountry(i, 21) & "', '" & TabCountry(i, 22) & "', '" & TabCountry(i, 23) & "', '" & TabCountry(i, 24) & "', '" & TabCountry(i, 25) & "');"
- MsgBox ("Req : " & sql2)
- dbs.Execute sql2
- Next i
- MsgBox ("Req : " & sql2)
- MsgBox ("Country table updated" )
|
Notes :
- La fonction OrNull remplace un champ vide par Null dans les champs qui sont des entiers dans la base
- La fonction ImportLoop remplit le tableau avec des valeurs récupérées dans un fichier Excel. J'ai vérifié, ces valeurs sont correctement entrées dans le tableau.
Message édité par Alphajet le 26-09-2006 à 10:14:17 ---------------
Bien joué! Mais une brique ne rend jamais les coups.
|