CODIGO PARA INGRESAR MODIFICAR Y ELIMINAR EN TABLAS DE ORACLE LOCAL O CLIENTE CON HERRAMIENTA DE CONECCION OLEDBCONNECTION

'Empezamos definiendo la cadena de coneccion:

'LOCAL:
cadena = "Provider=MSDAORA.1;User ID=" & user & ";password= " & password & ";database=" & database;

'CLIENTE:
cadena =
"Provider=OraOLEDB.Oracle;User ID=" & user & "HOST= 172.31.14.11" & "SERVER= DEDICATED " & ";password= " & password & ";database=" & database;

'Funcion para Ingresar
Function INGRESAR() as boolean

try

myConnectionDANIEL = New OleDbConnection(cadena)myConnectionDANIEL.Open()

Dim sentencia As String

sentencia = "Insert into CIUDADPRUEBA values ( " & valor1 & " , '" & valor2 & "' , '" & valor3 & "' , " & valor4 & ")"

myCommandDANIEL = New OleDbCommand(sentencia)myCommandDANIEL.Connection = myConnectionDANIEL

Dim r As Integer = 0

'Ejecutar la consulta SQL

r = myCommandDANIEL.ExecuteNonQuery

'Para guardar los datos se utiliza commit y se ejecuta la instruccion

myCommandDANIEL = New OleDbCommand("commit", myConnectionDANIEL)

drDANIEL = myCommandDANIEL.ExecuteReader

myConnectionDANIEL.Close()

return true

catch ex as Exception
MsgBox("PROBLEMAS EN CARGAR CIUDAD", MsgBoxStyle.Critical)

return false

end try

End Function

'Funcion Para Buscar y Cargar Datos a las variables globales para que me sirve para saber que datos tiene y cuales voy a modificar

Primero defino variables globales

Public Valor2 As Date

Public Valor1 As String

Public Valor3 As Integer

'Funcion que resive la llave primaria de la tabla con la que se va ha buscar

Function BuscarCargar(Byval ID as Integer) Boolean

myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

'Se Aplica en el Command la instruccion directa
myCommandDANIEL = New OleDbCommand("select * from CIUDADPRUEBA WHERE ID = " & Me.MaskedTextBox2.Text, myConnectionDANIEL)
drDANIEL = myCommandDANIEL.ExecuteReader()
Dim existeId As Boolean = False

'Recorrer dr y extraer los datos
While drDANIEL.Read

If ID = drDANIEL(0) Then
drDANIEL(0) ' ID de la tabla
Valor1 = drDANIEL(1)
Valor2 = drDANIEL(2)
Valor3 = drDANIEL(3)
End If

End While
myConnectionDANIEL.Close()

End Function

'Funcion para Modificar

Function MODIFICAR() As Boolean

try

myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

'Sentencia SQL que contiene los valores que son:

NModif = Nombre de la Columna a Modificar

NuevoValor = El nuevo valor para modificar la columna

Valor = Dato que se obtuvo depues de la funcion BuscarCargar que nos representa los valores que tiene la tabla antes de ser modificada
Dim sentencia As String

'sentencia = "Update TABLA SET NModif1 = '" & NuevoValor1 & "', " & "NModif2 = ' " & NuevoValor2 & "', " & "NModif3 = " & NuevoValor3 & " WHERE NModif1 = '" & Valor1 & "' AND " & "NModif2 '" & Valor2 & "' AND " & "NModif3 = " & Valor3

'Asignacion de la Sentencia SQL y La coneccion
myCommandDANIEL = New OleDbCommand(sentencia)
myCommandDANIEL.Connection = myConnectionDANIEL
Dim r As Integer = 0

'Ejecutar la Instruccion
r = myCommandDANIEL.ExecuteNonQuery
drDANIEL = myCommandDANIEL.ExecuteReader
myConnectionDANIEL.Close()
Return True

catch (ex aas Exception)

"Mensaje al usuario"

return false

end try

End Function

'Funcion para eliminar
Function Eliminar(Byval ID as Integer) as boolean
Try
myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

Dim sentencia As String
sentencia = "Delete from CIUDADPRUEBA where ID = " & ID
myCommandDANIEL = New OleDbCommand(sentencia)
myCommandDANIEL.Connection = myConnectionDANIEL

Dim r As Integer = 0
r = myCommandDANIEL.ExecuteNonQuery
drDANIEL = myCommandDANIEL.ExecuteReader
myConnectionDANIEL.Close()
Return True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return False
End Try

End Fuction