Discussion :

[Mickey34]

Bonjour
Je cherche un moyen d'alimenter des tables sous access de manière automatique (à l'aide d'un script, d'un module...ou de tout autre moyen comme oracle,...). Il faudrait que je rentre plus de 200.000 enregistrements et g pas envie de me le tapper à la mimine
Quelqu'un connaîtrait-il un moyen de le faire ?
Merci

[Keraccess]

Bonjour,

tu peux utiliser soit :

une requête create ou insert
soit
un recordset avec un boucle

et voilà

[Mickey34]

merci c bon, je passe par une boucle dans un module

Par contre y a t'il un moyen en VB de générer aléatoirement une string de 5 caractères par exemple ?

merci pour ton aide

[Admin]

bien sur !

tu veux quel format ?
tu veux une chaine de 5 caratères contenant les lettres de A à Z ?

[Mickey34]

ben en gros quelque chose comme ça :
generer_string(5) qui retournera "ABROX" (uniquement des caracteres)
et également :
generer_string(6) qui retournera "049365" (uniquement des entiers, il y a la fonction alea_entre_bornes(min,max) pour les entiers mais ça me pose des pb au niveau des 0 au début, donc je préfèrerai les ressortir sous forme string)

merci beaucoup

[Admin]

Bah voila alors :

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
 
Public Function genere_chaine(str As Boolean, nb_car As Integer) As String
Dim i As Integer
'initialisation du générateur aleatoire
Randomize
 
 
'si str = true alors on génére une chaine de X numérique
If str Then
    genere_chaine = Int(Rnd() * (10 ^ nb_car))
    'on ajoute les 0 Devant pour garder un nb de position égal à chaque fois
    genere_chaine = String(nb_car - Len(genere_chaine), "0") & genere_chaine
 
Else
    'sinon on génere une chaine de X alpha
    'le principe simple : generer une chaine numérique entre 1 et 26 puis de la convertir en char autant de fois que nb_car
    For i = 1 To nb_car
        ' on ajoute 65 car le premier caractère "A" à pour code 65
        genere_chaine = genere_chaine & Chr$(Int(Rnd() * 26) + 65)
    Next
 
 
End If
 
 
End Function

La fonction prends 2 arguments :
Str = True/False
True pour une chaine numérique
False pour une chaine Alphanumérique

et Nb_car pour le nb de position du retour

Dans ton exemple :

Pour la chaine numérique 6 positions :
genere_chaine (true,6)

Pour la chaine alpha 5 positions :
genere_chaine (false,5)

Et voila 8)

[Admin]

Petite précision :

Attention !

Quand tu fais genere_chaine (true,6) ca va te donner un nombre entre 000000 et 999999 et non entre 0 et 6...

(Je me suis piégé moi même c'est pour ça que je précise)

[Mickey34]

C'est parfait ça marche au poil !!! en plus j'arrive à comprendre
Merci beaucoup

[Admin]

Un petit Résolu ? :-D