Discussion :

[souhail72]

Bonjour
j'ai une base de donnée sql server que je questionne et je souhaite écrire le résultat dans un fichier JSON, pour le moment je suis sur cette partie du code et ça marche pas trop bien?

Code :

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

1
2
3
4
5
6
 Dim JsonTool As New JavaScriptSerializer()
 Dim myJsonData = JsonTool.DeserializeObject(myData)
    Dim LoginData As New Dictionary(Of String, String)
    LoginData.Add("user", NeosearchUser)
    LoginData.Add("pass", NeosearchPassword)
    Dim myLoginJsonData As String = JsonTool.Serialize(LoginData)

Merci @ vous

[kolodz]

Bonjour,

Peux-tu nous indiquer ce qui ne marche pas ? Ce qui serai intéressant d'avoir c'est :
1. Les données en entrées pour ton cas de test.
2. Le résultat de ton code en l'état.
3. Ce que tu veux comme résultat.

Cordialement,
Patrick Kolodziejczyk.

[souhail72]

Merci pour le retour, je suis a cette étape :

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
 <WebMethod()> _
  Public Function GetProductionToJson(ByVal Partnumber As String)
    System.Diagnostics.Debugger.Launch()
    'Dim myJsonData = JsonTool.DeserializeObject("")
    'Dim LoginData As New Dictionary(Of String, String)
    Dim requete, connexionString As String
    connexionString = "Data Source=S01180;Initial Catalog=Production;Integrated Security=True"
    requete = "select Production.dbo.Production.DATE,DieNumbersStorage.dbo.DieDefinitions.Name,DieNumbersStorage.dbo.DieProducts.Id,DieNumbersStorage.dbo.DieProducts.PartNumber,DieNumbersStorage.dbo.DieDefinitions.Maximum - DieNumbersStorage.dbo.DieDefinitions.LastValue AS DieRestant,DieNumbersStorage.dbo.DieDefinitions.LastValue - DieNumbersStorage.dbo.DieDefinitions.Minimum AS DieFait,(CAST (DieNumbersStorage.dbo.DieDefinitions.LastValue as decimal(18,4)) - CAST (DieNumbersStorage.dbo.DieDefinitions.Minimum as decimal(18,4)))/3 AS MoyenneMois,((DieNumbersStorage.dbo.DieDefinitions.Maximum - DieNumbersStorage.dbo.DieDefinitions.LastValue)* 3)/(DieNumbersStorage.dbo.DieDefinitions.LastValue - DieNumbersStorage.dbo.DieDefinitions.Minimum) AS TempsRestantMois from DieNumbersStorage.dbo.DieProducts,DieNumbersStorage.dbo.DieDefinitions, Production.dbo.Production where Production.dbo.Production.PARTNUMBER =  DieNumbersStorage.dbo.DieProducts.PartNumber AND DieNumbersStorage.dbo.DieProducts.FKDieDefinition = DieNumbersStorage.dbo.DieDefinitions.Id AND DieNumbersStorage.dbo.DieProducts.PartNumber LIKE '%C' AND Production.dbo.Production.date BETWEEN DATEADD(month, -3, CURRENT_TIMESTAMP) AND CURRENT_TIMESTAMP "
    Dim connexion As IDbConnection = New SqlConnection(connexionString)
    Dim commande As IDbCommand = connexion.CreateCommand()
    commande.CommandText = requete
    commande.CommandType = CommandType.Text
    connexion.Open()
    Dim lire As IDataReader = commande.ExecuteReader()
    While (lire.Read())
      Dim js As JavaScriptSerializer = New JavaScriptSerializer()
      Dim sJSON As String = js.Serialize(lire("PartNumber").ToString())
      Return sJSON
    End While
  End Function

Je recupére une seule valeur alors que ma requete doit me retourner deux valeurs, le résultat est sous cette forme
<anyType d1p1:type="q1:string">"4151939C"</anyType>

[kolodz]

Je ne suis pas développeur DotNet, cependant ce code me semble bizard:

Code :

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

1
2
3
4
5
6
Dim lire As IDataReader = commande.ExecuteReader()
While (lire.Read())
    Dim js As JavaScriptSerializer = New JavaScriptSerializer()
    Dim sJSON As String = js.Serialize(lire("PartNumber").ToString()) 
    Return sJSON
End While

Deux choses :
1. Il y a un return avant la fin du while.
2. La valeur js est initialisé dans la boucle while, alors qu'on devrait l'initialisé avant, puis la remplir dans la boucle while.

On devrait avoir quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
7
8
 
Dim lire As IDataReader = commande.ExecuteReader()
Dim aList  As List(Of String) = New List(Of String)// Déclaration probablement fausse mais l'idée est là
While (lire.Read())
    aList.Add(lire("PartNumber").ToString()) // On récupère ce qui nous intéresse dans chaque ligne.
End While
Dim js As JavaScriptSerializer = New JavaScriptSerializer()
Return js.Serialize(aList)

Cordialement,
Patrick Kolodziecjzyk.

[souhail72]

Merci Patrick, ma sortie Json n'est pas correcte et j'essaye de voir d'ou ca vient

Code :

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

<anyType d1p1:type="q1:string">["4151939C","112 Demo","4139176C","DELTA JP"]</anyType>

ce n'est pas une structure json !!!