Quisiera que me ayudes en una sentencia sql con fecha

Tengo una bd access y tengo un campo fecha lo que quiero hacer es una sentencia que me busque el rango del año es decir yo coloco 012001 en un texbox y este me busque en mi tabla dicho rango en un año en especifico por el campo fecha o orientarme al respecto

1 respuesta

Respuesta
1
Lo que debes hacer es tomar de alguna forma el año (sino sabes como hacer te puedo ayudar) y con el mismo realizar una consulta que busqué según el año que le pases los datos a mostrar:
Select *
From Tabla
Where NombreCampoFecha= unaFecha


Debes pasarle el parámetro unaFecha que es la que va a buscar, de esta forma estarías mostrando todos los registros que contengan el año indicado.
PD: no comprendo lo del rango, ¿entre un año y otro? ¿O entre un mes y otro?
Gracias por tu respuesta en verdad tengo problemas mi bd access tengo ciertos campo fechas y me da error si los dejo como fechas te explico bien es una aplicación en vb6.0 y ella me guarda en una tabla llamada datos y tengo un formulario aparte que genera reportes en archivos planos y este tiene un textbox llamado fecha y allí debería introducir el mes y el año del reporte que voy a generar por darte un ejemplo 012001 pero me da error te voy a enviar la sentencia que utilizo para ejecutar el archivo:
Esto no hace nada porque si los campos relacionados los coloco como fea no hace la búsqueda y no se porque la parte que tiene el format me da un error de sentencia en verdad ya estoy desesperado y agradecería tu ayuda
Private Sub Command1_Click()
On Error GoTo Errores
Dim RsTabla As New ADODB.Recordset
Dim sArchivo As String
Dim Texto As String
Dim Campo As String
Dim sQuery As String
Dim campo2 As Date
Dim campo10 As Date
Dim campo17 As Date
If fecha.Text = "" Then
Exit Sub
End If
sQuery = "SELECT * FROM datos where mid(campo73,4,5)='" & fecha.Text & "' Order by campo73"
RsTabla.Open sQuery, Conexion, adOpenDynamic, adLockOptimistic
If RsTabla.BOF = True And RsTabla.EOF = True Then
MsgBox "No existen registro para esa Fecha...", vbInformation
fecha.Text = ""
Exit Sub
End If
sArchivo = "FONGAR 4101_" & fecha.Text & ".TXT"
Open "c:\Sifoga-TxT\" & sArchivo For Output As #1
RsTabla.MoveFirst
Campo = " "
Do While Not RsTabla.EOF
Texto = Texto + RsTabla.Fields(0)
Texto = Texto + Espacios(Format(campo2, "ddmmyyyy"), RsTabla.Fields(1), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(2), 4, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(3), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(4), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(5), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(6), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(7), 9, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(8), 1, 0, " ")
Texto = Texto + Espacios(Format(campo10, "ddmmyyyy"), RsTabla.Fields(9), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(10), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(11), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(12), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(13), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(14), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(15), 9, 1, "0")
Texto = Texto + Espacios(Format(campo17, "ddmmyyyy"), RsTabla.Fields(16), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(17), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(18), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(19), 15, 0, " ")
'--prestatario1
Texto = Texto + Espacios(RsTabla.Fields(20), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(21), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(22), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(23), 9, 1, "0")
Texto = Texto + Espacios(Format(campo25, "ddmmyyyy"), RsTabla.Fields(24), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(25), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(26), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(27), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(28), 9, 1, "0")
'--prestatario2
Texto = Texto + Espacios(RsTabla.Fields(29), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(30), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(31), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(32), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(33), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(34), 9, 1, "0")
Texto = Texto + Espacios(Format(campo36, "ddmmyyyy"), RsTabla.Fields(35), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(36), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(37), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(38), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(39), 9, 1, "0")
'--prestatario3
Texto = Texto + Espacios(RsTabla.Fields(40), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(41), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(42), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(43), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(44), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(45), 9, 1, "0")
Texto = Texto + Espacios(Format(campo47, "ddmmyyyy"), RsTabla.Fields(46), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(47), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(48), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(49), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(50), 9, 1, "0")
'--prestatario4
Texto = Texto + Espacios(RsTabla.Fields(51), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(52), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(53), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(54), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(55), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(56), 9, 1, "0")
Texto = Texto + Espacios(Format(campo58, "ddmmyyyy"), RsTabla.Fields(57), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(58), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(59), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(60), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(61), 9, 1, "0")
'--Tipo de Inmueble
Texto = Texto + Espacios(RsTabla.Fields(62), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(63), 6, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(64) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(65) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(66), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(67) * 100, 5, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(68), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(69), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(70), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(71) * 100, 14, 1, "0")
Texto = Texto + Espacios(Format(campo73, "ddmmyyyy"), RsTabla.Fields(72), 8, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(73), 3, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(74), 2, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(75) * 100, 4, 1, "0")
Texto = Texto + Espacios(Format(campo77, "ddmmyyyy"), RsTabla.Fields(76), 8, 1, "0")
'--Area de Asistencia
Texto = Texto + Espacios(RsTabla.Fields(77), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(78), 10, 1, "0")
Texto = Texto + "0" '(rsTabla.Fields(79)
Texto = Texto + Espacios(RsTabla.Fields(80), 20, 0, " ")
Texto = Texto + "0" 'rsTabla.Fields(81)
Texto = Texto + Espacios(RsTabla.Fields(82) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(83) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(84) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(85), 1, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(86), 90, 0, " ")
Texto = Texto + Espacios(Campo, 28, 0, " ")
Print #1, Texto
Texto = ""
RsTabla.MoveNext
Loop
Close #1
fecha.Text = ""
fecha.SetFocus
RsTabla.Close
MsgBox "Archivo Generado", vbInformation
Errores:
If Err.Number <> 0 Then
If Err.Number = -2147217900 Then
MsgBox "Archivo AFOGOILP.DBF no existe....", vbCritical
Err.Clear
End If
If Err.Number = -2147467259 Then
MsgBox "El ODBC no existe....", vbCritical
Err.Clear
End If
If Err.Number <> -2147217900 And Err.Number <> -2147467259 Then
MsgBox Err.Description, vbCritical, "Error nro. " & Err.Number
Err.Clear
End If
End If
End Sub
Si quieres pasar el parámetro de una fecha tiene que ser correctamente, ya que 012001 no es una fecha válida. Por eso te está dando un error, te recomendaría que colocaras el primer día de cada mes, y luego lo quites al presentar el reporte, si pones como Fecha el número 012001, te está tomando sólo el 12001 y dejaría como fecha 08/11/1932 .
En esta línea
Texto = Texto + Espacios(Format(campo58, "ddmmyyyy"), RsTabla.Fields(57), 8, 0, "0")
Verifica lo que está en negrita si lo has echo correctamente.
Gracias por responderme tan rapido pero si transformo los campos de mi bd access a fechas me genera un error por que sera dime los dejo como fecha o como texto había pensado en un lost focus y transformarla después que pierda el foco pero el validate cuando voy a modificar un dato me genera borra el text transformado porque no cumple con las especificaciones de fecha como puedo hacer para desactivar el validate cuando este sea una cadena numérica por ejemplo 24-05-2005 y después del lost focus lo transforma 02052005 pero cuando quiero modificar y me agarra el foco de nuevo en los textbox modificado de campo fecha y me da error ejemplo estos son mis validate para fechas
If Not IsDate(TxtCampo17) Then
Cancel = True
MsgBox "Por favor Ingrese fecha (dd-mm-año)"
TxtCampo17 = ""
End If
Como hago para que no me genere este error después de haberlo guardado por favor y gracias tus ayudas han servido de mucho
Si colocas de tipo de dato Fecha/Time en tu base de datos, desde visual la variable debes declararla como Date y no como String. Puede darte errores por varias cosas entre ellas, datos incorrectos o mal colocados, ej. 16/91/2005.


"dime los dejo como fecha o como texto había pensado en un lost focus y
transformarla después que pierda el foco pero el validate cuando voy a
modificar un dato me genera borra el text transformado porque no cumple
con las especificaciones de fecha como puedo hacer para desactivar el
validate cuando este sea una cadena numérica por ejemplo 24-05-2005 y
después del lost focus lo transforma 02052005 pero cuando quiero
modificar y me agarra el foco de nuevo en los textbox modificado de
campo fecha y me da error.."
Bien, te recomendaría que revisaras si la fecha está correcta en el momento de guardar, o sea, para guardar utilizas un botón, ¿verdad?, bueno en ese momento verifiques,

24-05-2005 no lo va a tomar como válido, debes usar 24/05/2005
Para verificar si una cadena o contenido de textbox es numérica verifícalo así:
If IsNumeric(TextBox1.Text) = True Then
   MsgBox "Es numérico"
Else
   MsgBox "No Es numérico"
End If
Muéstrame de la forma en que guardas y dime donde te da error para verificar que es lo que está mal,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

¿Como cargar un valor recorriendos los controles (TextBox) de un formulario?

A tod@s! En un formulario tengo un ListBox, al ejecutar una accion llama a una macro, ejecutando un codigo. Este codigo esta en un modulo y consiste en recorrer las columnas de la fila elegida en el Listbox y añadiendolo a los TextBox de un...
1 respuesta

Cómo borrar un texto predeterminado en un Textbox al hacer click

Tengo un Textbox en un formulario con un texto predeterminado, Segundo Nombre, pero quisiera que al hacer click en este desaparezca automáticamente para empezar a completar la información deseada. La información del Segundo Nombre se graba en la...
3 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas

Resaltar celda de hoja1 si la celda de la hoja2 es igual

Me podrian ayudar necesito una macro para resaltar las celdas de la hoja1 de color amarillo conforme se van agregando en la hoja 2. Hoja1 hoja2 NOMBRE NOMBRE LUIS ERNESTO JUAN FABIO PEDRO LUIS ISAIAS PEDRO ESTEBAN PAOLO MAURO
3 respuestas

¿Se pueden automatizar procesos en excel?

La presente es para solicitar amablemente su ayuda, como pueden observar en el presente archivo de excel denominado relación de consumos de QBANO, tengo 3 hojas con los siguientes nombres: HODECOL, MULTIVACIONES Y SERVINCLUIDOS, necesito una macro o...
1 respuesta

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Valores duplicados en hoja de excel con macro

Necesito ayuda con esta macro tengo una tabla donde ingreso datos, quiero que cuando encuentre uno repetido me salga un mensaje que ya esta registrado. Private Sub CommandButton_aceptar_Click() prueba =...
1 respuesta

Llamar datos de formulario en excel

Necesito ayuda tengo un formulario en excel donde tengo 2 hojas en un libro, quiero llamar a los datos cuando se pone los datos en el primer textbox.
2 respuestas

Diferencias entre fechas devuelva año mes días

Tengo en un campo del formulario esto =DifFecha("d";[Formularios]![coches mantenimientos]![AÑO];[FECHA]), me devuelve correctamente los días entre las fechas, pero yo quería en vez de días me dijera La diferencia en años, meses y días.
2 respuestas