OLEDB archivos - Soulsmakers

ACCESO A DATOS USANDO OLEDB

Hola a todos aqui os traigo el ejemplo de como leer, guardar, e insertar datos a traves del componente OleDB.

Lo primero que haremos sera crear la cadena de conexion(si no sabes como hacerlo , aqui hay una forma sencilla de conseguirlo) y se la asignamos a nuestro componente oldb.conection. o bien se la escribirmos.

y a continuacion los ejemplos.

Para una consulta “SELECT” lo conseguimos de la siguiente manera

Try
           Dim s As String = ("SELECT * FROM Clientes")
           Dim conexion = New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(s)
           myCommand.Connection = conexion
           conexion.Open()
           Dim myReader As OleDbDataReader = myCommand.ExecuteReader()
           conexion.Close()
           Catch ex As Exception
           Throw New ex.Message
       End Try

Try

Dim s As String = ("SELECT * FROM Clientes")

Dim conexion = New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(s)

myCommand.Connection = conexion

conexion.Open()

Dim myReader As OleDbDataReader = myCommand.ExecuteReader()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

Para una un “INSERT” lo conseguimos de la siguiente manera

Try
           Dim SSQL As String = ("INSERT INTO Clientes VALUES ('58','GERARDO')")
           Dim conexion As New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(SSQL)
           myCommand.Connection = conexion
           conexion.Open()
           myCommand.ExecuteNonQuery()
           conexion.Close()
       Catch ex As Exception
           Throw New ex.Message
       End Try

Try

Dim SSQL As String = ("INSERT INTO Clientes VALUES ('58','GERARDO')")

Dim conexion As New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(SSQL)

myCommand.Connection = conexion

conexion.Open()

myCommand.ExecuteNonQuery()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

Y Para un “Update” asi

       Try
           Dim SSQL As String = "UPDATE Clientes SET id='37' Where id='58'"
           Dim conexion = New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(s)
           myCommand.Connection = conexion
           conexion.Open()
           myCommand.ExecuteNonQuery()
           conexion.Close()
       Catch ex As Exception
           Throw New ex.Message
       End Try
   End Sub

Try

Dim SSQL As String = "UPDATE Clientes SET id='37' Where id='58'"

Dim conexion = New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(s)

myCommand.Connection = conexion

conexion.Open()

myCommand.ExecuteNonQuery()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

End Sub

Para saber como leer un fichero de y obtener los datos usando StreamReader pincha aqui

Si te gusto el articulo y te sirvio por favor comenta ***El mail te lo puedes inventar*** No se almacenara en ningun sitio.

¿Como crear un String con la conexión a la BBDD?

Para no tener demasiadas preocupaciones en saber que driver y como debemos componer la cadena de conexión a la base de datos, podemo utilizar el propio entorno de windows para realizar dicha conexión.

Los pasos a segur son los siguientes.

1 Crea en el escritorio o en el lugar donde vayas a almacenar la cadena de conexión un fichero con extensión
UDL , por ejemplo “Prueba.udl”

2 Introduce los datos necesarios y pulsa test para saber si hemos realizado correctamente la conexión.

3 Para utilizar este recurso, bien podemo acceder a el usando un StringReader o copiando el texto en un string dentro de nuestra libreria para usarlo posteriormente.

Si usas StringReader, recuerda que la cadena de conexión es la tercera linea.

La verdad como ves no es nada complicado y existen varias maneras de hacerlo pero esta es la mas sencilla, A no ser que te lo sepas todo de memoria.

Pero aqui te lo dejo.