Gibt es eine schnellere Möglichkeit, Daten aus einer Tabelle abzurufen?

Question

Ich habe diese Schleife verwendet, um Daten anzuzeigen, die die Google-Diagramm-Diagramm mit

Das Problem ist, dass der Graph eine Menge Daten enthält, und es dauert eine lange Zeit Die Frage Ausleihen gemacht werden soll, ob es ein schneller Weg, um die Datenbank zu übergeben?

 dRow As Data.DataRow In xdata.Rows 
         If j = 0 Then 
          TempDate = Format(CDate(dRow.Item(0)), "dd/MM/yyyy") 
          MyXML += "[new Date(" & TempDate.Year & "," & TempDate.Month - 1 & ")" 
          j += 1 
         Else 
          TempDate = Format(CDate(dRow.Item(0)), "dd/MM/yyyy") 
          MyXML += ",[new Date(" & TempDate.Year & "," & TempDate.Month - 1 & ")" 
          j += 1 
         End If 
         For colIdx As Byte = 1 To xdata.Columns.Count - 1 
          If colIdx > 0 Then 
           If (dRow.Item(colIdx)).ToString <> Nothing Then 
            MyXML += "," & (dRow.Item(colIdx)).ToString 
           Else 
            MyXML += "," & "0" 
           End If 
          End If 

` 

Answer 1

Sie sollten eine StringBuilder verwenden, wenn Sie Hunderte von Saiten gehen zu verketten. .NET-Zeichenfolgen sind unveränderbar, dh bei jeder Änderung muss ein neues Objekt erstellt werden.

Dim sb As New StringBuilder 
For dRow As Data.DataRow In xdata.Rows 
    If j = 0 Then 
     TempDate = Format(CDate(dRow.Item(0)), "dd/MM/yyyy") 
     sb.Append("[new Date(" & TempDate.Year & "," & TempDate.Month - 1 & ")") 
     j += 1 
    Else 
     TempDate = Format(CDate(dRow.Item(0)), "dd/MM/yyyy") 
     sb.Append(",[new Date(" & TempDate.Year & "," & TempDate.Month - 1 & ")") 
     j += 1 
    End If 
    For colIdx As Byte = 1 To xdata.Columns.Count - 1 
     If colIdx > 0 Then 
      If (dRow.Item(colIdx)).ToString <> Nothing Then 
       sb.Append("," & (dRow.Item(colIdx)).ToString) 
      Else 
       sb.Append("," & "0") 
      End If 
     End If 
    Next 
Next 

Und wenn Sie Parsen der Daten durchgeführt:

Return sb.ToString