Anónimo
Busqueda entre fechas
Saludos, tengo una busqueda acotada entrefechas en una consulta sql, lo que necesito es ademas filtrar una columna entre estas fechas este es el codigo, aparentemente lo que me falta es declarar el text.
las fechas son mask
Dim rs1 As ADODB.Recorset
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = textbox1.text order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
el text insertado
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha", cn
me da un error error 424 en tiempo de ejecucion
se requiere un objeto
como declaro el objeto
gracias
las fechas son mask
Dim rs1 As ADODB.Recorset
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = textbox1.text order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
el text insertado
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha", cn
me da un error error 424 en tiempo de ejecucion
se requiere un objeto
como declaro el objeto
gracias
1 respuesta
Respuesta de carloscharly
1
Dim rs1 As ADODB.Recorset
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = textbox1.text order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
el text insertado
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha", cn
Observa el detalle q marque de negrita, te faltan las concatenaciones igual q la linea del RS1 que isiste
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = textbox1.text order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
el text insertado
rs1..Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha", cn
Observa el detalle q marque de negrita, te faltan las concatenaciones igual q la linea del RS1 que isiste
Dim rs1 As ADODB.Recorset
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
textbox1.text = ? o
text1 = ?
rs1.Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
esta declaracion es la que me falta?
me pide un objeto error 424 en tiempo de ejecucion
se requiere un objeto
""necesito el codigo completo ""
Gracias
Dim Sum As Integer
Dim Sum2 As integer
Set Rs1 = New Recorset
Fec1 = Format (cdate(mkbFec1.text, "mm/dd/yy
Fec2 = Format(cdate(mkdFec2.text, " mm/dd/yy
textbox1.text = ? o
text1 = ?
rs1.Open "SELECT Campos bd FROM tablas bd WHERE fecha between # " & Fec1 & "# and # " & Fec2 & "# AND ccosto = " & textbox1.text & " order by fecha, cn
txtReg.text = rs1.RecordCount
filas = 2
Whit msgreporte
do While not rs1.eof
esta declaracion es la que me falta?
me pide un objeto error 424 en tiempo de ejecucion
se requiere un objeto
""necesito el codigo completo ""
Gracias
No te ahoges en un baso de agua, mira agregame [email protected] tpor ahi te explicare mejor, pero finaliza la pregunta