prague12

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