Estoy creando una aplicación para manipular una base de datos Microsoft Access pero no deja buscar
Hola de antemano gracias por tu ayuda.
Mira estoy creando una aplicación para que pueda manipular una base de datos(ACCESS)desde visual basic, pero todo funciona correctamente(puedo añadir registros, eliminar, modificar, etc)pero el problema es cuando genero el exe de mi aplicación, el problema consiste en que puedo añadir registros, pero no puedo consultarlos,¿qué necesito y que tengo que hacer para que funcione correctamente? Gracias.
Dim refbus As String
Dim criterio As String
'************************************************************'
End Sub
Private Sub Añadir_Click()
If numero.Text = "" Or paterno.Text = "" Or materno.Text = "" _
Or nombre.Text = "" Or Puesto = "" Or Captacion = "" Then
MsgBox "Los datos que proporciona son incorrectos", vbCritical, "Error"
numero.SetFocus
Else
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End Sub
Private Sub Borrar_Click()
If Data1.Recordset.RecordCount = 0 Then
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Text2.Text = ""
Else
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Buscar_Click()
Añadir.Visible = False
Label5.Visible = False
Buscar.Visible = False
Siguiente.Visible = False
Puesto.Visible = False
Captacion.Visible = False
Borrar.Visible = True
Modificar.Visible = True
regresar.Visible = True
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = True
Data1.Visible = True
numero.Enabled = False
paterno.Enabled = False
materno.Enabled = False
nombre.Enabled = False
Text2.Enabled = False
regresar.SetFocus
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
refbus = Trim(InputBox$("Introdusca referencia a buscar", "Buscar"))
criterio = "Solicitud = '" & refbus & "'"
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "No existe esa referencia.", vbInformation, "aviso"
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End If
End Sub
Private Sub Captacion_Change()
Captación.Clear
Captacion.AddItem "ANAYA"
Captacion.AddItem "ANUNCIO PERIODICO"
End Sub
Private Sub Form_Load()
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
End Sub
Private Sub LCaptacion_Click()
Captacion.Visible = True
LCaptacion.Visible = False
End Sub
Private Sub Modificar_Click()
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
LPuesto.Enabled = True
Borrar.Visible = False
Modificar.Visible = False
LPuesto.Visible = True
LCaptacion.Visible = True
regresar.Left = 2520
regresar.Top = 5280
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
Data1.Recordset.Edit
End If
numero.SetFocus
End Sub
Private Sub Puesto_Click()
Text1.Text = Label5.Caption
End Sub
Private Sub Puesto_Change()
Puesto.Clear
Puesto.AddItem "ADMV"
Puesto.AddItem "ADVO"
End Sub
Private Sub regresar_Click()
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
numero.SetFocus
regresar.Left = 4080
regresar.Top = 5400
End Sub
Private Sub LPuesto_click()
Puesto.Visible = True
LPuesto.Visible = False
End Sub
Mira estoy creando una aplicación para que pueda manipular una base de datos(ACCESS)desde visual basic, pero todo funciona correctamente(puedo añadir registros, eliminar, modificar, etc)pero el problema es cuando genero el exe de mi aplicación, el problema consiste en que puedo añadir registros, pero no puedo consultarlos,¿qué necesito y que tengo que hacer para que funcione correctamente? Gracias.
Dim refbus As String
Dim criterio As String
'************************************************************'
End Sub
Private Sub Añadir_Click()
If numero.Text = "" Or paterno.Text = "" Or materno.Text = "" _
Or nombre.Text = "" Or Puesto = "" Or Captacion = "" Then
MsgBox "Los datos que proporciona son incorrectos", vbCritical, "Error"
numero.SetFocus
Else
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End Sub
Private Sub Borrar_Click()
If Data1.Recordset.RecordCount = 0 Then
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Text2.Text = ""
Else
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Buscar_Click()
Añadir.Visible = False
Label5.Visible = False
Buscar.Visible = False
Siguiente.Visible = False
Puesto.Visible = False
Captacion.Visible = False
Borrar.Visible = True
Modificar.Visible = True
regresar.Visible = True
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = True
Data1.Visible = True
numero.Enabled = False
paterno.Enabled = False
materno.Enabled = False
nombre.Enabled = False
Text2.Enabled = False
regresar.SetFocus
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
refbus = Trim(InputBox$("Introdusca referencia a buscar", "Buscar"))
criterio = "Solicitud = '" & refbus & "'"
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "No existe esa referencia.", vbInformation, "aviso"
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End If
End Sub
Private Sub Captacion_Change()
Captación.Clear
Captacion.AddItem "ANAYA"
Captacion.AddItem "ANUNCIO PERIODICO"
End Sub
Private Sub Form_Load()
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
End Sub
Private Sub LCaptacion_Click()
Captacion.Visible = True
LCaptacion.Visible = False
End Sub
Private Sub Modificar_Click()
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
LPuesto.Enabled = True
Borrar.Visible = False
Modificar.Visible = False
LPuesto.Visible = True
LCaptacion.Visible = True
regresar.Left = 2520
regresar.Top = 5280
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
Data1.Recordset.Edit
End If
numero.SetFocus
End Sub
Private Sub Puesto_Click()
Text1.Text = Label5.Caption
End Sub
Private Sub Puesto_Change()
Puesto.Clear
Puesto.AddItem "ADMV"
Puesto.AddItem "ADVO"
End Sub
Private Sub regresar_Click()
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
numero.SetFocus
regresar.Left = 4080
regresar.Top = 5400
End Sub
Private Sub LPuesto_click()
Puesto.Visible = True
LPuesto.Visible = False
End Sub
1 respuesta
Respuesta de horacio_tg
1
Dices que solo tienes problemas al consultarlos, supongo entonces que el problema es solo en el procedimiento Buscar_Click()
¿Estas utilizando DAO verdad?
Asegurate que cuando abras el recordset estés utilizando un cursor de tipo dynaset o snapshot, esto es para que te funcione el método findfirst
No veo el código donde abres el recordset.
También asegurate de escribir bien el criterio de búsqueda, en el ejemplo que envías supongo que solicitud es un campo tipo string, tu código se ve bien..
¿Estas utilizando DAO verdad?
Asegurate que cuando abras el recordset estés utilizando un cursor de tipo dynaset o snapshot, esto es para que te funcione el método findfirst
No veo el código donde abres el recordset.
También asegurate de escribir bien el criterio de búsqueda, en el ejemplo que envías supongo que solicitud es un campo tipo string, tu código se ve bien..
Hola, muchísimas gracias por tu ayuda, la verdad estaba tan desorientado, que algo tan fácil y no pude, pero muchísimas gracias por tu ayuda y espero lo sigas haciendo, me gustaría tener tu mail, por si en un futuro necesito ayuda haber si puedes y quieres hacerme el favor, mi correo es [email protected].
Gracias y de verdad mil gracias
Gracias y de verdad mil gracias
