elgranmon
03 de Junio del 2004

Quisiera saber que falla en esta consulta para que no se ejecute, Muchas Gracias:



If Option1.Value = True And Check1.Value = vbCheked Then

strsql = "SELECT * FROM Tabla1 WHERE Fecha = #" & Format(DTPicker1.Value, "mm/dd/yy") & "# And Unidad_Funcional =" + Combo2.Text

End If

----------

Ram贸n

MrAnderson
03 de Junio del 2004

Si la consulta la est谩s dirigiendo a una b.d access, el formato de la fecha debiera ser = "mm-dd-YYYY" ya que si le pones s贸lo "yy" no devuelve nada. Otra cosa; por qu茅 no utilizas un recordset de tipo DAO?

kaliman
03 de Junio del 2004

el "+" no concatena, es el "&"

salu2

elgranmon
03 de Junio del 2004

Ok, ya he cambiado eso kaliman, pero ahora el error que me sale es: data type mismatch in citeria expresion e intenta depurarme esta linea:

rssql.Open strsql, conexion, , adLockOptimistic, adCmdText

sin embargo otras busquedas sin me las haces,el codigo completo es:


If Check1.Value = vbChecked Then

strsql = "SELECT * FROM Tabla1 WHERE Unidad_Funcional = " & Combo2.Text

End If




With conexion
.CursorLocation = adUseClient
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source = C:Visualaplicativo180504db3.mdb"
.Open
End With


Set rssql = New ADODB.Recordset
rssql.Open strsql, conexion, , adLockOptimistic, adCmdText
Set DGBusqueda.DataSource = rssql

----------

Gracias!