System.TimeSpan does not match Oracle 9i INTERVAL DAY TO SECOND data type (324577)

MORE INFORMATION

Steps to reproduce the behavior

1. Create the Oracle table in SQL Plus by using the following script:

   Create table IntervalDt2 (Col1 INTERVAL DAY(3) TO SECOND(2));
   insert into intervaldt2 values('100 10:20:34.22');
   Commit;
   / 
   					

2. Follow these steps to create a Visual Basic Windows Application project:
   1. Start Microsoft Visual Studio .NET or Microsoft Visual Studio 2005.
   2. On the File menu, point to New, and then click Project.
   3. Click Visual Basic Projects under Project Types, and then click Windows Application under Templates. By default, Form1 is added to the project.
      
      Note In Visual Studio 2005, click Visual Basic under Project Types.
3. On the Project menu, click Add Reference, and then set a reference to the System.Data.OracleClient namespace.
4. Drag three Button controls from the toolbox to the form.
5. Add the following code at the top of the Code window:

   Imports System.Data.OracleClient
   					

6. Add the following code to Form1:

       Dim cn As New OracleConnection("Server=OracleAlias;UID=UID;PWD=PWD")
       Dim cm As New OracleCommand("Select * from IntervalDt2", cn)
       Dim da As New OracleDataAdapter(cm)
       Dim ds As New DataSet()
       Dim dr As OracleDataReader
   
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
           Button1.Text = "Show Problem"
           Button2.Text = "Solution 1"
           Button3.Text = "Solution 2"
   
           cn.Open()
           Try
               da.Fill(ds, "Interval")
           Catch myex As Exception
               MsgBox(myex.Message)
           End Try
   
       End Sub
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Dim cm2 As New OracleCommand("Select * from IntervalDT2 where Col1 = :P", cn)
           Dim da2 As New OracleDataAdapter(cm2)
           Dim Ds2 As New DataSet()
           Dim x As String
   
           x = ds.Tables("Interval").Rows(0)(0).ToString
   
           cm2.Parameters.Add(New OracleParameter("P", OracleType.VarChar, 30, ParameterDirection.Input)).Value = x
   
   
           Try
               da2.Fill(Ds2, "IntervalP")
           Catch myex As Exception
               MsgBox(myex.Message)
           End Try
   
           If Ds2.Tables(0).Rows.Count > 0 Then
               MsgBox(Ds2.Tables("IntervalP").Rows(0)(0).ToString)
           End If
       End Sub
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           Dim cm2 As New OracleCommand("Select * from IntervalDT2 where Col1 = :P", cn)
           Dim da2 As New OracleDataAdapter(cm2)
           Dim Ds2 As New DataSet()
           Dim x As String
   
   
           x = String.Format("{0} {1}:{2}:{3}.{4}", ds.Tables("Interval").Rows(0)(0).Days, ds.Tables("Interval").Rows(0)(0).Hours, ds.Tables("Interval").Rows(0)(0).Minutes, ds.Tables("Interval").Rows(0)(0).Seconds, ds.Tables("Interval").Rows(0)(0).Milliseconds)
           cm2.Parameters.Add(New OracleParameter("P", OracleType.VarChar, 30, ParameterDirection.Input)).Value = x
   
           Try
               da2.Fill(Ds2, "IntervalP")
           Catch myex As Exception
               MsgBox(myex.Message)
           End Try
   
           If Ds2.Tables(0).Rows.Count > 0 Then
               MsgBox(Ds2.Tables("IntervalP").Rows(0)(0).ToString)
           End If
       End Sub
   
       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           Dim cm2 As New OracleCommand("Select * from IntervalDT2 where Col1 = :P", cn)
           Dim da2 As New OracleDataAdapter(cm2)
           Dim Ds2 As New DataSet()
           Dim x As String
   
   
           cm2.Parameters.Add(New OracleParameter("P", OracleType.IntervalDayToSecond, 11, ParameterDirection.Input)).Value = ds.Tables("Interval").Rows(0)(0)
   
           Try
               da2.Fill(Ds2, "IntervalP")
           Catch myex As Exception
               MsgBox(myex.Message)
           End Try
   
           If Ds2.Tables(0).Rows.Count > 0 Then
               MsgBox(Ds2.Tables("IntervalP").Rows(0)(0).ToString)
           End If
       End Sub          
   					

7. Modify the OracleConnection string as appropriate for your environment.
8. Press F5 to compile and to run the program.