Solo para expertos, ( busquedas)
Publicado por Fabian de Pipinas (14 intervenciones) el 19/06/2007 18:52:53
hola: Aqui le mando un codigo completo de como ingresar, modificar, borrar y buscar, solo que en la busqueda no me funciona, quizas no supe explicar bien mi problema la primera vez que pedi ayuda, bueno mi problema es que en la parte de busqueda no lo puedo hacer andar por mas que pase horas haciendolo, ya estoy re-mal por que yo no puedo solucionarlo, les pido a los expertos que me ayuden, sin mas muchas gracias.
Private Sub Command1_Click(Index As Integer)
Rem Para Agregar uso
Rem Data1.Recordset.AddNew
Rem Para Modificar uso
Rem Data1.Recordset.Edit
Rem Para Cancelar uso
Rem Data1.Recordset.CancelUpdate
Rem Para Ok uso
Rem Data1.Recordset.Update
Rem Nota 1: Update se usa, solo si antes hubo Edit o Addnew
Rem Nota 2: CancelUpdate se usa, solo si antes hubo Edit o Addnew
Rem Agregar
If Index = 2 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Data1.Recordset.AddNew
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If
Rem modificar
If Index = 0 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Data1.Recordset.Edit
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If
Rem Cancelar
If Index = 1 Then
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Data1.Recordset.CancelUpdate
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If
Rem Fin
If Index = 4 Then
End
End If
Rem Primero
If Index = 9 Then
Data1.Recordset.MoveFirst
End If
Rem Ultimo
If Index = 8 Then
Data1.Recordset.MoveLast
End If
Rem Avanzar
If Index = 7 Then
Rem Avanzo
Data1.Recordset.MoveNext
Rem pregunto si estoy al final y emito un sonido
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If
End If
Rem Retroceder
If Index = 5 Then
Rem si no estoy al principio retrocedo
Data1.Recordset.MovePrevious
Rem pregunto si estoy en el comienzo y emito un sonido
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If
End If
Rem Buscar
If Index = 6 Then
Data1.RecordsetType = 0
Data1.Refresh
Data1.Recordset.Index = "Nombre" 'Fue definido en la base de datos
Rem varMarcador = Data1.Recordset.Bookmark ' Almaceno la posicion actual
b$ = InputBox("Indique el Nombre de Cliente", "Buscar")
'Data1.Recordset.Seek "=", b$ 'Lo anule porque me da un error 524
' Si no encuentra el dato en la base y no se que es
Data1.Recordset.MoveFirst 'Me posiciono en el primer registro
Encontrado = False
While (Not Data1.Recordset.EOF) And (Encontrado = False)
If UCase(Text1.Text) = UCase(Trim(b$)) Then
'If UCase( Data1.Recordset!Nombre) = UCase(Trim(b$)) Then
Encontrado = True
Else
Rem Data1.Recordset.Bookmark = varMarcador
Data1.Recordset.MoveNext
End If
Wend
If Encontrado = True Then
MsgBox "Registro Existente"
Encontrado = False
Else
MsgBox "Registro Inexistente"
End If
End If
Rem Borrar
If Index = 3 Then
Data1.Recordset.Delete
End If
Rem OK
If Index = 10 Then
Rem deshabilito todos los text
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Rem Creo que actualiza el registro
Data1.Recordset.Update
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If
End Sub
Private Sub Form_Load()
Rem Cancelo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
' Ajusto al ancho del Form1
IngreBusModCli.Width = 9300
' Ajusto el largo del Form1
IngreBusModCli.Height = 6300
End Sub
FABIAN..................
Private Sub Command1_Click(Index As Integer)
Rem Para Agregar uso
Rem Data1.Recordset.AddNew
Rem Para Modificar uso
Rem Data1.Recordset.Edit
Rem Para Cancelar uso
Rem Data1.Recordset.CancelUpdate
Rem Para Ok uso
Rem Data1.Recordset.Update
Rem Nota 1: Update se usa, solo si antes hubo Edit o Addnew
Rem Nota 2: CancelUpdate se usa, solo si antes hubo Edit o Addnew
Rem Agregar
If Index = 2 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Data1.Recordset.AddNew
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If
Rem modificar
If Index = 0 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Data1.Recordset.Edit
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If
Rem Cancelar
If Index = 1 Then
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Data1.Recordset.CancelUpdate
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If
Rem Fin
If Index = 4 Then
End
End If
Rem Primero
If Index = 9 Then
Data1.Recordset.MoveFirst
End If
Rem Ultimo
If Index = 8 Then
Data1.Recordset.MoveLast
End If
Rem Avanzar
If Index = 7 Then
Rem Avanzo
Data1.Recordset.MoveNext
Rem pregunto si estoy al final y emito un sonido
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If
End If
Rem Retroceder
If Index = 5 Then
Rem si no estoy al principio retrocedo
Data1.Recordset.MovePrevious
Rem pregunto si estoy en el comienzo y emito un sonido
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If
End If
Rem Buscar
If Index = 6 Then
Data1.RecordsetType = 0
Data1.Refresh
Data1.Recordset.Index = "Nombre" 'Fue definido en la base de datos
Rem varMarcador = Data1.Recordset.Bookmark ' Almaceno la posicion actual
b$ = InputBox("Indique el Nombre de Cliente", "Buscar")
'Data1.Recordset.Seek "=", b$ 'Lo anule porque me da un error 524
' Si no encuentra el dato en la base y no se que es
Data1.Recordset.MoveFirst 'Me posiciono en el primer registro
Encontrado = False
While (Not Data1.Recordset.EOF) And (Encontrado = False)
If UCase(Text1.Text) = UCase(Trim(b$)) Then
'If UCase( Data1.Recordset!Nombre) = UCase(Trim(b$)) Then
Encontrado = True
Else
Rem Data1.Recordset.Bookmark = varMarcador
Data1.Recordset.MoveNext
End If
Wend
If Encontrado = True Then
MsgBox "Registro Existente"
Encontrado = False
Else
MsgBox "Registro Inexistente"
End If
End If
Rem Borrar
If Index = 3 Then
Data1.Recordset.Delete
End If
Rem OK
If Index = 10 Then
Rem deshabilito todos los text
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Rem Creo que actualiza el registro
Data1.Recordset.Update
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If
End Sub
Private Sub Form_Load()
Rem Cancelo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
' Ajusto al ancho del Form1
IngreBusModCli.Width = 9300
' Ajusto el largo del Form1
IngreBusModCli.Height = 6300
End Sub
FABIAN..................
Valora esta pregunta
0