User Passwort
 Passwort speichern Passwort vergessen?
 
 
 
 Alle Foren
 PDA-Dev :: Windows Mobile
 VB.NET
 DataTable beim Debuggen anschauen
Autor Vorheriges Thema Thema Nächstes Thema  

Useless user

PDA-Spezialist


465 Beiträge

Erstellt am: 10.10.2008 :  19:59:15 Uhr  Profil anzeigen  Besuche Useless user's Homepage  Antwort mit Zitat
Wer viel mit DataTables arbeitet wird vlt. schon oft den "DebugVisualizer" (die kleine Lupe) für DataTables vermisst haben, den man aus dem Debuggen von Anwendungen für das große Framework kennt. Mit wenigen Zeilen Code kann man sich so ein Hilfmittel schnell selberbauen:
Public Class CFTools
Public Shared Function Visualize(ByVal ds As DataSet, Optional ByVal seperator As String = vbTab) As String
Dim sb As New System.Text.StringBuilder()
For Each dt As DataTable In ds.Tables
sb.Append(String.Format("{0} >>>>>> {1}{0}{0}", vbCrLf, dt.TableName))
WriteTable2SB(sb, dt, seperator)
sb.Append(vbCrLf)
Next
Return sb.ToString()
End Function
Public Shared Function Visualize(ByVal dt As DataTable, Optional ByVal seperator As String = vbTab) As String
Dim sb As New System.Text.StringBuilder()
WriteTable2SB(sb, dt, seperator)
Return sb.ToString()
End Function
Public Shared Function Visualize(ByVal dv As DataView, Optional ByVal seperator As String = vbTab) As String
Dim sb As New System.Text.StringBuilder()
WriteView2SB(sb, dv, seperator)
Return sb.ToString()
End Function
Private Shared Sub WriteTable2SB(ByVal sb As System.Text.StringBuilder, ByVal dt As DataTable, ByVal seperator As String)
For Each col As DataColumn In dt.Columns
sb.Append(col.Caption)
sb.Append(seperator)
Next
sb.Append(vbCrLf)
For Each row As DataRow In dt.Rows
For Each val As Object In row.ItemArray()
sb.Append(val.ToString())
sb.Append(seperator)
Next
sb.Append(vbCrLf)
Next
End Sub
Private Shared Sub WriteView2SB(ByVal sb As System.Text.StringBuilder, ByVal dv As DataView, ByVal seperator As String)
For Each col As DataColumn In dv.Table.Columns
sb.Append(col.Caption)
sb.Append(seperator)
Next
sb.Append(vbCrLf)
For Each vrow As DataRowView In dv
For Each val As Object In vrow.Row.ItemArray()
sb.Append(val.ToString())
sb.Append(seperator)
Next
sb.Append(vbCrLf)
Next
End Sub
End Class
Anschließend kann man beim Debuggen im Direktfenster die Funktion für DataSet, DataTable oder DataView aufrufen und bekommt deren Daten als String angezeigt. Man kann den String auch nach Excel kopieren, dann kann man die Spaltenbreiten auch noch anpassen um die Übersicht zu erhöhen.
Falls jemand zufällig eine Möglichkeit weiß, wie man einen "echten Debugvisualizer" für das Debuggen von mobilen Anwendungen verwenden kann, darf er hier gerne sein Wissen mit uns teilen.

Bearbeitet von: Useless user am: 10.10.2008 20:03:24 Uhr
   
  Vorheriges Thema Thema Nächstes Thema  
Springe nach:
 
  Bookmark & Share  
 
 
 
  Tags  
   
 
 



pda-dev.de

Quicklinks: Foren-Übersicht | Developer-News | Suche | Impressum

© just-works! Software

Zum Anfang der Seite

Snitz Forums 2000