Sql de visual basic
Estoy iniciando en el lenguaje visual basic. Tengo una duda al momento de querer utilizar sql.
Quiero realizar un consulta con los siguientes datos.
Private Sub BotonAsientos_Click()
Dim BaseDeDatos As Database
Dim Tarifa01 As Recordset
Marca = AuxCveMar.Value
Origen = AuxCveOri.Text
Destino = AuxCveDes.Text
Hora = Val(AuxCveHor.Text)
Dia = AuxCveDia.Value
Mes = AuxCveMes.Value
Ao = AuxCveAo.Value
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
End Sub
Al momento de ejecutar el formulario me manda el siguiente mensaje:
Error 3061 en tiempo de ejecución:
Pocos parámetros se esperaban 2
Agradezco de antemano tu valiosa ayuda.
Saludos
Alberto Rosas
Quiero realizar un consulta con los siguientes datos.
Private Sub BotonAsientos_Click()
Dim BaseDeDatos As Database
Dim Tarifa01 As Recordset
Marca = AuxCveMar.Value
Origen = AuxCveOri.Text
Destino = AuxCveDes.Text
Hora = Val(AuxCveHor.Text)
Dia = AuxCveDia.Value
Mes = AuxCveMes.Value
Ao = AuxCveAo.Value
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
End Sub
Al momento de ejecutar el formulario me manda el siguiente mensaje:
Error 3061 en tiempo de ejecución:
Pocos parámetros se esperaban 2
Agradezco de antemano tu valiosa ayuda.
Saludos
Alberto Rosas
1 respuesta
Respuesta de adrianxxi
1
Vamos por partes...
Seguun el código declaras esto:
Dim BaseDeDatos As Database
y luego usas otro nombre para abrir la base.
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Y dos veces seguidas...
Haz una cosa... ejefuta el programa presionando la tecla F8 en lugar de F5 así va a ir ejecutándose linea a linea cada vez que presiones F8.
Fíjate en la linea que provoca el error y comentame cual es...
Seguun el código declaras esto:
Dim BaseDeDatos As Database
y luego usas otro nombre para abrir la base.
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Y dos veces seguidas...
Haz una cosa... ejefuta el programa presionando la tecla F8 en lugar de F5 así va a ir ejecutándose linea a linea cada vez que presiones F8.
Fíjate en la linea que provoca el error y comentame cual es...
Muchas gracias por tu pronta respuesta
Mira: en base a tus comentarios ya realize el cambio en el código, este quedo de la siguiente manera.
Private Sub BotonAsientos_Click()
Dim ArcVtaTurno As Database
Dim Tarifa01 As Recordset
Marca = AuxCveMar.Value
Origen = AuxCveOri.Text
Destino = AuxCveDes.Text
Hora = Val(AuxCveHor.Text)
Dia = AuxCveDia.Value
Mes = AuxCveMes.Value
Ao = AuxCveAo.Value
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
End Sub
REALIZE LA PRUEBA CON F8 Y SE DETUVO EN :
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
Ahí es donde me manda el mensaje de error:
Error 3061 en tiempo de ejecución:
Pocos parámetros se esperaban 2
Saludos
Alberto Rosas
Mira: en base a tus comentarios ya realize el cambio en el código, este quedo de la siguiente manera.
Private Sub BotonAsientos_Click()
Dim ArcVtaTurno As Database
Dim Tarifa01 As Recordset
Marca = AuxCveMar.Value
Origen = AuxCveOri.Text
Destino = AuxCveDes.Text
Hora = Val(AuxCveHor.Text)
Dia = AuxCveDia.Value
Mes = AuxCveMes.Value
Ao = AuxCveAo.Value
Set ArcVtaTurno = OpenDatabase "c:\VentaPC\BDVentas.mdb")
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
End Sub
REALIZE LA PRUEBA CON F8 Y SE DETUVO EN :
Set Tarifa01 = ArcVtaTurno.OpenRecordset("SELECT * FROM VTVTATURNO WHERE TUORICOR = Origen AND TUDESCOR = Destino")
Ahí es donde me manda el mensaje de error:
Error 3061 en tiempo de ejecución:
Pocos parámetros se esperaban 2
Saludos
Alberto Rosas
