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