pb avec requête sql max

Version imprimable

3 pièce(s) jointe(s)

bonjour
je suis embêté avec mes requêtes sql en vba

quand j’exécute la requêtes sql max, elle me retourne toujours 9 alors qu'il y a le chiffre 10 dans la base(voir capture d'écran)
je suppose que c'est parce que ce sont des valeurs texte et pas numérique?

comment forcer un enregistrement en valeur numérique dans la base (fichier excel)?
ou
comment procéder autrement?

Pièce jointe 522686

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
Public cn, rst As Variant
 
 
Sub Sql()
 
 
'Connection
Set cn = New ADODB.Connection
With cn
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\base de donnée.xlsb" & ";Excel 12.0;HDR=YES"
 .Open
End With
'Définit la requête.
Set rst = New ADODB.Recordset
 
 
'définition de la requette sql( récupération du dernier n° de feuille atdec)
TexteSQL_N_d_archivage = "SELECT max(test1)FROM [bdd$]"
 
'Ecrit le résultat de la requête feuille atdec sélectionnée dans la cellule
Set rst = cn.Execute(TexteSQL_N_d_archivage)
ThisWorkbook.Worksheets("feuil1").Range("a1").CopyFromRecordset rst
 
'ajout d'un numéros de feuille atdec
ThisWorkbook.Worksheets("feuil1").Range("a1") = ThisWorkbook.Worksheets("feuil1").Range("a1") + 1
 
'définition de la requette sql
TexteSQL_archivage_gamme_de_tri = "INSERT INTO [bdd$] (test1) VALUES (" & ThisWorkbook.Worksheets("feuil1").Range("a1") & ")"
 
'met à jour ajout d'une gamme de tri dans la base
cn.Execute TexteSQL_archivage_gamme_de_tri
 
 
'close
cn.Close
Set cn = Nothing
 
 
 
End Sub

08/12/2019, 14h34
78chris

Bonjour

Pourquoi le BDD contient-elle du texte ?

Un texte n'a ni maxi ni mini...

Si tu tu donnais davantage d'info sur le contexte réel ?

D'autant qu'avec 2016, tu as peut-être davantage intérêt à utiliser PowerQuery que ADO
08/12/2019, 14h37
monfiston

Je pense que oui, c est bien ca le pb
Mais comment faire pour que les valeurs sont numériques, j ai des en tete sur chaque colonne, voir fichier joint
08/12/2019, 14h37
tototiti2008

Bonjour à tous,

Citation:

Un texte n'a ni maxi ni mini

si, en alphanumérique, "9">"10'
08/12/2019, 14h47
78chris

Re tous

Citation:

Envoyé par tototiti2008

Bonjour à tous,

si, en alphanumérique, "9">"10'

Mais mais max sur ces 2 textes donne 0 de même que min (et encore dans EXcel cela dépend comment les données sont saisies...)

Citation:

Envoyé par monfiston

...
Mais comment faire pour que les valeurs sont numériques, j ai des en tete sur chaque colonne, voir fichier joint

Aucun rapport entre l'en-tête et le type de données

Et tu ne réponds toujours pas aux questions posées...
08/12/2019, 15h59
monfiston

Je veux bien, mais je ne comprends pas la question?
C est pour çà que j ai mis mes fichiers dans le 1 post

Je ne sais pas enregistrer une valeur numérique dans une base de donnée Excel en sql!!
08/12/2019, 16h52
monfiston

Citation:

Envoyé par 78chris

Bonjour

Pourquoi le BDD contient-elle du texte ?

Un texte n'a ni maxi ni mini...

Si tu tu donnais davantage d'info sur le contexte réel ?

D'autant qu'avec 2016, tu as peut-être davantage intérêt à utiliser PowerQuery que ADO

malheureusement, je ne peux pas, car certain pc fonctionne avec 2016, d'autre avec 365 et d'autre sous 2013
08/12/2019, 19h40
mercatog

Code:

"SELECT MAX(test1*1) FROM [bdd$]"
08/12/2019, 19h44
monfiston

parfait, merci, ça fonctionne
il y a un moyen sinon d'enregistrer directement dans la base de données en numérique?
09/12/2019, 08h40
monfiston

du coup ça sert à quoi de mettre les valeurs que l'on veut enregistrer dans la base entre les apostrophes?

Code:

TexteSQL = "INSERT INTO [bdd$] (test1) VALUES (' " & ThisWorkbook.Worksheets("feuil1").Range("a1") & ' ")"

Bonjour

Pour écrire dans un classeur fermé le type de données est imposé par les données précédentes, en général si je ne me trompe pas 8 lignes.
Pour pallier à ça, mets le chiffre 0 dans la ligne 2 de ta base de données (juste en dessous de la ligne des titres. Tu peux éventuellement cacher cette ligne.

Ensuite on ajoute au ConnectionString le MAXSCANROWS=1

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
Sub Sql()
Dim TexteSQL_N_d_archivage As String, TexteSQL_archivage_gamme_de_tri As String
Dim Cn As Object, Rst As Object
Dim Nb
 
'Connection
Set Cn = CreateObject("ADODB.Connection")
With Cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\base de donnée.xlsm" & ";Excel 12.0;HDR=YES;MAXSCANROWS=1"
    .Open
End With
'Définit la requête.
'définition de la requette sql( récupération du dernier n° de feuille atdec)
TexteSQL_N_d_archivage = "SELECT MAX(test1)FROM [bdd$]"
 
'Ecrit le résultat de la requête feuille atdec sélectionnée dans la cellule
Set Rst = CreateObject("ADODB.Recordset")
Set Rst = Cn.Execute(TexteSQL_N_d_archivage)
Nb = Rst.GetRows
Rst.Close
Set Rst = Nothing
 
'définition de la requette sql
TexteSQL_archivage_gamme_de_tri = "INSERT INTO [bdd$] (test1) VALUES (" & Nb(0, 0) + 1 & ")"
'met à jour ajout d'une gamme de tri dans la base
Cn.Execute TexteSQL_archivage_gamme_de_tri
'close
Cn.Close
Set Cn = Nothing
End Sub

PS, j'ai utilisé GetRows de Rst

09/12/2019, 11h43
Thumb down

Citation:

Envoyé par monfiston

bonjour,
en fait ça sert à mettre du texte dans un champ texte, pour des numérique on ne mettra pas d'apostrophes!

mais comment s'avoir si c'est un champ texte ou un numérique,date etc... vue que c'est ADO qui fige par apprentissage sur 8 ligne comme précisé par mercatog,sur un fichier vierge!

en fait par défaut tout est texte tu ne peux en aucun cas partir d'un fichier ou seul figure les entête de colonne! il te faut prévoir une ligne perdu!

il en va de même pour les champs texte de plus de 255 caractères!

comme le dit Clément Marcotte Excel n'est pas une SGBD!
09/12/2019, 11h45
monfiston

ok, merci je comprend mieux
09/12/2019, 19h30
monfiston

Citation:

Envoyé par mercatog

Code:

"SELECT MAX(test1*1) FROM [bdd$]"

tu n'aurais pas la même astuce, sur une base Access?
car je ne veux pas modifier la base Access;)
09/12/2019, 21h47
mercatog

Tu fais ta requête dans Access. Tu auras le SQL correspondant
09/12/2019, 23h10
monfiston

J ai pas compris
10/12/2019, 00h19
mercatog

Tu sais réaliser une requête dans Access à l'aide de l'assistant?
Après construction tu auras le SQL.