Motor De Base De Datos

MICROSOFT ACCES Y VISUAL BASIC 6.0





















Microsoft Access: es un sistema de gestión de bases de datos relacionales para los sistemas operativos MicrosoftWindows, desarrollado por Microsoft y orientado a ser usado en un entorno personal o en pequeñas organizaciones

[pic]

[pic]

Conexión de visual Basic con acces utilizando la herramienta adodc1[pic]



[pic]



[pic]



[pic]









[pic]



[pic]

Consulta de Datos

[pic]



Btn_Consulta

Dim ocone As ADODB.Connection
Dim oregi As ADODB.RecordsetSet ocone = New ADODB.Connection
Set oregi = New ADODB.Recordset
With ocone
.CursorLocation = adUseClient
.ConnectionString = Me.Adodc1.ConnectionString
.OpenEnd With
'sql (Structure Query Languaje)
csql = "Select * from tblempleado where ideemp=" + Me.txtcod
Set oregi = ocone.Execute(csql)
If oregi.RecordCount 0 Then'existe empleado
Me.txtnom = oregi!nomemp
Me.txtdir = oregi!diremp
Me.txttel = oregi!telemp
Me.txtema = oregi!emaemp
Else
p = MsgBox("No existe empleado",vbOKOnly, "Empresa")
End If
ocone.Close
Me.btnlim.SetFocus


Ingreso de datos [pic]
[pic]





[pic]





Btn_con

Dim ocone As ADODB.Connection
Dim oregi AsADODB.Recordset
Set ocone = New ADODB.Connection
Set oregi = New ADODB.Recordset
With ocone
.CursorLocation = adUseClient
.ConnectionString = Me.AdoCon.ConnectionString.Open
End With
If Me.btncon.Caption = "Consultar" Then
'proceso consulta
csql = "select * from tblempleado where ideemp=" + Me.txtcod
Set oregi =ocone.Execute(csql)
If oregi.RecordCount 0 Then
'existe informacion
Me.txtnom = oregi!nomemp
Me.txtdir = oregi!diremp
Me.txttel = oregi!telemp...