filtros con calendarios?

[wolverartur]

favor podrian ayudarme en esto?
soy novato en esto de visual basic y les agradecere si me ayudan con esto.

tengo datos cargados en una base de datos los cual es se reflejan en un datagrid, la base datos tiene una tabla asistencia a la cual quiero filtrarla usando dpticket, calendar o mounthviwe.

quiero que quede asi; con mis datos de en la base seleccionar un dia especifico en el dtpicker, calendar o mounhtviwe y que si escojo por ejm, 05-02-10 solo me muestren los datos de ese dia.
tengo conexion con la base de datos en access con el ADODC y de ahi hago los filtros por ejemplo:
Select nombre,fecha,asistencia From asistencia where fecha="?";
donde tiene el signo de interrogacion no se como hacerle o de que otra forma mas sencilla se puedes.

[Heimish2000]

Supongo que esa fecha la tienes en una variable (o si no, la guardas en una ). Luego, al crear la sentencia, es poner esa variable donde tu has puesto la interrogacion.

Consulta = "Select nombre,fecha,asistencia From asistencia where fecha=" & miVariable

[lokoman]

Hola!! Adapta el Code:

Código vb:

Sub Consultar()
    Dim strConn As String
    Dim strConsultar As String
    On Error GoTo errores
    strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
    strConn = strConn & "Initial Catalog=" & Trim(cboBaseDatos.Text)
    Adodc1.ConnectionString = strConn
 
    strConsultar = "Select * From asistencia where fecha='" & varFECHA & "'"
 
    Adodc1.RecordSource = strConsultar
    DataGrid.ClearFields
    DataGrid.ReBind
 
    Adodc1.Refresh
 
    If Adodc1.Recordset.BOF <> True Or Adodc1.Recordset.EOF <> True Then
        Adodc1.Recordset.MoveFirst
        Adodc1.Refresh
    Else
        MsgBox "No se encontraron registros.", vbInformation
        Adodc1.Refresh
        Exit Sub
    End If
 
Exit Sub
Errores:
    subErrores
End Sub
 

[wolverartur]

gracias por sus respuestas heimish2000 apenas vi sus respuestas y voy a verrificar si queda y lokoman este codigo lo adapto a un boton o al calendar? y pues tengo con el Adodc la conexion con la BD que esta en access mediante el conectionstring y en el recodsoursce selecciono la tabla de la BD y despues enn el Data grid selecciono el Adodc y ahi pongo los campos correspondientes asi como la fecha que tambien esta guardada en la BD. nos vemos

[lokoman]

Lo puedes poner en un boton o en el evento Change o Click del Calendar, MothView o dtPicker.
Asegurate que el Adodc tenga la propiedad:

• Adodc.CommandType=1 - adCmdText

[wolverartur]

hi lokoman me da un error dice etiqueta no definida y no se que pex y acomodé bien el codigo eso creo lo intente en un boton y en el click deñl calendar.

[lokoman]

Postea tu Code para ver y darte sugerencias

[wolverartur]

este es el codigo que me pasaste pues no se que pasa espero me ayudes
Private Sub Command1_Click()

Dim strConn As String
Dim strConsultar As String
On Error GoTo Errores

strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"

strConn = strConn & "Initial Catalog=" & Trim(cboBaseDatos.Text)

Adodc1.ConnectionString = strConn

strConsultar = "Select * From asistencia where fecha='" & varFECHA & "'"

Adodc1.RecordSource = strConsultar

DataGrid.ClearFields

DataGrid.ReBind
Adodc1.Refresh

If Adodc1.Recordset.BOF <> True Or Adodc1.Recordset.EOF <> True Then

Adodc1.Recordset.MoveFirst

Adodc1.Refresh
Else
MsgBox "No se encontraron registros.", vbInformation

Adodc1.Refresh

Exit Sub
End If
Exit Sub
End Sub
Errores:
subErrore
End Sub

[Gakex]

compadre para empesar no asignaste antes un valor a la variable varFECHA
te sugiero que lo agas entre las dos lineas de abajo:

Adodc1.ConnectionString = strConn

strConsultar = "Select * From asistencia where fecha='" & varFECHA & "'"

y no es necesario que pongas:

If Adodc1.Recordset.BOF <> True Or Adodc1.Recordset.EOF <> True Then
Adodc1.Recordset.MoveFirst

solo deberias poner
Adodc1.Recordset.EOF <> True
Adodc1.Recordset.MoveFirst