pb avec requête sql max

**monfiston** · 08/12/2019, 13h17

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?

Nom : capture d'écran.jpg
Affichages : 417
Taille : 35,6 Ko

Nom : capture d'écran.jpg
Affichages : 417
Taille : 35,6 Ko

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
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

**78chris** · 08/12/2019, 15h34

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

**monfiston** · 08/12/2019, 15h37

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

**tototiti2008** · 08/12/2019, 15h37

Bonjour à tous,

Un texte n'a ni maxi ni mini

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

**78chris** · 08/12/2019, 15h47

Re tous

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...)

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...

**monfiston** · 08/12/2019, 16h59

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!!

**monfiston** · 08/12/2019, 17h52

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

**mercatog** · 08/12/2019, 20h40

Code :

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

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

**monfiston** · 08/12/2019, 20h44

parfait, merci, ça fonctionne
il y a un moyen sinon d'enregistrer directement dans la base de données en numérique?

**monfiston** · 09/12/2019, 09h40

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

Code :

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

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

**mercatog** · 09/12/2019, 10h45

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 :

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
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

**Thumb down** · 09/12/2019, 12h43

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!