Insertar datos a oracle

steffyn_90 · #1 (**permalink**) 05/01/2013, 14:10

Buenas Tardes...

Miren que tengo un problemilla. Quiero pasar todos los datos de una base de datos a una base de oracle. Entonces hice este codigo:

Código:

    Dim a, b, c, d As String
    Dim starDate, endDate As Date
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        constr = "DSN=HM;DBQ=C:\LFODBC32\V2.10;CODEPAGE=1252;"
        consulta = "SELECT DAYOFMONTH(StartDate) dia + MONTH(StartDate) mes + YEAR(StartDate) anio FROM FISCYEAR"
        n = CStr(consulta)
        Dim con As New Odbc.OdbcConnection(constr)
        con.Open()

        Dim cmd As New Odbc.OdbcCommand
        cmd.Connection = con
        cmd.CommandText = "SELECT DAYOFMONTH(StartDate) dia , MONTH(StartDate) mes , YEAR(StartDate) anio FROM FISCYEAR"
        cmd.CommandType = CommandType.Text
        Dim dr As Odbc.OdbcDataReader = cmd.ExecuteReader()


        While dr.Read()
            a = dr.Item("dia").ToString
            b = dr.Item("mes").ToString
            c = dr.Item("anio").ToString

            d = (a & "/" & b & "/" & c)
            starDate = CDate(d)


            Dim oradb As String = "Data Source=(DESCRIPTION=" _
             + "(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.56.1)(PORT=1521))" _
             + "(CONNECT_DATA=(SERVICE_NAME=XE)));" _
             + "User Id=system; Password=****;"
            Dim conn As New OracleConnection(oradb)
            conn.Open()

            Dim MyCommand As New OracleCommand
            MyCommand.Connection = conn
            MyCommand.CommandText = "Insert INTO hmaya.FISCYEAR VALUES( to_date('" & d & "','yyyy-mm-dd'), sysdate );"

            MyCommand.ExecuteNonQuery()
            MsgBox("YA SE GUARDARON LOS DATOS", MsgBoxStyle.Information, MsgBoxStyle.OkOnly)
            conn.Dispose()

        End While
        con.Dispose()
    End Sub

Bueno como son parametros de fecha trate de convertirlo a fecha para que el oracle me lo agarre. Pero me sale un error al ejecutar la consulta.

Muchas Gracias por la ayuda de anticipado. Y si me pueden dar otras opciones de como hacerlo pues que tambien lo agradeceria.

gnzsoloyo · #2 (**permalink**) 06/01/2013, 07:57

Cita:

Pero me sale un error al ejecutar la consulta.

Creo tener una idea de qué es lo que estás haciendo mal, pero de todos modos sería buena idea que empezaras por postearnos qué error te da, ya que nosotros no podemos verlo...

steffyn_90 · #3 (**permalink**) 06/01/2013, 17:57

ORA-00911: invalid character

Ese es el error que me tira. en la linea de MyCommand.ExecuteNonQuery()

Yo digo que es el formato de fecha, pero lo he cambiado y nada. Muchas Gracias si puedes ayudarme.