Tema: leeer fechas en visual basic
Ver Mensaje Individual
  #11 (permalink)  
Antiguo 25/05/2011, 07:32
jcouoh
 
Fecha de Ingreso: septiembre-2003
Ubicación: Merida, yucatan
Mensajes: 282
Antigüedad: 21 años, 3 meses
Puntos: 1
Respuesta: leeer fechas en visual basic
Creo ahora entendi lo que me decias que el textboz purpura no lleva code solo los cinco primeros, es lo que hice como me habias sugerido para sacar la informacion de los cuatro textbox superiores, pero ahora al hacerlo con este no me da resultado,

creo que el asunto es que los textbox de las primeras filas los saque de la informacion que me arrojaba la base de datos, pero la informacion de la fila TxtTArV
la saque sumando y poniendola en variables y asi lo hice con TxtTArL,TxtTArM,TxtTArMi,TxtTArJ, de esta manera lo hice: TxtTArV = num1 + num2

No se ahora como sacar esa informacion de ahi.

Te envio el codigo fuente para que me hagas el favor de ver como lo hice, a lo mejor esta mal hecho,


Código HTML:
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub Form_Load()
Dim fechaini As Date
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim num4 As Integer
Dim num5 As Integer
Dim num6 As Integer
Dim num7 As Integer
Dim num8 As Integer
Dim num9 As Integer
Dim num10 As Integer
Dim num11 As Integer
Dim num12 As Integer
Dim num13 As Integer
Dim num14 As Integer
Dim num15 As Integer
Dim num16 As Integer
Dim num17 As Integer
Dim num18 As Integer
Dim num19 As Integer
Dim num20 As Integer
Dim num21 As Integer
Dim num22 As Integer
Dim num23 As Integer
Dim num24 As Integer
Dim num25 As Integer
Dim num26 As Integer

Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ims\informesemanal.MDB;" & _
"Persist Security Info=False"
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic

'InicioSemana = FormatDateTime(Date - Weekday(Date) - 1, vbGeneralDate)
'FinSemana = FormatDateTime(Date - Weekday(Date) + 5, vbGeneralDate)

'fechaini = Format(InicioSemana, "MM-DD-YYYY")
'fechafin = Format(FinSemana, "MM-DD-YY")
fechaini = "13/05/2011"
fechafin = "19/05/2011"



 Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "#"

If Not Rs.EOF And Not Rs.BOF Then
  While Not Rs.EOF
  If Rs.Fields("dia") = "viernes" Then
  
  
  
  num1 = Rs.Fields("AltoRiesgo")
  num2 = Rs.Fields("AltoRiesgoV")
  num3 = Rs.Fields("BajoRiesgo")
  num4 = Rs.Fields("BajoRiesgoV")
 
  totalAltoriesgo = Rs.Fields("AltoRiesgo") + Rs.Fields("AltoRiesgoV")
     TxtMArV = Rs.Fields("AltoRiesgo")
     TxtMBrV = Rs.Fields("BajoRiesgo")
     TxtVArV = Rs.Fields("AltoRiesgoV")
     TxtVBrV = Rs.Fields("BajoRiesgoV")
     TxtTArV = num1 + num2
     TxtTBrV = num3 + num4
       
   End If
 If Rs.Fields("dia") = "lunes" Then

  
  num5 = Rs.Fields("AltoRiesgo")
  num6 = Rs.Fields("AltoRiesgoV")
  num7 = Rs.Fields("BajoRiesgo")
  num8 = Rs.Fields("BajoRiesgoV")
      TxtMArL = Rs.Fields("AltoRiesgo")
      TxtMBrL = Rs.Fields("BajoRiesgo")
      TxtVArL = Rs.Fields("AltoRiesgoV")
      TxtVBrL = Rs.Fields("BajoRiesgoV")
      TxtTArL = num5 + num6
      TxtTBrL = num7 + num8
  End If
 If Rs.Fields("dia") = "martes" Then
 
  
  num9 = Rs.Fields("AltoRiesgo")
  num10 = Rs.Fields("AltoRiesgoV")
  num11 = Rs.Fields("BajoRiesgo")
  num12 = Rs.Fields("BajoRiesgoV")
      TxtTArM = num9 + num10
      TxtTBrM = num11 + num12
      TxtMArM = Rs.Fields("AltoRiesgo")
      TxtMBrM = Rs.Fields("BajoRiesgo")
      TxtVArM = Rs.Fields("AltoRiesgoV")
      TxtVBrM = Rs.Fields("BajoRiesgoV")
  End If
 If Rs.Fields("dia") = "miércoles" Then

  
  num13 = Rs.Fields("AltoRiesgo")
  num14 = Rs.Fields("AltoRiesgoV")
  num15 = Rs.Fields("BajoRiesgo")
  num16 = Rs.Fields("BajoRiesgoV")
       TxtTArMi = num13 + num14
       TxtTBrMi = num15 + num16
       TxtMArMi = Rs.Fields("AltoRiesgo")
       TxtMBrMi = Rs.Fields("BajoRiesgo")
       TxtVArMi = Rs.Fields("AltoRiesgoV")
       TxtVBrMi = Rs.Fields("BajoRiesgoV")
  End If
 If Rs.Fields("dia") = "jueves" Then
  
  num17 = Rs.Fields("AltoRiesgo")
  num18 = Rs.Fields("AltoRiesgoV")
  num19 = Rs.Fields("BajoRiesgo")
  num20 = Rs.Fields("BajoRiesgoV")
       TxtTArJ = num17 + num18
       TxtTBrJ = num19 + num20
       TxtMArJ = Rs.Fields("AltoRiesgo")
       TxtMBrJ = Rs.Fields("BajoRiesgo")
       TxtVArJ = Rs.Fields("AltoRiesgoV")
       TxtVBrJ = Rs.Fields("BajoRiesgoV")
  End If
    
     Rs.MoveNext

  Wend
End If
Rs.Close




End Sub
Private Sub Form_Unload(Cancel As Integer)
Cn.Close
Set Cn = Nothing
End Sub


Private Sub TxtMArJ_Change()
TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
End Sub

'Private Sub TxtMArL_Change()
'TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
'End Sub

'Private Sub TxtMArM_Change()
'TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
'End Sub

'Private Sub TxtMArMi_Change()
'TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
'End Sub

'Private Sub TxtMArV_Change()
'TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
'End Sub

Private Sub TxtMBrJ_Change()
TxtMBrT.Text = Val(TxtMBrV.Text) + Val(TxtMBrL.Text) + Val(TxtMBrM.Text) + Val(TxtMBrMi.Text) + Val(TxtMBrJ.Text)
End Sub







Private Sub TxtTArV_Change()
TxtTArV.Text = Val(TxtTArV.Text)
End Sub

Private Sub TxtVArJ_Change()
TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)

End Sub

Private Sub TxtVArL_Change()
TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)
End Sub

Private Sub TxtVArM_Change()
TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)

End Sub

Private Sub TxtVArMi_Change()
TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)

End Sub

Private Sub TxtVArV_Change()
TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)
End Sub

Private Sub TxtVBrJ_Change()
TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)

End Sub

Private Sub TxtVBrL_Change()
TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)

End Sub

Private Sub TxtVBrM_Change()
TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)

End Sub

Private Sub TxtVBrMi_Change()
TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)

End Sub

Private Sub TxtVBrV_Change()
TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)

End Sub
Disculpa todas las molestias, pero me estas salvando, solo que me encuentro bien atorado con eso, gracias de cualquier manera.
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services