Sistema de Recorrido de Colectivo con Base de Datos (Visual Basic)

CONSIGNA
Realizar un Sistema de Recorrido de Colectivo con Base de Datos e informar los kilómetros recorridos, el chófer, y el importe del recorrido.

INTERFAZ

Realizar las Bases de Datos, para ello ir a:
Complementos > Administrador de bases de datos...
Luego ir a Archivo > Nuevo... > Microsoft Access > MDB de la Version 7.0

Base de Datos chóferes

Base de Datos unidades

iajes.jpg)

Base de Datos viajes

FUENTE

Private Sub choferes_Click()
Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\Programacion II\11-10\COLECTIVOS.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM choferes WHERE dni like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
dni = MYTABLE("dni")
mya = MYTABLE("nya")
MYTABLE.MoveNext
Loop
End Sub

Private Sub Codigo_Click()
Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\Programacion II\11-10\COLECTIVOS.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM viajes WHERE codigo like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
Codigo = MYTABLE("codigo")
destino = MYTABLE("destino")
MYTABLE.MoveNext
Loop
End Sub

Private Sub ejecutal_Click()
Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\Programacion II\11-10\COLECTIVOS.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM unidades WHERE pat like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
pat = MYTABLE("pat")
kms = MYTABLE("kms")
MYTABLE.MoveNext
Loop
Text1 = pat
Text2 = Codigo
Text3 = 0
Text4 = Text3 + kms
Text5 = Text3 * 80
Text7 = 0
Text6 = Text5 * (100 / Text7)
Text8 = Text5 + Text6
Text9 = dni
Text10 = Text3 * 20
Text11 = Text10 * 0.18
Text12 = Text10 * 0.15
Text13 = Text10 - (Text11 - Text12)
Text14 = Text5 - Text10
End Sub

Private Sub limpiar_Click()
Text1 = 0
Text2 = 0
Text3 = 0
Text4 = 0
Text5 = 0
Text7 = 0
Text6 = 0
Text8 = 0
Text9 = 0
Text10 = 0
Text11 = 0
Text12 = 0
Text13 = 0
Text14 = 0
End Sub

Private Sub salir_Click()
Unload Me
End Sub