Chilkat, Telefone, Zoll Notruf

Dokumentation/Classes/cSMB.vb

@@ -0,0 +1,26 @@
+Public Class cSMB
+    Public Shared Function obj2DS(obj As Object, ByVal ds As DataSet, tablename As String)
+
+
+
+        ds.Tables.Add(New DataTable(tablename))
+            With ds.Tables(0)
+                .Columns.Add("S_ID", Type.GetType("System.String"))
+                .Columns.Add("Computer", Type.GetType("System.String"))
+                .Columns.Add("Datei", Type.GetType("System.String"))
+                .Columns.Add("User", Type.GetType("System.String"))
+            End With
+
+
+
+
+
+        For Each line In obj
+            Dim rowData As String() = line.Split(New Char() {";"c})
+            ds.Tables(0).Rows.Add(rowData(0), rowData(1), rowData(2), rowData(3))
+        Next
+
+        '   MsgBox("")
+
+    End Function
+End Class