Problème d'affichage partiel d'un recordset dans un listbox
Bonjour,
J'ai 2 userform, un premier qui donne des infos générales, et un second qui affiche le détail de la ligne sélectionnée dans le premier. Le détail est présent sur une base SQL Server et peut contenir plusieurs lignes.
L'idée est de permettre à un utilisateur de contrôler les lignes saisies. J'ai donc créé une connexion vers la base qui marche très bien. Le problème est que si je copie le recordset sur la feuille de calcul, j'ai bien toutes mes données. En revanche, lorsque je les insère dans un listbox, les données remontent partiellement. Plus exactement, toutes les données qui contiennent des "." dans la base de données n'apparaissent pas dans le listbox.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub DetFrais()
Dim Tbl
Req = "SELECT Date_Ligne, Type_Frais, Designation, HT_Euro, TVA_Euro, TTC_Euro, TVA_Code, "
Req = Req & "TVA_Taux, N_Ligne, N_Det_Ligne FROM RAI_DET_LIGNE_CARTE WHERE N_Ligne = " & N_Ligne
Debug.Print Req
With CreateObject("Adodb.connection")
.Open ConStrSql
Set Rst = .Execute(Req)
Usf4.ListBox1.Column = Rst.GetRows
Set Rst = Nothing
.Close
End With
End Sub |
En revanche, si je fais ça j'ai bien toutes mes données. Si quelqu'un a une idée pour traiter ces chiffres à virgules
Merci d'avance
Code:
1
2
3
4
5
6
7
8
9
| Feuil6.Range("M5") = Rst(0)
Feuil6.Range("M5") = Rst(1)
Feuil6.Range("N5") = Rst(2)
Feuil6.Range("O5") = Rst(3)
Feuil6.Range("P5") = Rst(4)
Feuil6.Range("Q5") = Rst(5)
Feuil6.Range("R5") = Rst(6)
Feuil6.Range("S5") = Rst(7)
Feuil6.Range("T5") = Rst(8) |
