Manual base de datos visual basic

Solo disponible en BuenasTareas
  • Páginas : 5 (1216 palabras )
  • Descarga(s) : 0
  • Publicado : 20 de junio de 2011
Leer documento completo
Vista previa del texto
Base de datos Access & Visual Basic 6.0
1. Crear la base de datos con las tablas y campos correspondientes *solo se reconocen bases .mdb 2. Crear un nuevo proyecto de visual basic 6.0 3. Crear un data, que se encuentra en la barra de heramientas , en el formulario.

4. Dar click derecho sobre la barra de herramientas y seleccionar componentes 5. Aparecera una pantalla, buscar en la pestaña decontroles “Microsoft Data Bound Grid Control 5.0 (sp3) y añadirlo al proyecto

6. Aparecera en la barra de heramientas el siguiente icono del grid

7. Seleccionar la propiedad DataBaseName del data y buscar nuestra base de datos 8. Seleccionar la propiedad RecordSource del data y seleccionar la tabla que se desea conectar 9. Luego seleccionar la propiedad DataSource del Grid y seleccinar ladata con la que se esta trabajando 10. *Si se quiere cambiar el formato de la apariencia del grid se deben seleccionar las propiedades del menu desplegable al darle clic derecho al grid

Data
Grabar nuevo registro Se debe escribir el nombre del data que se utiliza seguido de .recordset, que selecciona el grupo de registros, seguido de .addnew , para crear un nuevo registro en blanco al final dela tabla Seguido de la asignacion del valor hacia los campos lo cual es similar, se debe escribir el nombre del data que se utiliza seguido de .recordset.fields(“nombre del capo”)= * el valor que tomara ese registro Luego solo se escribir el nombre del data que se utiliza seguido de .recordset.update para actulaizar el registro con los valores proporcionados Ej. Data1.Recordset.AddNewData1.Recordset.Fields ("estado") = Text1.Text Data1.Recordset.Update

Editar un nuevo registro Lo unico que cambia al metodo anterior es que se debe sustituir .addnew por .edit Ej. Data1.Recordset.edit Data1.Recordset.Fields ("estado") = Text1.Text Data1.Recordset.Update Borrar un registro Para borrar se debe tomar en cuenta que se borrara el registro que este activo o seleccinado Ej.Data1.Recordset.delete Moverse dentro del Data .movefirst : moverse al primer registro de la tabal .movelast : moverse al ultimo registro de la tabla .movenext : moverse al siguiente registro de la tabla .moveprevious : moverse al registro anterior de la tabla Ej. Data1.recordset.movefirst etc..

.EOF Nos dice si estamos al final de nuestra tabla puede tomarlos valores de falso o verdadeso es utilizado mayormentepara hacer comparaciones Ej. Data1.recordset.EOF=true .BOF Nos dice si estamos al inicio de nuestra tabla puede tomarlos valores de falso o verdadeso es utilizado mayormente para hacer comparaciones Ej. Data1.recordset.BOF = true Como sabemos cuando una tabla esta vacia If Data1.recordset.BOF=true and Data1.recordset.EOF=true then ‘esto dice si el conjunto de registros esta en el primero y siconjunto de registros esta en el ultimo quiere decir que mi tabla esta en blanco

Ejemplo
Estructura de la tabla a utilizar

Dim a As Integer Function conectar() estado.DatabaseName = App.Path & "\baseregistro.mdb" estado.RecordSource = "estadocivil" refrescar End Function Function refrescar() estado.Refresh Form1.Data1.Refresh End Function Function habilitarbotones() cancelar.Enabled = Trueguardar.Enabled = True nuevo.Enabled = False borrar.Enabled = False End Function

2

m

r

o

F

Function deshabilitarbotones() cancelar.Enabled = False guardar.Enabled = False nuevo.Enabled = True borrar.Enabled = True End Function Private Sub Form_Load() conectar End Sub

Private Sub nuevo_Click() Text1.Locked = False Text1.Text = "" habilitarbotones End Sub Private Subcancelar_Click() Text1.Text = "" Text1.Locked = True deshabilitarbotones estado.Refresh End Sub Private Sub guardar_Click() If Text1.Text "" Then estado.Recordset.AddNew estado.Recordset.Fields("estado") = Text1.Text estado.Recordset.Update estado.Refresh deshabilitarbotones Text1.Text = "" Else MsgBox "el campo esta vacio", vbCritical, "error" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)...
tracking img