Estudiante

Solo disponible en BuenasTareas
  • Páginas : 3 (624 palabras )
  • Descarga(s) : 4
  • Publicado : 15 de abril de 2010
Leer documento completo
Vista previa del texto
Option Explicit

Dim db As New Connection

Type pelicula
titulo As String
director As String
productor As String
nominaciones As Integer
precio As Currency
id AsInteger
End Type

Sub main()
Dim pel(4) As pelicula
Dim ind As Integer
Dim opc As Integer
Dim consec As Integer

ind = 0
consec = 1
Do
opc = menu1()
If opc = 1 Then Call ingresarIf opc = 2 Then Call consultar(pel, ind)
If opc = 3 Then Call modificar(pel, ind)
If opc = 4 Then Call eliminar(pel, ind)
Loop While opc 5

End Sub

Function menu1() As IntegerDim m As String
m = " VIDEO TIENDA" & Chr(13) & Chr(13)
m = m & "1. Ingresar Peliculas" & Chr(13)
m = m & "2. Consultar" & Chr(13)
m = m & "3. Modificar" & Chr(13)
m = m& "4. Eliminar" & Chr(13)
m = m & "5. Salir" & Chr(13) & Chr(13)
m = m & " Seleccione una Opcion"
menu1 = InputBox(m)
End Function

Sub ingresar()

Dim rs As New RecordsetDim resp As String
Dim m_SQL As String
Dim p As pelicula
Dim r As String


m_SQL = "insert into pel (titulo, director, productor, nominaciones, precio) values ('" &p.titulo & "','" & p.director & "','" & p.productor & "'," & p.nominaciones & ", " & p.precio & ")"
Set rs = db.Execute(m_SQL)


resp = "s"

MsgBox ("Lo siento, no sepueden ingresar m?s pel?culas")

Do
MsgBox ("Datos para pelicula" & 1)
p.titulo = InputBox("ingrese el titulo")
p.director = InputBox("ingrese elnombre del director")
p.productor = InputBox("ingrese el nombre del productor")
p.nominaciones = InputBox("ingrese el numero de nominaciones")
p.precio =InputBox("ingrese el valor del alquiler")



resp = InputBox("Desea ingresar otra pel?cula? (s/n)")
Loop While (resp = "s")

End Sub

Sub...
tracking img