Ayuda con vb

[JCA_AVINHA]

HOLA BUENOS DIAS SOY NUEVO EN ESTE FORO, ESPERO QUE MI PREGUNTA ESTE BIEN. TENGO UN FOR. PARA BUSCAR REGISTROS ENTRE DOS FECHAS, LO EJECUTO Y AL PONER LAS FECHAS NO ME PONE NINGUN REG. NI ME DA ERROR.
ESTOY TRABAJANDO EN VB Y LA BASE DE DATOS EN ACCSES. LA PROG ES LA SIG.

Private Sub Command1_Click()
Data1.RecordSource = "select * from ingresos where fecha between " & Val(Text1) & " And " & Val(Text2) & ""
Data1.Refresh

End Sub

INGRESOS ES LA TABLA Y FECHA ES EL CAMPO
EN EL MSFLEXGRID NO ME PONE NINGUN REGISTRO

ESPERO ME PUEDAN AYUDAR

[huesos52]

Dos cosas.

1. Si no estoy mal, las fechas en access deben ingresarse con #. por ejemplo: #2009-05-13#
2. Al decirle val(Text1) retorna un valor numerico y al parecer necesitas un valor date.

Un saludo.

[GatorV]

Tema trasladado desde Bases de Datos

http://www.forosdelweb.com/f21/funci...-datos-413499/

[JCA_AVINHA]

Iniciado por huesos52

Dos cosas.

1. Si no estoy mal, las fechas en access deben ingresarse con #. por ejemplo: #2009-05-13#
2. Al decirle val(Text1) retorna un valor numerico y al parecer necesitas un valor date.

Un saludo.

OK, Y COMO LE HAGO PARA INGRESAR LAS FECHAS A LA BASE DE DATOS .
LO ESTOY HACIENDO CON UN LABEL EL CUAL AL EJECUTAR EL FORM ME DA LA FECHA.

Private Sub Form_Load()
Format (Label6 = "dd/mm/yyyy")
Dim MIFECHA
MIFECHA = Date
Label6.Caption = MIFECHA
End Sub

TE AGRADESCO DE ANTEMANO...

[huesos52]

No recuerdo muy bien, pero creo que no es necesario castear el contenido del label.

Creo que esto funciona:

var = "insert into tabla (fecha) values(#" & label.text & "#)";

Si me equivoco, aca me corregirán. Un saludo.

[David]

Hola huesos52, un gusto verte por acá.

Creo también que está correcto, sólo que en lugar de Label.Text es Label.Caption.

Saludos.

[huesos52]

Tienes razón david.

Ya me he acostumbrado del todo a c#. (Aquí si es label.text)

Un gusto verte también.

[gogupe]

Private Sub Command1_Click()
Data1.RecordSource = "select * from ingresos where fecha between " & Val(Text1) & " And " & Val(Text2) & ""
Data1.Refresh

End Sub

Las operaciones con fecha en access se tienen que cerrar con el caracter #, y tienen el formato dd/mm/yyyy. Yo lo pondría asi:

Private Sub Command1_Click()
Data1.RecordSource = "select * from ingresos where fecha between #" & format (Text1,"mm/dd/yyyy") & "# And #" format(Text2,"dd/mm/yyyy") & "#"
Data1.Refresh

End Sub