Visual Basic - dias de la semana

Life is soft - evento anual de software empresarial
 
Vista:

dias de la semana

Publicado por daniel (34 intervenciones) el 19/05/2007 02:46:01
hola, tengo una tabla con los dias de la semana (lunes, martes... domingo) con campos si/no, lo q necesito sabes es como puedo saber desde un formulario q campo/s de la tabla estan en true y se corresponden con el dia actual. gracias y espero me respondan.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:dias de la semana

Publicado por Luis Prieto (167 intervenciones) el 19/05/2007 05:33:25
Hola, Daniel!!!

Lo primero que debes hacer es decirme como esta estrcuturada tu tabla.
Tienes los nombres de los campos con los dias de la semana y cada campo es si/no o lo tienes 2 campos uno dia con los dias de la semana y otro con si/no

Explicate bien.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:dias de la semana

Publicado por Daniel (34 intervenciones) el 19/05/2007 18:17:58
hola, tengo 7 campos en la tabla cuyos nombres son los dias de la semana, y todos son si/no. gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:dias de la semana

Publicado por Luis Augusto (167 intervenciones) el 19/05/2007 20:29:24
Hola, Daniel!!

Dim cn As New adodb.connection
Dim rs As New adodb.Recordset

'con esto puedes saber cuantos estan en true y cuantos en false
Private Sub Command1_Click()
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i) = True Then
MsgBox rs.Fields(i).Name & " true"
Else
MsgBox rs.Fields(i).Name & " false"
End If
Next
End Sub

'con esto puedes saber que campo coincide con el dia de la semana
Private Sub Command2_Click()
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = Format(Date, "dddd") Then
MsgBox rs.Fields(i).Name & " = " & Format(Date, "dddd")
Else
MsgBox rs.Fields(i).Name & " <> " & Format(Date, "dddd")
End If
Next
End Sub

Private Sub Command3_Click()
MsgBox Format(Date, "dddd")
End Sub

'esto es para conectarse a la BD y traer los datos en un recordset
Private Sub Form_Load()
'Set cn = New adodb.connection
'Set rs = New adodb.Recordset

'cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;database=C:\DATOS.MDB;Persist Security Info=False"
'cn.Open

'rs.CursorLocation = adUseClient
'rs.Open "select *from tabla", cn
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar