ACCEDER A BASE DE DATOS USANDO ADODB VB.NET
Que es adodb.
Bien si la wikipedia indica Que ado es
ADO.NET es un conjunto de componentes del software que pueden ser usados por los programadores para acceder a datos y a servicios de datos.
Es una parte de la biblioteca de clases base que están incluidas en el Microsoft .NET Framework.
Es comúnmente usado por los programadores para acceder y para modificar los datos almacenados en un Sistema Gestor de Bases de Datos Relacionales,
aunque también puede ser usado para acceder a datos en fuentes no relacionales. ADO.NET es a veces considerado como una evolución de la tecnología
ActiveX Data Objects (ADO), pero fue cambiado tan extensivamente que puede ser concebido como un producto enteramente nuevo.
Fuente:(http://es.wikipedia.org/wiki/ADO.NET)
Pues bien ADODB es un componente que se incluye en la MDAC y que proviene de Visual5 y 6.
Para los que hemos trabajado con VB6 recordamos aquellos Recorsets con las caracteristas
de MoverFisrt , MovePrevious, MoveNext,MoveLast. muy utiles.
Viendo como lo que ha cambiado el mundo de la programación a mi personalmente me da pena que ya casi, y digo bien casi, no se use.
Pues bien Sigue en activo, y si bien es un componente antiguo aun se puede conectar son SQL SERVER 2014,MSACCESS 2013, SQLITE, Bases de Datos Compact. Etc etc.
Para mi es mas facil utilizar adodb para ejecutar transacciones en SQL tanto para lo insert,updates,delete,procedimientos almacenados. dada la facilidad de su uso.
Aqui os dejo un los ejemplos pertinente y el como se convierte esos Famosos RECORDSETS a Datatables, que si bien los miramos se comporten como EL CurrencyManager, de la cual puedes obtener info aqui para navegar por los registros, más un datatable todo unido.
Si cabe destacar un inconveniente de ADODB , y es que el nombre de tabla no viene indicado, asi que por lo tanto deberemos ponerlo(SI QUEREMOS…)
Como tendras que darle una cadena de conexion , si no sabes como hacerlo pincha aqui
Para leer los datos de un fichero si usas el caso anterior para crear la cadena de conexion pincha aqui
Hacemos una Select
1 2 3 4 5 6 7 8 9 10 11 12 |
Dim SSQL As String = "Select * from Clientes" Dim Db As New adodb.Connection Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion Dim Da As New OleDb.OleDbDataAdapter 'Lo Utilizaremos para convertir El RECORDSET a Datatable Dim Dt As New DataTable 'Datatable que llenaremos con el recordSet Try Db.open() Da.Fill(Dt, Db.execute(SSQL)) Db.close() Catch ex As excepcion Db.close() End Try |
Un Update esto es mas facil
1 2 3 4 5 6 |
Dim SSQL As String = "Update Clientes Set Id=33 where Id=12" Dim Db As New adodb.Connection Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion Db.open() Db.Execute(SSQL) Db.close() |
Si necesitamos que nos devuelva el cambio en un datatable habria que hacer lo mismo que la select pero la instruccion SQL sera update….
El insert
1 2 3 4 5 6 |
Dim SSQL As String = "Insert into Clientes id,Nombre values('12','juan')" Dim Db As New adodb.Connection Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion Db.open() Db.Execute(SSQL) Db.close() |
Y el delete os lo podeis imaginar no??? , por si alguno anda despistado XD
1 2 3 4 5 6 |
Dim SSQL As String = "Delete from clientes where id = '12'" Dim Db As New adodbConnection Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion Db.open() Db.Execute(SSQL) Db.close() |
y hasta aqui el post de ADODB, Puedes descargarte la libreria aqui, pero tambien te recomiendo que te instales el MDAC, ya que tienen componentes de Interop que te serviran de ayuda.
si quieres mas info sobre ADODB ,visita esta pagina de Microsoft AQUI
Un saludo y si te sirvio, o si te gusto, escribe tu comentario y recuerda