| Usuario |
sql en acces |
eelorriaga
12 Mensaje(s)
|
| Enviado - 12/7/2004 |
| |
BD.Execute ("DELETE FROM PRUEBA WHERE PRUEBA.DIA<'"&f1&"';")
no deberia ser asi?
la ultima parte mas bien es la q me trae de cabeza: ' " & f1 & " ';)?
o asi ' " &f1&"'")? |
| |
|
Desconocido
|
| Enviado - 12/7/2004 |
| |
BD.Execute ("DELETE FROM PRUEBA WHERE PRUEBA.DIA<'"&f1&"';")
esto esta OK....
ahora el ; lo puedes obviar!!!....
es decir: ... < ' " & f1 & " ' ")
mira para que lo entiendas la idea es esta:
por ejm.
DELETE PRUEBA.* FROM PRUEBA WHERE PRUEBA.DIA < '15';
ahora eso solo funciona para los dias 15 pero si queremos que funcione para cualquier valor de la variable f1 entonces debemos reemplazar 15 por f1, pero es como la programacion antigua donde cerrabas la cadena con " y luego un +...(te acuerdas), bueno es igual pero en vez del + es un &...
bueno espero te sirva mi ayuda!!!
|
| |
|
eelorriaga
12 Mensaje(s)
|
| Enviado - 13/7/2004 |
| |
AGRADEZCO TU AYUDA , PERO NO ME FUNCIONA :(
AKI TA EL CODIGO A VER SI CON EL VES ALGO MAS
Private Sub Command1_Click()
Dim m, m1, t, p As String
Dim f1, f2 As Date
Set BD = OpenDatabase("C:\Documents and Settings\PRACTICAS.LAPERLA\Escritorio\BD\ED\COD.mdb")
m = "Introduce la fecha inicial(dd/mm/aaaa):"
m1 = "Introduce la fecha final(dd/mm/aaaa):"
t = "Seleccione el intervalo de fechas(dd/mm/aaaa):"
p = ""
BD.Execute ("DELETE * FROM PRUEBA")
BD.Execute ("INSERT INTO PRUEBA SELECT TABLA.FESTIVO,TABLA.DIA,TABLA.EDAD,TABLA.HORA,TABLA.PROVINCIA FROM TABLA;")
f1 = InputBox(m, t, p, 100, 100)
f2 = InputBox(m1, t, p, 100, 100)
BD.Execute ("DELETE FROM PRUEBA WHERE PRUEBA.DIA<'"&f1&"'")
|
| |
|
eelorriaga
12 Mensaje(s)
|
| Enviado - 13/7/2004 |
| |
X CIERTO , SI PONGO ESTO ME DA ERROR 3464
BD.Execute ("DELETE FROM PRUEBA WHERE PRUEBA.DIA<'#&f1&#';") |
| |
|
eelorriaga
12 Mensaje(s)
|
| Enviado - 13/7/2004 |
| |
X FIN :
BD.Execute ("DELETE FROM PRUEBA WHERE (([PRUEBA.DIA]<" & f1 & "));")
BD.Execute ("DELETE FROM PRUEBA WHERE (([PRUEBA.DIA]>" & f2 & "));")
ESTO NO DA FALLOS
PERO TANPOCO HACE NADA
BUUAAAAA!!!!!!!!!!!!!!!!!!! |
| |
|
Desconocido
|
| Enviado - 13/7/2004 |
| |
Ah ok... el campo f1 es de tipo date... asi que hay que tratarlo de otra manera, el ejemplo anterior que te di sirve solo para variables string...
prueba esto:
1. ... PRUEBA.DIA < #" & f1 & "#")
2. en algunos casos hay que formatear toda la fecha, es decir:
BD.Execute ("DELETE FROM PRUEBA WHERE PRUEBA.DIA< Format(#" & f1 & "#,'dd')")
Suerte!
pd. recuerda que varia segun el tipo de variable:
ejm:
String---> (...PRUEBA.DIA < '" & f1 & "'")
Integer---> (...PRUEBA.DIA < " & f1 )
Date---> (...PRUEBA.DIA < #" & f1 & "#") |
| |
|
|
|
