Ayuda con código de visual basic para implementar una búsqueda en base de datos de access 97
¿Hola cómo estas?
Tengo un problema el buscar en mi base de datos es en access 97 te paso mi código al final porgo el error que me dio no se porque
Option Explicit
Dim rs As Recordset
Dim db As Database
Private Sub CmdBuscar_Click()
DataCorte.Recordset.MoveFirst
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
If DataCorte.Recordset.NoMatch Then
MsgBox ("No se encuentra la fecha")
Else
TxtCorte.Text = DataCorte.Recordset!Totales
End If
End Sub
Private Sub Form_Load()
Const sPathBase As String = "C:\syschec\BdEstacio.MDB"
'PONGO DONDE ESTA LA BASE DE DATOS
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT * FROM MaeCobranza", dbOpenDynaset)
'AQUI ES DONDE LE DIGO DONDE TENGO QUE GRABAR
End Sub
Este es el error que me da
Run time '3070'
Microsoft jet database engine does not recognize 'c' as a valid field name or expression.
Tengo un problema el buscar en mi base de datos es en access 97 te paso mi código al final porgo el error que me dio no se porque
Option Explicit
Dim rs As Recordset
Dim db As Database
Private Sub CmdBuscar_Click()
DataCorte.Recordset.MoveFirst
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
If DataCorte.Recordset.NoMatch Then
MsgBox ("No se encuentra la fecha")
Else
TxtCorte.Text = DataCorte.Recordset!Totales
End If
End Sub
Private Sub Form_Load()
Const sPathBase As String = "C:\syschec\BdEstacio.MDB"
'PONGO DONDE ESTA LA BASE DE DATOS
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT * FROM MaeCobranza", dbOpenDynaset)
'AQUI ES DONDE LE DIGO DONDE TENGO QUE GRABAR
End Sub
Este es el error que me da
Run time '3070'
Microsoft jet database engine does not recognize 'c' as a valid field name or expression.
1 Respuesta
Respuesta de kieleze
1
A ver acá no tengo el visual
Pero creo que esta linea esta mal
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
seria
DataCorte.Recordset.FindFirst ( "Fecha=" & TxtFeBusqueda.Text )
Prueba esto... sino funciona me mandas de nuevo la pregunta... me fijo desde visual...
Pero creo que esta linea esta mal
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
seria
DataCorte.Recordset.FindFirst ( "Fecha=" & TxtFeBusqueda.Text )
Prueba esto... sino funciona me mandas de nuevo la pregunta... me fijo desde visual...
Gracias ya quedo creeo que ese era mi error es que tenia que ponerlo con like Gracias De antemano quedo a tus ordenes para lo que se te ofrezca Cal = Excelente
¿No me sigue dando el mismo error no se si es pero en la base de datos es texto y en mi programa también lee texto?
Gracias
Gracias
No es lo más apropiado...
Porque después si quieres buscar por fecha ... o buscar entre algunas fechas...
Te vas a volver re loco para lograr transformar los string a fecha...
Pero si con eso te basta ... el problema no tiene nada que ver...
Si guardaste texto en la base y buscas texto ... debería aparecer...
A ver esto seria para realizar la consulta pero no estoy seguro de si funciona con el findfirs
En lugar del = usa LIKE que es para comparar texto
Porque después si quieres buscar por fecha ... o buscar entre algunas fechas...
Te vas a volver re loco para lograr transformar los string a fecha...
Pero si con eso te basta ... el problema no tiene nada que ver...
Si guardaste texto en la base y buscas texto ... debería aparecer...
A ver esto seria para realizar la consulta pero no estoy seguro de si funciona con el findfirs
En lugar del = usa LIKE que es para comparar texto
No fíjate que eno se pudo no tendré problemas con mi microsoft jet
Que linea de tu código te marca cuando da el error..
Mira la linea es esta la que da el error
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
DataCorte.Recordset.FindFirst ("Fecha=") & TxtFeBusqueda.Text
Ok acá pude probar con el visual
recordset.FindFirst ("tabla.Fecha = " & txtFeBusqueda.text )
Esto debería funcionar
Sino prueba con LIKE
El problema era que no habías puesto la tabla vas a tener que agregarla ahí arriba
recordset.FindFirst ("tabla.Fecha = " & txtFeBusqueda.text )
Esto debería funcionar
Sino prueba con LIKE
El problema era que no habías puesto la tabla vas a tener que agregarla ahí arriba
