Hi everybody.
A timer calls the following procedure mySub() to check if two values
(in an Oracle DB table) had modified.
Problem is, values stored into c1_read and c2_read are NOT the actual
values in the database fields.
Can anybody help? THX
....
Dim myId As New DataSet("myId")
....
Private Sub mySub()
Dim myQuery As String = "select c1, c2 from T where myParam = 1"
Dim mycmd As New OracleCommand(m yQuery, con)
mycmd.CommandTy pe = CommandType.Tex t
Dim adapt As New OracleDataAdapt er(mycmd)
Try
mycmd.ExecuteNo nQuery()
adapt.Fill(myId , "tab_myId")
c1_read = CStr(myId.Table s("tab_myId").R ows(0).Item("c1 "))
c2_read = CStr(myId.Table s("tab_myId").R ows(0).Item("c2 "))
Catch ex As Exception
MessageBox.Show (ex.Message)
Finally
mycmd = Nothing
End Try
End Sub
A timer calls the following procedure mySub() to check if two values
(in an Oracle DB table) had modified.
Problem is, values stored into c1_read and c2_read are NOT the actual
values in the database fields.
Can anybody help? THX
....
Dim myId As New DataSet("myId")
....
Private Sub mySub()
Dim myQuery As String = "select c1, c2 from T where myParam = 1"
Dim mycmd As New OracleCommand(m yQuery, con)
mycmd.CommandTy pe = CommandType.Tex t
Dim adapt As New OracleDataAdapt er(mycmd)
Try
mycmd.ExecuteNo nQuery()
adapt.Fill(myId , "tab_myId")
c1_read = CStr(myId.Table s("tab_myId").R ows(0).Item("c1 "))
c2_read = CStr(myId.Table s("tab_myId").R ows(0).Item("c2 "))
Catch ex As Exception
MessageBox.Show (ex.Message)
Finally
mycmd = Nothing
End Try
End Sub
Comment