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.
