Public Shared Function sqlAction_CollectAlarm_RowLines(ByRef DatagridviewIn As DataGridView) As List(Of String)
'Dim conn_str = "Data Source=JKSERVER-PC;Initial Catalog=SQLALARMLOG;Integrated Security=True"
Dim conn_str = "Data Source=JKSERVER-PC;Initial Catalog=SQLALARMLOG;Integrated Security=True"
Dim conn1 As New SqlConnection(conn_str)
Dim cmdstr = "SELECT AlarmDateTime, ClearedDateTime, AlarmID ,flow,ST,AlarmRate,ActionRate FROM NEW_ALARM "
Dim sqlcmd = New SqlCommand(cmdstr, conn1)
'sqlcmd.Parameters.AddWithValue("@ID", ID_str)
Dim Adapter1 As SqlDataAdapter = New SqlDataAdapter(sqlcmd)
Dim cb As New SqlCommandBuilder(Adapter1) ' for update
' Dim dataset1 = New Data.DataSet() '產生一個名為test 的 DataSet
Dim alarmTable As New DataTable '建立本地記憶體資料表 內部容器裝載
Adapter1.Fill(alarmTable)
'-------------查Action Rate----------------
Dim actR_list = sql_QueryDatalogValue_byTime(DatagridviewIn, alarmTable)
'Dim NN = actR_list.Count
' MsgBox(NN.ToString)`
'-------------/查Action Rate/----------------
'---------列舉所有 start time ------------
' Dim alarmTable_rows = From n In alarmTable
' Dim rows_N = alarmTable.LongCount
Dim row_line_collect As New List(Of String)
Dim symbol = ","
Dim index = 0
For Each mm In alarmTable.Rows
alarmTable.Rows(index).Item(6) = CInt(actR_list(index))
Dim colume_time = Convert.ToDateTime(mm(0))
' Dim td1 As New DateTime(2012, 10, 17, 9, 0, 0)
Dim td1 = colume_time
Dim ts1 As New TimeSpan(0, 10, 0)
'Dim AmR As New List(Of String)
Dim AmR = From column In alarmTable Where DateTime.Compare(column(0), td1 - ts1) 0 AndAlso DateTime.Compare(column(0), td1) 這個本地dataset修改後做 update 才有效
DatagridviewIn.DataSource = alarmTable
conn1.Close()
'------/抓取第一個欄位 裡的內容/--------------
Return row_line_collect
End Function
