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:
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. 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
Muchas Gracias por la ayuda de anticipado. Y si me pueden dar otras opciones de como hacerlo pues que tambien lo agradeceria.

