| Ejecutar consulta desde VB |
|
|
|
| Este código ejecuta una consulta de creación de tabla, con 4 tablas relacionadas, que requiere el ingreso de 3 parámetros y luego inserta en un list el contenido de la tabla resultante. |
Dim socio, desde, hasta
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Arch.VB\Arte Video\Sistema2\bases\Clientes2.mdb"
socio = InputBox("socio")
desde = InputBox("desde")
hasta = InputBox("hasta")
hasta = Format(hasta, "dd/mm/yyyy")
desde = Format(desde, "dd/mm/yyyy")
Set reserva = conn.Execute(" SELECT Reservas.Nsocio, Reservas.Fdesde, Reservas.codpelicula, Vcvideo1.UNIDAT_1, Vcvideo2.TITULO INTO Resultadodereservasporsocio FROM ((Reservas INNER JOIN Vcclien ON Reservas.Nsocio = Vcclien.NRO_SOCIO) INNER JOIN Vcvideo1 ON Reservas.codpelicula = Vcvideo1.UNIDAT_1) INNER JOIN Vcvideo2 ON Vcvideo1.UNIDAT_1 = Vcvideo2.UNIDAT WHERE (((Reservas.Nsocio)= " & socio & " ) AND ((Reservas.Fdesde)> #" & desde & "# And (Reservas.Fdesde)< #" & hasta & "# ));")
conn.Close
Set db = OpenDatabase("C:\Arch.VB\Arte Video\Sistema2\bases\Clientes2.mdb")
Set resultados = db.OpenRecordset("Resultadodereservasporsocio", dbOpenTable)
Do While Not resultados.EOF
List2.AddItem resultados("Nsocio") & " " & resultados("Fdesde") & " " & resultados("UNIDAT_1") & " " & resultados("TITULO")
List2.ItemData(List2.ListCount - 1) = resultados("Nsocio")
resultados.MoveNext
Loop |
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
|
|
