El RecordSet ado ese viejo amigo
Si el RecordSet, es ese viejo amigo que hoy dia aún seguimos conservando, en aplicaciones como Excel, Access, o si sigues trabajando en Visual Basic 6 todavía utilizaras.
Con este video y articulo quiero recordaros aquellos tiempos en los que el orden de las referencias era un problema, la versión de las mismas y que , poco a poco nos hemos ido introduciendo en una nueva etapa en el mundo de la programación.
Te invito a ver el video y te dejo el código de ejemplo de lo que se ha realizado por si quieres volver a recordar.
Recuerda añadir la referencia de Adodb en tu proyecto para que puedas instanciar el recordset
Aquí el video
aquí el codigo
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim rs As New ADODB.Recordset rs.Fields.Append("Id", ADODB.DataTypeEnum.adBigInt) rs.Fields.Append("Nombre", ADODB.DataTypeEnum.adBSTR) rs.Open() rs.AddNew() rs.Fields("Id").Value = 1 rs.Fields("Nombre").Value = "Jose" rs.Update() rs.AddNew() rs.Fields("Id").Value = 2 rs.Fields("Nombre").Value = "Carlos" rs.Update() rs.AddNew() rs.Fields("Id").Value = 3 rs.Fields("Nombre").Value = "Juan" rs.Update() rs.AddNew() rs.Fields("Id").Value = 4 rs.Fields("Nombre").Value = "Ivan" rs.Update() ' id 1 rs.MoveFirst() Dim str = rs.Fields("id").Value 'id 2 rs.MoveNext() Dim str2 = rs.Fields("id").Value 'id 4 rs.MoveLast() Dim str3 = rs.Fields("id").Value 'id 3 rs.MovePrevious() Dim str4 = rs.Fields("id").Value rs.MoveFirst() Do Until rs.EOF Dim valor = rs.Fields("Nombre").Value Dim id As Integer = rs.Fields("ID").Value rs.MoveNext() Loop rs.Close() End Sub |
Un saludo y suscribete a mi canal de youtube aqui