buscar fechas en una tabla de la base de datos

[davidtcsi]

bueno, hola primeramente espero q les vaya muy bien, tengo un problema y espero que me ayuden a solucionarlo, y espero ser lo mas claro y especifico posible por q nose exactamente como plantear la pregunta, bueno aqui voy.

tengo una base de datos con unas tablas llamadas nuevo_evento y ventas_evento
cuando agrego un nuevo evento en la tabla "nuevo_evento" esté me agrega tambien los datos necesarios o similares en la tabla ventas_evento, como cuales:

nombre, direccion, hora, costo.

cuando voy a realizar la venta en un formulario en vb 6.0 tengo q ver si el nombre de la caja de texto es igual al nombre del evento en la tabla de ventas_evento.
(por q los datos tambien van en la tabla ventas_evento, los mas relevantes)
yo tengo q realizar varias ventas por dia, la cosa es que no quiero q el sistema me guarde varias ventas del mismo dia, para que no se me acumule tantos registros en la base de datos.

SINO que me actualize la fecha del mismo dia y vaya almacenando la informacion, y cuando haya una nueva fecha o un nuevo dia me agrege otro registro y vaya almacenandose en ese registro la informacion y haci sucesivamente.

el caso es que yo lo hice, pero cuando agrego una nueva fecha siempre me agrega un nuevo registro y nunca lee a ver si la fecha esta repetida para actualizar el registro. aqui esta el codigo que yo hice a ver como me pueden ayudar. el cdate(text1) es donde yo hago la comparacion de la fecha q agrego con la fecha en la base de datos.

a otra cosa, cuando lo voy a actualizar por primera vez le agrego una condicion de que la fecha esta vacia o esta "-----" agrega el registro o lo actualiza y luego con la fecha agregada sique la rutina antes planteada.

aqui esta mi codigo.

Private Sub CmdActualizar_Click()
VentasDias.MoveFirst
While Not VentasDias.EOF
If VentasDias!nombreevento = TxtData(1) Then
If VentasDias!fechadia = CDate(Text1) Or VentasDias!fechadia = "----" Then
VentasDias.Edit
VentasDias!codigo = TxtData(0)
VentasDias!nombreevento = TxtData(1)
VentasDias!precioventa = TxtData(5)
VentasDias!fechadia = DTPnuevo
VentasDias.Update
MsgBox "La venta se realizo con exito!!!!!!!! 2", vbInformation
Exit Sub
Else
If VentasDias!fechadia <> CDate(Text1) Then
VentasDias.AddNew
VentasDias!codigo = TxtData(0)
VentasDias!nombreevento = TxtData(1)
VentasDias!precioventa = TxtData(5)
VentasDias!fechadia = DTPnuevo
VentasDias.Update
MsgBox "La venta se realizo con exito!!!!!!!! 3", vbInformation
Exit Sub
End If
End If
Else
VentasDias.MoveNext
End If
Wend
End Sub

espero q me puedan solucionar el problema o ayudarme con el mismo. gracias

[vicentecamesella]

Que base de datos usas si es mysql utiliza donde la mandas a actualizar esta funcion ejemplo
r!fecha = format_(txtfecha.text,"yyyy-mm-dd") y cuando la llamas al formularios el format seria dd-mm-yyyy

[davidtcsi]

estoy usando access y ya intente eso y no me funciona

[vicentecamesella]

en acces no se mucho pero el where seria "where fecha=' " & valor del campo & " ' " espero te sirva

[Avellaneda]

Iniciado por vicentecamesella

en acces no se mucho pero el where seria "where fecha=' " & valor del campo & " ' " espero te sirva

En Access, para selecionar un campo de fecha se utilizan las almohadillas (#)

...WHERE CampoFecha = #" & Variable & "#"

[davidtcsi]

hola buenos dias, disculpa pero coloque lo q me difistes lo adapte a mi codigo y no me funciono, es como si el codigo q tengo no recorriera los registros verificando si hay fechas repetidas o no y eso es lo q quiero, que verifique y me muestre las fechas q estan o no repetidas deacuerdo a la fecha q yo le coloque, como condiciones.

[Avellaneda]

Iniciado por davidtcsi

hola buenos dias, disculpa pero coloque lo q me difistes lo adapte a mi codigo y no me funciono, es como si el codigo q tengo no recorriera los registros verificando si hay fechas repetidas o no y eso es lo q quiero, que verifique y me muestre las fechas q estan o no repetidas deacuerdo a la fecha q yo le coloque, como condiciones.

Hola, recorrer todo el recordset para obtener un valor no es una buena técnica. Hay otras formas mas rápidas y eficientes de hacer lo que quieres. p.e.

Código vb:

Dim rs As New ADODB.Recordset
Dim sql As String
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM LaTabla WHERE nombreevento = '" & TxtData(1) & "' AND fechadia = #" & _
Text1 & "#", conexion, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
    sql = "UPDATE LaTabla SET codigo='" & TxtData(0) & "', nombreevento='" & TxtData(1) & _
        "', precioventa=" & TxtData(5) & ", fechadia=#" & Format(DTPnuevo, "mm/dd/yyyy") & _
        "# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia = #" & Text1 & "#"
Else
    sql = "INSERT INTO LaTabla(codigo, nombreevento, precioventa, fechadia) VALUES(" & _
        TxtData(0) & ", '" & TxtData(1) & "', " & TxtData(5) & ", #" & Format(DTPnuevo, "mm/dd/yyyy") & _
        "# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia <> #" & Text1 & "#"
End If
conexion.Execute sql
Set rs = Nothing
 

En este ejemplo se utiliza la tecnología ADO. Si estás utilizando DAO, solo tienes que cambiar la forma de abrir el recordset.

Nota: El ejemplo no lo he probado, por lo que podría haber algún error de sintaxis, pero ahí está la idea.

[davidtcsi]

hola buenas el codigo esta bien pero hay cosas q cuando las paso a DAO no me funciona se por lo menos en la tabla q colocastes como rs yo la tengo como VentasDias pero cuando le voy a colocar el atributo OpenRecorset no me funciona qu seria algo haci VentasDias.OpenRecordset por el Open solo no existe en DAO sino en ADO cual pudiera ser la solucion?

[seba123neo]

...consejo...pasate a ADO ya y listo...

[Avellaneda]

Iniciado por davidtcsi

hola buenas el codigo esta bien pero hay cosas q cuando las paso a DAO no me funciona se por lo menos en la tabla q colocastes como rs yo la tengo como VentasDias pero cuando le voy a colocar el atributo OpenRecorset no me funciona qu seria algo haci VentasDias.OpenRecordset por el Open solo no existe en DAO sino en ADO cual pudiera ser la solucion?

Es igual; sólo cambia la forma de abrir la BD y el recordset por el método DAO:

Set conexion = OpenDatabase("MiBaseDeDatos.mdb")
Set recordset = conexion.OpenRecordset("SELECT * FROM LaTabla....")

Cambia el nombre de las variables "conexion" y "recordset" por los que les hayas asignado en tu código.

[davidtcsi]

primeramente deberan querer matarme por q sigo teniendo problemitas, ayuda plis:

Set BdEvento = OpenDatabase(App.Path & "\BdEvento.mdb")
Set VentasDias = BdEvento.OpenRecordset("SELECT * FROM ventadias WHERE nombreevento = '" & TxtData(1).Text & "' AND fechadia = #" & Text1.Text & "#", conexion, adOpenStatic, adLockOptimistic)

esto deberia de funcionar a la perfeccion pero me sale un error que dice: "Argumento no valido" en la liea de codigo: Set VentasDias = ..................

VentasDias es la tabla y BdEvento es la base de datos.

aqui esta el codigo completo a ver

Dim sql As String
Set BdEvento = OpenDatabase(App.Path & "\BdEvento.mdb")
Set VentasDias = BdEvento.OpenRecordset("SELECT * FROM ventadias WHERE nombreevento = '" & TxtData(1).Text & "' AND fechadia = #" & Text1.Text & "#", conexion, adOpenStatic, adLockOptimistic)
If VentasDias.RecordCount > 0 Then
sql = "UPDATE ventadias SET codigo='" & TxtData(0) & "', nombreevento='" & TxtData(1) & _
"', precioventa=" & TxtData(5) & ", fechadia=#" & Format(DTPnuevo, "mm/dd/yyyy") & _
"# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia = #" & Text1 & "#"
Else
sql = "INSERT INTO ventadias(codigo, nombreevento, precioventa, fechadia) VALUES(" & _
TxtData(0) & ", '" & TxtData(1) & "', " & TxtData(5) & ", #" & Format(DTPnuevo, "mm/dd/yyyy") & _
"# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia <> #" & Text1 & "#"
End If
conexion.Execute sql
Set VentasDias = Nothing

una ayudita mas, esto es lo q necesito para completar ensi el funcionamiento de mi sistema