Código:
For i = 0 To ListBox1.Items.Count
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=259007;"
Dim conn As New OracleConnection(oradb)
conn.Open()
Dim MyCommand As New OracleCommand
MyCommand.Connection = conn
MyCommand.CommandText = "Insert INTO hmaya.FISCYEAR VALUES(sysdate, sysdate);"
MyCommand.CommandType = CommandType.Text
MyCommand.ExecuteNonQuery()
MsgBox("YA SE GUARDARON LOS DATOS", MsgBoxStyle.Information, MsgBoxStyle.OkOnly)
conn.Dispose()
Next i


