busquedas en visual basic
Publicado por Taggio (18 intervenciones) el 16/10/2001 03:58:40
Hola
Estoy realizando una base de datos la cual realize una busqueda por un rango de un campo ya sea numerico o cadena, esto lo habia hecho para un campo fecha sin problemas, alguien podria decirme ¿como lo hago con un campo numerico o de cadena?.
El codigo lo tego en visual basic, agradeceria mucho a quien me muestre como hacerlo, el codigo es el siguiente:
Private Sub cmdExecute_Click()
Dim strSQL As String
Dim db As Database
Dim dc As Recordset
Dim qrySales As QueryDef
Set db = DBEngine.Workspaces(0).OpenDatabase _
("C:\Sistemas\Proyecto de Vehiculos\Vehiculos.mdb")
Set qrySales = db.CreateQueryDef("", "PARAMETERS [Fecha de inicio] DateTime, " & _
"[Fecha de fin] DateTime; " & _
"SELECT DISTINCTROW Vehiculos.Numeco, " & _
"Vehiculos.Modelo, " & _
"Vehiculos.Kilometraje, " & _
"Orden.Fecha, Servicio.Tipo, Taller.Nombre " & _
"FROM Vehiculos INNER JOIN (Taller INNER JOIN " & _
"(Servicio INNER JOIN Orden ON Servicio.Numero = " & _
"Orden.Numero) ON Taller.Num = Orden.Num) ON " & _
"Vehiculos.Numeco = Orden.Numeco " & _
"WHERE (((Orden.Fecha) Between " & _
"[Fecha de inicio] And [Fecha de fin]))")
qrySales.Parameters("Fecha de inicio") = CDate(txtBegin)
qrySales.Parameters("Fecha de fin") = CDate(txtEnd)
Set dc = qrySales.OpenRecordset()
Set datSales.Recordset = dc
End Sub
Funciona para mostrar una busqueda en un rango de fechas.
Saludos.
Estoy realizando una base de datos la cual realize una busqueda por un rango de un campo ya sea numerico o cadena, esto lo habia hecho para un campo fecha sin problemas, alguien podria decirme ¿como lo hago con un campo numerico o de cadena?.
El codigo lo tego en visual basic, agradeceria mucho a quien me muestre como hacerlo, el codigo es el siguiente:
Private Sub cmdExecute_Click()
Dim strSQL As String
Dim db As Database
Dim dc As Recordset
Dim qrySales As QueryDef
Set db = DBEngine.Workspaces(0).OpenDatabase _
("C:\Sistemas\Proyecto de Vehiculos\Vehiculos.mdb")
Set qrySales = db.CreateQueryDef("", "PARAMETERS [Fecha de inicio] DateTime, " & _
"[Fecha de fin] DateTime; " & _
"SELECT DISTINCTROW Vehiculos.Numeco, " & _
"Vehiculos.Modelo, " & _
"Vehiculos.Kilometraje, " & _
"Orden.Fecha, Servicio.Tipo, Taller.Nombre " & _
"FROM Vehiculos INNER JOIN (Taller INNER JOIN " & _
"(Servicio INNER JOIN Orden ON Servicio.Numero = " & _
"Orden.Numero) ON Taller.Num = Orden.Num) ON " & _
"Vehiculos.Numeco = Orden.Numeco " & _
"WHERE (((Orden.Fecha) Between " & _
"[Fecha de inicio] And [Fecha de fin]))")
qrySales.Parameters("Fecha de inicio") = CDate(txtBegin)
qrySales.Parameters("Fecha de fin") = CDate(txtEnd)
Set dc = qrySales.OpenRecordset()
Set datSales.Recordset = dc
End Sub
Funciona para mostrar una busqueda en un rango de fechas.
Saludos.
Valora esta pregunta


0