18-03-21 06:30 AM
18-03-21 06:04 PM
19-03-21 11:43 AM
I had this issue with "Get Collection" action of Data - OLEDB VBO (getting data from Oracle DB) and my solution is to change code stage (made an action copy) to something like this below. This also needs System.Data.DataSetExtensions.dll reference in VBO, .Field() is an extension.
Dim oDataAdapter As New OLEDBDataAdapter(SQL,moConnection)
Dim oDataTable As New DataTable
oDataAdapter.Fill(oDataTable)
For Each column as DataColumn in oDataTable.Columns
If column.DataType = GetType(DateTime) then
For i as Integer = 0 to oDataTable.Rows.Count-1:
Dim dateObj as Object = Nothing
dateObj = oDataTable.Rows(i).Field(Of Object)(column.ColumnName)
If (dateObj <> Nothing) Then
oDataTable.Rows(i)(column.ColumnName) = oDataTable.Rows(i).Field(Of DateTime)(column.ColumnName).ToLocalTime()
End If
Next
end if
Next
Results = oDataTable
04-03-22 12:27 PM
07-03-22 03:50 PM