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