Visual Basic - POR FAVOR AYUDA CON LA RELACION DE MI TABLAS DE ACCESS Y VISUAL BASIC 6.0

Life is soft - evento anual de software empresarial
   
Vista:

POR FAVOR AYUDA CON LA RELACION DE MI TABLAS DE ACCESS Y VISUAL BASIC 6.0

Publicado por Sixteen (2 intervenciones) el 06/07/2015 05:12:58
BUENAS MI PROBLEMA ES EL SIGUIENTE :

ACABO DE REALIZAR UN PEQUEÑO PROGRAMA EL CUAL SE ENCARGA DE MANTENER UN REGISTRO HISTORICO DE CADA MANTENIMIENTO SE REALIZA EN LOS EQUIPOS DE UNA ORGANIZACION

SE REALISO BAJO UNA BASE DE DATOS DE ACCESS EL CUAL CUENTA CON 2 TABLAS:

SISTEMAS:
CODIGODESISTEMA,NOMBRE,OFICINA Y RED

MANTENIMIENTOS:
CODIGO,NUMERO - MANTENIMIENTOS, FECHA Y TIPO DE MANTENIMIENTO

YO LE REALICE EN LA BASE DE DATOS DE ACCESS UNA RELACION Y CUANDO ABRO LA TABLA DE SISTEMAS PUEDO OBSERVAR LA RELACION Y ME APARECEN LO SIGUIENTE:

CODIGO, FECHA Y TIPO DE MANTENIMIENTO

Y BUENO UNA VEZ QUE FUI A REALIZAR MI PROGRAMA EN VISUAL BASIC 6.0 PUDE OBSERVAR QUE NO ME APARECE POR NINGUN LADO COMO COLOCAR PARA QUE SEA VISIBLE ESA RELACION DE MANERA QUE YO PUEDA COLOCAR LA FECHA DE CADA MANTENIMIENTOS QUE SE LE REALIZA A LOS EQUIPOS

PUEDO OBSERVAR TODA LA INFORMACION DE CADA TABLA MAS NO PUEDO OBSERVAR LA RELACION EN VISUAL BASIC

ACA ESTA EL CODIGO DE MI PROGRAMA :

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Form_Load()

End Sub

ESPERO QUE ME PUEDAN AYUDAR POR FAVOR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder