3
« en: Domingo 25 de Marzo de 2007, 05:35 »
Saludos
Estoy haciendo una aplicacion con: data, MSFlexgrid, acces 97 y tengo dos pequeñitos problamitas que me tienen loko. Necesito que "Ordene alfabeticamente" los datos que ingreso a la MSFlexgrid automáticamente despues de haberlos ingresados y tambien necesito un motor de busqueda que muestre los resultados en otra MSflexgrid, tengo un motor de busqueda, pero solo busca hasta encontrar 1 registro solamente pero yo necesito un motor que busque todos los registros exitentes y que se detenga cuando ya no queden registros
ej: Tengo varios libros de un mismo autor (Larson), pero de diferentes títulos ( Claculo diferencial, Calculo Comun etc..). cuando quiero buscar a un autor que tenga varios libros, me busca hasta encontrar el primero que tenga como autor "Larson", y yo necesito que aparezcan todos los libros con autor "Larson"
Si alguien tiene algun link donde pueda investigar o si alguien tiene el codigo, por favor ayudeme
saludos ; aqui les dejo el motor de busqueda que tengo:
Private Sub Command1_Click()
Data1.Recordset.Index = "Autor"
Data1.Recordset.Seek "=", Text1
If Data1.Recordset.NoMatch Then
MsgBox "El Autor ingresado no existe", , "Intentelo Nuevamente"
Text1.Text = ""
Text1.Setfocus
Else
Data1.Recordset.Index = "Autor"
Data1.Recordset.Seek "=", Text1.Text
Grilla.Col = 0
Grilla.Text = Data1.Recordset.Fields("Numero de Registro")
Grilla.Col = 1
Grilla.Text = Data1.Recordset.Fields("Titulo")
Grilla.Col = 2
Grilla.Text = Data1.Recordset.Fields("Autor")
Grilla.Col = 3
Grilla.Text = Data1.Recordset.Fields("Nº de Copias")
Text1.Text = ""
End If
End Sub