27 lines
740 B
VB.net
27 lines
740 B
VB.net
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
|