| IsrraelZaid |  |
|
2007-11-19 16:36 - Respuestas: 5 - Tema nº: 2482712
Características: Windows XP Profesional, Pentium IV AMD Semprom HDD 40GB. 512MB.
amigos,necesito de su gran ayuda.estoy haciendo un sistema de control de asistencia en visual basic 6.0 con base de datos en access.quiero hacer una consulta a dos campos de una tabla.para eso uso el select de esta forma:
select * from Asistencia WHERE Fecha=#" & Format(Me.Calendar1, "mm/dd/yyyy") & "#")
con esto logro hacer la consulta para un dia especifico a traves del control calendar
mi consulta es que quiero mostrar adicionalmente del dia el nombre de un empleado.
la idea de este reporte es botar la asistencia de un empleado en un dia determinado.por eso en mi formulario escojo en un combo box el nombre del empleado y por medio del calendario escojo el dia que quiero mostrar la asistencia.
espero me puedan ayudar.
saludos cordiales y desde ya mil gracias por el apoyo
atte.
isrrael zaid
| |
|
|
| ebolo |  |
|
Re: Select de dos campos en una misma tabla - 2007-11-20 09:21 - Respuesta 2
Hola; en el select debes de poner lo criterios a filtrar. Yo en el select en vez de poner *, elijo el campos de los que quiero obtener los datos, xej:
select Asistencia.camponombreempleado, Asistencia.Fecha from Asistencia WHERE (Fecha=#" & Format(Me.Calendar1, "mm/dd/yyyy") & "# and camponombreempleado='" & me.combobox1 & "')"
Un saludo. | |
|
|
| IsrraelZaid | |
|
Re: Select de dos campos en una misma tabla - 2007-11-20 16:43 - Respuesta 3
Ebolo, es la segunda vez que me salvas de una.Muchas gracias por tu apoyo. Tenia la idea pero me la aclaraste muy bien. Era un error de comillas y parentesis.
Muchas gracias amigo
Saludos cordiales
Yvan | |
|
|
| IsrraelZaid | |
|
Re: Select de dos campos en una misma tabla - 2007-11-20 22:22 - Respuesta 4
Ebolo, nuevamente te molesto. Se trata del formulario en el que me ayudaste.Sucede que necesito mostrar los datos que resultan del select en un DataGrid. Me he tomado la libertad de pegar el codigo.
Como podras ver aqui, estoy mostrando los resultados en un DataReport, pero quiero hacer lo siguiente. Cada vez que haga una consulta, quiero que la fecha y usuario se agregen al DataGrid.
¿Como puedo hacerlo?
Desde ya muchas gracias por tu apoyo.
Saludos cordiales
Isrrael Zaid
Private Sub CmdMostrar_Click()
Fec = LblFecha.Caption
Base.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\Asistencia.mdb", , "Asistencia"
Set Rs = Base.Execute("select * from Asistencia WHERE (Fecha=#" & Format(Me.Calendar1, "mm/dd/yyyy") & "# and usuario='" & Me.Combo1 & "')")
If Rs.EOF = False Then
Set RptPorUsuario.DataSource = Rs
FrmRptUsu.Hide
Else
MsgBox "No se reportan registros de asistencia el " & Calendar1.Value & " o no ha seleccionado un usuario." & Chr(10) & "Por favor seleccione una fecha válida o escoja el usuario a consultar.", 48, "Centro de mensajes SICONT"
FrmRptUsu.Base.Close
End If
End Sub | |
|
|
| ebolo | |
|
Re: Select de dos campos en una misma tabla - 2007-11-22 19:02 - Respuesta 5
Hola, la verdad que yo nunca he usado un datagrid, suelo usar el MSFlexgrid, supongo que será por costumbre.
Lo único que te puedo decir es que lo conexión a la mdb la hago de otra forma:
-
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim consulta As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\rutabd\db1.mdb"
consulta = "SELECT Tabla1.Id, Tabla1.Campo2, Tabla1.Campo3 From Tabla1"
rs.Open consulta, cn
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
-
Hay que tener la referencia Microsoft Activex Dataobjects 2.x activada.
Un saludo | |
|
|
|
