Access y Visual

•            Pasos para conectar una base de datos de Access 2007 con visual BASIC 6.0

• 1. Primero creamos la base de datos
• 2. Luego abrimos visual BASIC Clic en abrir
• 3. Luego ingresamos una label por cada campo insertado en la base de datos. 
• 4. Luego ingresamos una caja de texto y la copiamos (al hacer esto nos sale un mensaje que nos dice: ya existe un control llamado text 1; desea crear una matriz) le damos “si” luego la copiamos tres veces más.text1
• 5. Luego agregamos el control adodc1; para aquello damos clic derecho en la barra de herramientas –componentes-Microsoft ADO data control 6.0 (OLEDB)-aceptar.componentes-Microsoft ADO data control 6.0 (OLEDB
• 6. Luego agregamos dicho control (control adodc1) al formulario control adodc1
• 7. Luego seleccionamos el control adodc1 y le agregamos las siguientes propiedades:Conecctionstring Usar cadena de conexión – generar
• 8. Pestaña PROVEEDORMicrosoft OLE DB Provider for ODBC Drivers
• 9. Pestaña CONEXIONgenerarUsar la cadena de conexiónPestaña CONEXION Usar la cadena de conexión – generar
• 10. Nombre de DSNnuevo
• 11. Microsoft Access driversiguiente
• 12. examinar
• 13. “Buscar la Base de Datos”guardar
• 14. siguiente
• 15. finalizar
• 16. seleccionar
• 17. Buscar la Base de Datos”aceptar
• 18. aceptar
• 19. aceptar
• 20. Seleccionar el origen de datos
• 21. En este caso esta seleccionado el origen de dato como adcmd Tble (por que lo que estamos conectando es tabla)Aquí selecciona la tabla que desea conectar
• 22. Luego seleccionamos los text y le aplicamos la propiedad datasource-adodc1.propiedad datasource-adodc1.text
• 23. Luego seleccionamos los text, nos ubicamos en la propiedad data fiel y aplicamos el nombre del campo correspondiente a cada text según cada label.labelpropiedadtext
• 24. Aclaración del punto anteriorpropiedadlabeltextNombres que se le aplican a los text según cada label
• 25. Ok ya puedes correr tu programa, si has seguido los pasos correctamente entonces tu trabajo va asíClic aquí para pasar al dato siguiente
• 26. Luego puedes agregar un menú y agregarle códigos para añadir y/o eliminar datos de tu base de datos. En el siguiente trabajo se siguieron estos pasos correctamente y además se les agregaron códigos para añadir y eliminar datos de tu base de datos, además se le aplicaron colores y otras cosas para personalizarlo.

Codigos

Código para Guardar

Private Sub Commamd1_Click()
If Rspractica.state = adStateOpen Then
Rspractica.Close
End If
sql = "Select * from Estudiante where Cedula =´"& Text1 .Text &"`"
Rspractica.Opensql, Cnpractica, adOpenKeyset, adLockBatchOptimistic
If Rspractica.EOF Then
Rspractica.AddNew
Rspractica!Cedula = Text1.Text
Rspractica!Nombre = Text 2.Text
Rspractica!Apellido = Text3.Text
Rspractica.UpdateBatch
Msgbox" su registro fue almacenado con exito"
Else
Msgbox"este registro ya existe"
End If
End Sub

Código de Borrar

Private Sub Command2_Click()

borrar = "delate * from Estudiante where Cedula =`" & Text1.Text &"´"

Cnpractica.Execute borrar

Msgbox("su registro a sido eliminado")

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Código de Actualizar

Private Sub Command3_Click()

If  Rspractica.State = adStateOpen Then

Rspractica.Close

End If

sqlbuscar4 = "selet * from Estudiante where Cedula = ´" & Text1.Text & "´"

Rspractica.Open sqlbuscar4, Cnpractica, adOpenKeyset, adLockBatchOptimistic

Rspractica!Cedula = Text1.Text

Rspractica!Nombre = Text2.Text

Rspractica!Apellido = Text3.Text

Rspractica.UpdateBatch

Msgbox (" su registro a sido modificado con exito"), vbinformation

End Sub

Código de Buscar

Private Sub Command4_Click

If Rspractica.State = adStateOpen Then

Rspractica.close

End If

sqlbuscar2 = "select * from Estudiante where Cedula =´" & Text1.Text & "´"

Rspractica.Open sqlbuscar2, Cnpractica, adOpenKeyset, adLockBatchOptimistic

If Not Rspractica.EOF Then

Text1.Text = Rspractica!Cedula

Text2.Text = Rspractica!Nombre

Text3.Text = Rsprasctica!Apellido

Else

Msgbox"este registro no existe"

End If

End Sub

 Código de Modulo

General

Public Cnpractica As New ADODB.Connection

Public Rspractica As New ADODB.Recordset

Sub main()

Cnpractica.Open "dsnpractica","",""

If Cnpractica.State = adStateOpen Then

Form1.show

Else

Msgbox "revise la conexion"

End If

End Sub