Curso gratis de Visual Basic ejemplos explicados - programación en Visual Basic

Curso de Visual Basic facil Otros Curso guitarra Negocios en Internet Curso Biblia Curso de Access Curso de reparación en PC Curso de Linux Introducción a redes Seguime en	Curso gratis de Visual Basic manejar Base de datos con código, ejemplo explicado   27. Usando códigos en vez del objeto Data. Esta es solo una aplicación con fines didácticos, otro ejemplo para aprender. No es un ejemplo de aplicacion ideal ni siquiera incluía en este apunte tratamientos de errores, igual escríbalo en Visual Basic para practicar.   Vamos a ver el siguiente código (escríbalo en vb son un text con 3 command inicialmente):   (General) (Especifico unas variables en general para utilizarlas desde distintos botones) Option Explicit (Fuerzo especificar el tipo de variables para equivocarme menos) Dim a As Database (Variable para la base de datos) Dim b As Recordset (Variable para recordset ) Public Sub Command1_Click() (Inicio de código de command1 que lo uso para llamar una base de datos) Set a = OpenDatabase("E:\bd1.mdb") Le digo a la variable a que almacene la base db1 con OpenDatabase en la  ubicación señalada. Set b = a.OpenRecordset("lista de direcciones") (Le digo a la variable b que abra la tabla lista de direcciones asignándole OpenRecordset) Text1.Text = b ("nombre_") (Ya estando seleccionada la tabla le digo a Text1 que muestre de la variable b (lista de direcciones) la columna nombre. End Sub       Private Sub Command2_Click() (Empiezo a especificar el botón dos que será para avanzar un campo) b.MoveNext (Le especifico que avance un registro con MoveNext a lo almacenado en la variable b) Text1.Text = b("nombre_") (Le especifico a command2 que muestre en Text1 el campo avanzado) End Sub     Private Sub Command3_Click()     (Realizo lo mismo que con Command1 pero llamando otra base de datos que se muestre en text1) Set a = OpenDatabase("E:\bd2.mdb") Set b = a.OpenRecordset("lista de direcciones") Text1.Text = b("nombre_") End Sub     En vez de MoveNext se podría poner o bien utilizar por ejemplo los comandos que vimos:   Para ir para atrás: MovePrevious Para ir al final de la lista: MoveLast Para ir al principio: MoveFirst   Para modificar uno existente y guardar:   Private Sub Command5_Click() (Esto significa que al pulsar en este command la variable b será editada con Edit) b.Edit    b("nombre_") = Text1.Text (Acá indico que de b (lista de direcciones)  editará el campo  nombre utilizando Text1) b.Update (Por último queda guardado lo editado con Update) End Sub     Para Añadir un registro nuevo y guardar Aclaración: Si tenemos un número de registro (ejem. Idempleados). No se podrá duplicar este id., habrá que en el momento de gravar ponerle un nuevo nombre. En este ejemplo que estamos haciendo también se deberá especificar un Id de direcciones en este ejemplo si no se producirá un error de duplicación. Esto significa que para practicar este comando deberá agregar un texbox para  el Indice (ID). En el botón que se utiliza para llamar a la base de datos uno se deberá agregar el campo Idlista de direcciones con la línea:     Text2.Text = b("IdLista de direcciones")   En los demás botones lo correcto sería añadir también la línea correspondiente a Idlista de direcciones.   Por ejemplo el botón correspondiente para avanzar un registro que hemos hecho quedaría:   Private Sub Command2_Click() b.MoveNext Text1.Text = b("nombre_") Text2.Text = b("idlista de direcciones") End Sub   Hechas las aclaraciones necesarias que debe cumplir para que funcione todo, proseguimos con el código para  agregar un nuevo registro:   Private Sub Command6_Click()  b.AddNew                                               (Indico con AddNew que agregue una nuevo registro en  b) b("nombre_") = Text1.Text                     (Será agregado como nuevo lo que halla puesto en Text1) b("Idlista de direcciones") = Text2.Text    (Será agregado también lo que halla puesto en Text2) b.Update                                                 (Con Update guardo lo que he agregado en Text1 y 2 en el nuevo registro realizado con AddNew) End Sub Sugerencia: Tómese su tiempo para analizar este punto (27) del curso dado en estudiargratis.com.ar hasta que logre hacer funcionar esta aplicación, así se aprende.   [Educación arte cultura entretenimientos y cursos gratis] > [Curso de Visual Basic]   Búsqueda personalizada
	Autor y Webmaster: Javier R. Cinacchi - Aclaraciones legales y política de privacidad (Prohibida la reproducción parcial o total  del contenido de esta Web sin el consentimiento escrito del autor. Puede poner un link a esta pagina.)