Visual Basic - busquedas en visual basic

Life is soft - evento anual de software empresarial
 
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder