Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

leeer fechas en visual basic

Estas en el tema de leeer fechas en visual basic en el foro de Visual Basic clásico en Foros del Web. Hola Estoy haciendo un programa en visual basic que hace lo siguiente. Desde un formulario empieza a llenar datos a una base access. Esta base ...
  #1 (permalink)  
Antiguo 21/05/2011, 13:31
 
Fecha de Ingreso: septiembre-2003
Ubicación: Merida, yucatan
Mensajes: 282
Antigüedad: 21 años, 3 meses
Puntos: 1
leeer fechas en visual basic

Hola
Estoy haciendo un programa en visual basic que hace lo siguiente.
Desde un formulario empieza a llenar datos a una base access.
Esta base contiene los siguientes campos: Fecha, dia, AltoRiesgo, BajoRiesgo
Ahora, tengo un segundo formulario el cual debe leer la base de datos en forma semanal. se hace un reeporte el dia viernes, por lo que debe tomar fecha inicio el viernes anterior y fecha final el jueves (dia anterior). creo que debe hacerse por las fechas. y en estee formulario debe colocarse en un input text el numero que haya sido puesto en el campo AltoRiesgo, el dia lunes, en otro input text lo qu haya sido puesto en el campo BajoRiesgo, el dia martes en otro.... claro esto debe hacerse de acuerdo a la fecha: les dejo una impreesion de pantalla


Esto es lo que tengo hecho en el codigo:

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

Private Sub Form_Load()
Dim fechaini As Date
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, "m-d-yy")
fechafin = Format(FinSemana, "m-d-yy")


'Rs.Open "Select * From reportesemanal where (fecha = #" & fechaini & "#) "
 Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "#"
'If (reportesemanal.fecha = fechaini) Then
Set TxtMArL.DataSource = Rs
TxtMArL.DataField = "AltoRiesgo"
Set TxtMBrL.DataSource = Rs
TxtMBrL.DataField = "BajoRiesgo"
Set TxtMArJ.DataSource = Rs
TxtMArJ.DataField = "AltoRiesgoV"
Set TxtMBrJ.DataSource = Rs
TxtMBrJ.DataField = "BajoRiesgoV"
'End If
Ahi ustedes puedn observar he intentado poner un if pensando que si en la base de datos "reportesmanal" el campo fecha es igual a la fecha que tengo en la variable fechaini que me ponga los datos en el input text.

Bueno, si encuentran como ayudarme se los agradecere
saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #2 (permalink)  
Antiguo 23/05/2011, 11:00
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

En la imagen tienes TEXTBOX no IMPUTBOX... ese es otro

Agarra la idea:

Código vb:
Ver original
  1. ...
  2. ...
  3. Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "# ORDER BY DIA"
  4.  
  5. IF RS.EOF=FALSE THEN
  6. DO WHILE RS.EOF=FALSE
  7. IF DIA="LUNES" THEN
  8.          TEXTBOX_LUNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  9.          TEXTBOX_LUNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  10. ENDIF
  11. IF DIA="MARTES" THEN
  12.          TEXTBOX_MARTES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  13.          TEXTBOX_MARTES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  14. ENDIF
  15. IF DIA="MIERCOLES" THEN
  16.          TEXTBOX_MIERCOLES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  17.          TEXTBOX_MIERCOLES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  18. ENDIF
  19. IF DIA="JUEVES" THEN
  20.          TEXTBOX_JUEVES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  21.          TEXTBOX_JUEVES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  22. ENDIF
  23. IF DIA="VIERNES" THEN
  24.          TEXTBOX_VIERNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  25.          TEXTBOX_VIERNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  26. ENDIF
  27.  
  28. RS.MOVENEXT
  29. LOOP
  30. ENDIF
  31. ...
  32. ...
  #3 (permalink)  
Antiguo 23/05/2011, 14:32
 
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

Ya, está muchas gracias, solo me falta un detalle, bueno eso creo ya que cnforme avanzo voy viendo que todavia algo mas tengo que hacerle.


En esta imagen puedes ver hay un text que esta de color purpura, ese campo lo he denominado txtMarT y quisiera que tomara el valor sumando los campos que estan en azul.

mi codigo es el siguiente:

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
En donde espero poder ponerle al campo TxtMarT la variable num21 que seria la suma de num1 + num5 + num9 + num13 + num17.
mi problema es que yo tengo esas variables en diferentes if y no puedo tomarlas.

Saludos les agradezco mucho su ayuda.
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #4 (permalink)  
Antiguo 24/05/2011, 06:31
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Lo puedes resolver de la siguiente forma:

• En el evento CHANGE() de cada TEXBOX le pones:

Código vb:
Ver original
  1. Private Sub txt_Change()
  2.     TxtMarT.Text = Val(txt.Text) + Val(txt2.Text) + Val(txt3.Text)
  3. End Sub
  4.  
  5. Private Sub txt2_Change()
  6.     TxtMarT.Text = Val(txt.Text) + Val(txt2.Text) + Val(txt3.Text)
  7. End Sub
  8.  
  9. Private Sub txt3_Change()
  10.     TxtMarT.Text = Val(txt.Text) + Val(txt2.Text) + Val(txt3.Text)
  11. End Sub

De esa forma, cada vez que cargues un valor en un TEXTBOX se calculará el total en TxtMarT.Text
  #5 (permalink)  
Antiguo 25/05/2011, 06:28
 
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

Muchas gracias es lo que estaba buscando. Gracias
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #6 (permalink)  
Antiguo 25/05/2011, 06:58
 
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

Un agregado mas....
cuando quise poner otros valores no pude como lo estaba haciendo,



En el text purpura debe ir la suma de los text azules, cuando lo quise hacer me pide debug.

lo intenté hacer asi:

Código HTML:
Private Sub TxtTArV_Change()
'TxtArt.Text = TxtTArV.Text
'TxtArt.Text = Val(TxtTArV)
End Sub
pero no funciona, por ello lo comenté.

Agradezco sus comentarios y ayuda
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #7 (permalink)  
Antiguo 25/05/2011, 06:59
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

El TEXBOX purpura no lleva CODE... solo los 5 primeros, Ej.:

El TEXTBOX_TOTAL_AR_VIERNES:

Código vb:
Ver original
  1. Private Sub TEXTBOX_TOTAL_AR_VIERNES_Change()
  2.     TEXTBOX_TOTAL_GENERAL.Text = Val(TEXTBOX_TOTAL_AR_VIERNES.Text) + Val(TEXTBOX_TOTAL_AR_LUNES.Text) + Val(TEXTBOX_TOTAL_AR_MARTES.Text) + Val(TEXTBOX_TOTAL_AR_MIERCOLES.Text) + Val(TEXTBOX_TOTAL_AR_JUEVES.Text) + Val(TEXTBOX_TOTAL_AR_VIERNES.Text)
  3. End Sub

Última edición por lokoman; 25/05/2011 a las 07:06
  #8 (permalink)  
Antiguo 25/05/2011, 07:08
 
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

Gracias,

entonces de donde puedo sacar la informacion, me imagino que en el codigo fuente, me puedes ayudar???

Gracias de antemano
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #9 (permalink)  
Antiguo 25/05/2011, 07:14
 
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

Disculpa, hubo un problema en mi conexion a internet, voy a checar bien tu ultima respuesta.

saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #10 (permalink)  
Antiguo 25/05/2011, 07:32
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Mira esto que hice. Tomalo de ejemplo. Cambias los datos y se suman en los TEXTBOX purpura.

http://myfreefilehosting.com/f/2ea33198db_0.1MB

(es mucho CODE repetido), puedes hacer una rutina al terminar de cargar los datos A.R. e B.R., Asi:

Código vb:
Ver original
  1. Sub TOTALES()
  2.     txtTOTAL2 = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
  3.     txtTOTAL3 = Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text)
  4.     txtTOTAL1 = Val(txt1.Text) + Val(txt2.Text) + Val(txt3.Text) + Val(txt4.Text) + Val(txt5.Text)
  5. End Sub

Se ve mucho mejor
  #11 (permalink)  
Antiguo 25/05/2011, 07:32
 
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
  #12 (permalink)  
Antiguo 25/05/2011, 08:08
 
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

Gracias, ya esta, nada mas no se como llamar a la funcion totales, pero ya tengo todo lo que se necesita. es muy repetido el codigo, espero luego simplificarlo, muchas gracias, ahora voy a tratar de imprimirlo.

saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #13 (permalink)  
Antiguo 25/05/2011, 08:16
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Al final quedó asi:
Código vb:
Ver original
  1. Dim Cn As ADODB.Connection
  2. Dim Rs As ADODB.Recordset
  3.  
  4. Private Sub Form_Load()
  5.     Dim FechaIni As Date, FechaFin As Date
  6.    
  7.     Set Cn = New ADODB.Connection
  8.     Set Rs = New ADODB.Recordset
  9.    
  10.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  11.             "Data Source=C:\ims\informesemanal.MDB;" & _
  12.             "Persist Security Info=False"
  13.     Rs.ActiveConnection = Cn
  14.     Rs.CursorType = adOpenKeyset
  15.     Rs.LockType = adLockOptimistic
  16.  
  17.     'InicioSemana = FormatDateTime(Date - Weekday(Date) - 1, vbGeneralDate)
  18.    'FinSemana = FormatDateTime(Date - Weekday(Date) + 5, vbGeneralDate)
  19.  
  20.     'fechaini = Format(InicioSemana, "MM-DD-YYYY")
  21.    'fechafin = Format(FinSemana, "MM-DD-YY")
  22.    FechaIni = "13/05/2011"
  23.     FechaFin = "19/05/2011"
  24.  
  25.     Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & FechaIni & "# AND #" & FechaFin & "#"
  26.  
  27.     If Not Rs.EOF And Not Rs.BOF Then
  28.         While Not Rs.EOF
  29.             If Rs.Fields("dia") = "viernes" Then
  30.                 totalAltoriesgo = Rs.Fields("AltoRiesgo") + Rs.Fields("AltoRiesgoV")
  31.                 TxtMArV = Rs.Fields("AltoRiesgo")
  32.                 TxtMBrV = Rs.Fields("BajoRiesgo")
  33.                 TxtVArV = Rs.Fields("AltoRiesgoV")
  34.                 TxtVBrV = Rs.Fields("BajoRiesgoV")
  35.             End If
  36.  
  37.             If Rs.Fields("dia") = "lunes" Then
  38.                 TxtMArL = Rs.Fields("AltoRiesgo")
  39.                 TxtMBrL = Rs.Fields("BajoRiesgo")
  40.                 TxtVArL = Rs.Fields("AltoRiesgoV")
  41.                 TxtVBrL = Rs.Fields("BajoRiesgoV")
  42.             End If
  43.            
  44.             If Rs.Fields("dia") = "martes" Then
  45.                 TxtMArM = Rs.Fields("AltoRiesgo")
  46.                 TxtMBrM = Rs.Fields("BajoRiesgo")
  47.                 TxtVArM = Rs.Fields("AltoRiesgoV")
  48.                 TxtVBrM = Rs.Fields("BajoRiesgoV")
  49.             End If
  50.            
  51.             If Rs.Fields("dia") = "miércoles" Then
  52.                 TxtMArMi = Rs.Fields("AltoRiesgo")
  53.                 TxtMBrMi = Rs.Fields("BajoRiesgo")
  54.                 TxtVArMi = Rs.Fields("AltoRiesgoV")
  55.                 TxtVBrMi = Rs.Fields("BajoRiesgoV")
  56.             End If
  57.            
  58.             If Rs.Fields("dia") = "jueves" Then
  59.                 TxtMArJ = Rs.Fields("AltoRiesgo")
  60.                 TxtMBrJ = Rs.Fields("BajoRiesgo")
  61.                 TxtVArJ = Rs.Fields("AltoRiesgoV")
  62.                 TxtVBrJ = Rs.Fields("BajoRiesgoV")
  63.             End If
  64.            
  65.             Rs.MoveNext
  66.         Wend
  67.     End If
  68.    
  69.     Rs.Close
  70.    
  71. 'LLAMADA A LA SUMA DE LOS TOTALES
  72.    Suma_Totales
  73. End Sub
  74.  
  75. Private Sub Form_Unload(Cancel As Integer)
  76.     Cn.Close
  77.     Set Cn = Nothing
  78. End Sub
  79.  
  80. Sub Suma_Totales()
  81. 'TOTALES ALTO RIESGO
  82.    TxtTArV = Val(TxtMArV.Text) + Val(TxtVArV.Text) 'num1 + num2
  83.    TxtTArL = Val(TxtMArL.Text) + Val(TxtVArL.Text) 'num5 + num6
  84.    TxtTArM = Val(TxtMArM.Text) + Val(TxtVArM.Text) 'num9 + num10
  85.    TxtTArMi = Val(TxtMArMi.Text) + Val(TxtVArMi.Text) 'num13 + num14
  86.    TxtTArJ = Val(TxtMArJ.Text) + Val(TxtVArJ.Text) 'num17 + num18
  87.    
  88. 'TOTALES BAJO RIESGO
  89.    TxtTBrV = Val(TxtMBrV.Text) + Val(TxtVBrV.Text) 'num3 + num4
  90.    TxtTBrL = Val(TxtMBrL.Text) + Val(TxtVBrL.Text) 'num7 + num8
  91.    TxtTBrM = Val(TxtMBrM.Text) + Val(TxtVBrM.Text) 'num11 + num12
  92.    TxtTBrMi = Val(TxtMBrMi.Text) + Val(TxtVBrMi.Text) 'num15 + num16
  93.    TxtTBrJ = Val(TxtMBrJ.Text) + Val(TxtVBrJ.Text) 'num19 + num20
  94.  
  95.  
  96. 'TOTALES GENERALES
  97.    TxtMArT.Text = Val(TxtMArV.Text) + Val(TxtMArL.Text) + Val(TxtMArM.Text) + Val(TxtMArMi.Text) + Val(TxtMArJ.Text)
  98.     TxtVArT.Text = Val(TxtVArV.Text) + Val(TxtVArL.Text) + Val(TxtVArM.Text) + Val(TxtVArMi.Text) + Val(TxtVArJ.Text)
  99.    
  100.     TxtMBrT.Text = Val(TxtMBrV.Text) + Val(TxtMBrL.Text) + Val(TxtMBrM.Text) + Val(TxtMBrMi.Text) + Val(TxtMBrJ.Text)
  101.     TxtVBrT.Text = Val(TxtVBrV.Text) + Val(TxtVBrL.Text) + Val(TxtVBrM.Text) + Val(TxtVBrMi.Text) + Val(TxtVBrJ.Text)
  102.    
  103.     TxtTArV.Text = Val(TxtTArV.Text) + Val(TxtTArL.Text) + Val(TxtTArM.Text) + Val(TxtTArMi.Text) + Val(TxtTArJ.Text)
  104.     TxtTBrV.Text = Val(TxtTBrV.Text) + Val(TxtTBrL.Text) + Val(TxtTBrM.Text) + Val(TxtTBrMi.Text) + Val(TxtTBrJ.Text)
  105. End Sub

Me confunden los nombres de los TEXTBOXs...
  #14 (permalink)  
Antiguo 25/05/2011, 10:12
 
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

Gracias por todo tu apoyo, de hecho ya me siento tranquilo, todos los datos estan en su l ugar, gracias y exito en todo saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #15 (permalink)  
Antiguo 25/05/2011, 10:45
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Todo OK!
  #16 (permalink)  
Antiguo 25/05/2011, 19:07
 
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

Una pregunta mas:

Estoy haciendo una consulta de esta manera:

Código HTML:
fechaini = "13/05/2011"
fechafin = "19/05/2011"

txtFechaInicio = fechaini

txtFechaFin = fechafin

 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("fecha") = "13/05/2011" Then
  
  
     txtMumf2V = Rs.Fields("umf2")

       
   End If
 
    
     Rs.MoveNext

  Wend
End If
Desde luego, que asi me arroja un resultado que lee de la base de datos, el punto es que donde esta el while, en el if si en lugar de escribir la fecha "13/05/2011" quiero poner la variable fechaini no me arroja resultado.

He intentado hacerlo segun con el signo de gato, pero no me funciona te agradeceré cualquier ayuda.

Esta es la maner como lo he intentado infructuosamente:

Código HTML:

fechaini = "13/05/2011"
fechafin = "19/05/2011"

txtFechaInicio = fechaini

txtFechaFin = fechafin

 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("fecha") = #" & fechaini & "# Then
  
  
     txtMumf2V = Rs.Fields("umf2")

       
   End If
 
    
     Rs.MoveNext

  Wend
End If
Saludos y muchas gracias
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #17 (permalink)  
Antiguo 25/05/2011, 22:26
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Probaste con comillas simples ( ' )??

If Rs.Fields("fecha") = '" & fechaini & "' Then
  #18 (permalink)  
Antiguo 26/05/2011, 06:00
 
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

si lo probé pero tampoco me funciono, de hecho tuve que cambiar el parametro y lo hice mejor con dia que es un string, pero yo creo que eso es algo que tengo que buscarle tambien,

gracias de todos modos, ahora estoy viendo como consultar la base de datos y almacenar el registro en una variable y esa variable usarla para imprimir con el metodo printer.print
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #19 (permalink)  
Antiguo 26/05/2011, 06:33
 
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

Esto es lo que intenté:

Código HTML:
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")
  umf2 = Rs.Fields("umf2")
 umf2v = Rs.Fields("umf2V")
  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
Esto es practicamente lo mismo que se tenia en el programa que crei haber terminado.
Ahora la variable umf2 necesito imprimirla, ¿que puedo hacer? empezé colocando el dato en un textbox, lo cual si me funciona, pero yano puedo poner mas controles a mi formulario,

bueno gracias!!!!
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #20 (permalink)  
Antiguo 26/05/2011, 06:52
 
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 que mi problema es no saber como usar las variables, ya que la variable cuando entra en un if, solo ahi la puedo usar, y a mi me gustaria usarla no solo en el if sino que necesitaria imprimirla.
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #21 (permalink)  
Antiguo 26/05/2011, 07:07
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

.... te contesté anteriormente y como que no me fijé, creo que asi es como va el IF:

If Rs.Fields("fecha") = fechaini Then
  #22 (permalink)  
Antiguo 26/05/2011, 13:17
 
Fecha de Ingreso: mayo-2011
Mensajes: 6
Antigüedad: 13 años, 7 meses
Puntos: 0
Respuesta: leeer fechas en visual basic

Cita:
Iniciado por jcouoh Ver Mensaje
Hola
Estoy haciendo un programa en visual basic que hace lo siguiente.
Desde un formulario empieza a llenar datos a una base access.
Esta base contiene los siguientes campos: Fecha, dia, AltoRiesgo, BajoRiesgo
Ahora, tengo un segundo formulario el cual debe leer la base de datos en forma semanal. se hace un reeporte el dia viernes, por lo que debe tomar fecha inicio el viernes anterior y fecha final el jueves (dia anterior). creo que debe hacerse por las fechas. y en estee formulario debe colocarse en un input text el numero que haya sido puesto en el campo AltoRiesgo, el dia lunes, en otro input text lo qu haya sido puesto en el campo BajoRiesgo, el dia martes en otro.... claro esto debe hacerse de acuerdo a la fecha: les dejo una impreesion de pantalla


Esto es lo que tengo hecho en el codigo:

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

Private Sub Form_Load()
Dim fechaini As Date
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, "m-d-yy")
fechafin = Format(FinSemana, "m-d-yy")


'Rs.Open "Select * From reportesemanal where (fecha = #" & fechaini & "#) "
 Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "#"
'If (reportesemanal.fecha = fechaini) Then
Set TxtMArL.DataSource = Rs
TxtMArL.DataField = "AltoRiesgo"
Set TxtMBrL.DataSource = Rs
TxtMBrL.DataField = "BajoRiesgo"
Set TxtMArJ.DataSource = Rs
TxtMArJ.DataField = "AltoRiesgoV"
Set TxtMBrJ.DataSource = Rs
TxtMBrJ.DataField = "BajoRiesgoV"
'End If
Ahi ustedes puedn observar he intentado poner un if pensando que si en la base de datos "reportesmanal" el campo fecha es igual a la fecha que tengo en la variable fechaini que me ponga los datos en el input text.

Bueno, si encuentran como ayudarme se los agradecere
saludos
  #23 (permalink)  
Antiguo 26/05/2011, 13:24
 
Fecha de Ingreso: mayo-2011
Mensajes: 6
Antigüedad: 13 años, 7 meses
Puntos: 0
Respuesta: leeer fechas en visual basic

Puedes interrogar al objeto Recordset de esta forma: (como ya apuntaba Lokoman...)
RS.Fields("Fecha").Value
Convierte ahora los datos obtenidos a una fecha estándar con CDate(Fecha)
If CDate(RS.Fields("Fecha").Value = CDate(fechaIni) Then
  #24 (permalink)  
Antiguo 27/05/2011, 06:10
 
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

Muchas gracias, ya se resolvio este problema
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #25 (permalink)  
Antiguo 27/05/2011, 06:30
 
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

¿Que se puede hacer? tengo este problema, no puedo usar mas controles en mi form, he pensado que podria sustituir toda la informacion que tengo en un msflexigrid, pero cuando lo intento al sacar los resultados no me lo arregla de la misma manera, quiza deba empezar por cambiar la base de datos de acces, no se, alguien me puede aconsejar ¿que podria hacer?
Otra cosa que he pensado es hacer en otro form la parte que me falta, pero como podria yo unir para que al hacer la consulta tome tanto datos de un form como del otro para luego poder imprimirlos?

Saludos y Auxilio!!!!
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #26 (permalink)  
Antiguo 27/05/2011, 11:46
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

Cita:
Iniciado por jcouoh Ver Mensaje
Creo que mi problema es no saber como usar las variables, ya que la variable cuando entra en un if, solo ahi la puedo usar, y a mi me gustaria usarla no solo en el if sino que necesitaria imprimirla.
Debes declarar las variables al inicio del FORM, no dentro de los EVENTOS, asi:
PUBLIC variable AS STRING --> Aqui podras usar la variable en varios FORMs

o tambien:
PRIVATE variable AS STRING --> Aqui podras usar la variable solo en el FORM


Cita:
Iniciado por jcouoh Ver Mensaje
¿Que se puede hacer? tengo este problema, no puedo usar mas controles en mi form, he pensado que podria sustituir toda la informacion que tengo en un msflexigrid, pero cuando lo intento al sacar los resultados no me lo arregla de la misma manera, quiza deba empezar por cambiar la base de datos de acces, no se, alguien me puede aconsejar ¿que podria hacer?
Otra cosa que he pensado es hacer en otro form la parte que me falta, pero como podria yo unir para que al hacer la consulta tome tanto datos de un form como del otro para luego poder imprimirlos?

Saludos y Auxilio!!!!
Que control quieres agregar?

Última edición por lokoman; 27/05/2011 a las 12:09
  #27 (permalink)  
Antiguo 27/05/2011, 16:19
 
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

un msflexgrid
saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services
  #28 (permalink)  
Antiguo 30/05/2011, 14:26
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

No puedes incrementar el tamaño del FORM? Como no sé realmente el fin del programa el estar pegando controles para "rellenar" te puede llevar a una perdida de tiempo por que tienes que cambiar la lógica que usaste anteriormente...

Te daré unos tips que me ayudan mucho:

• Antes de hacer un programa, dibujar sobre papel el diseño que deseas y luego lo pasas a VB. De esa forma, sabrás que tamaño tendrá tu FORM, que CONTROLES usar, sus UBICACIONES, su ASPECTO, etc.
• Enfoca tu programa en el usuario, para que tu diseño sea, como dicen: "User Friendly"
• Trata de aprender un control a la vez, y usalo mucho en todos los programas que hagas, por ejemplo, yo me manejo mejor con los LISTVIEW que con los GRID (solo uso GRIDs para un TEST rápido de data)
• Ve guardando tus CÓDIGOS que hacen una función "X" y que puedes utilizar mas adelante en otros programas, al final podrías hacer un .DLL (aun no hago uno , tengo mis CODE en .TXTs, asi que copio y pego, je,je,je) con todas esas funciones y solamente seria enviarle los datos y no tienes que "tipear" tanto CODE.
• No tienes que cambiar tu BD, ya que esta es solamente un repositorio de data, como la presentes depende de tu diseño.

Una pregunta:
• Mencionaste imprimir las variables, o lo que quieres es un reporte con los datos de la base de datos?
• Sabes como imprimir?
• Sabes hacer reportes?
  #29 (permalink)  
Antiguo 05/06/2011, 15:14
 
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

Gracias por tus comentarios, he podido hacerlo, uso las variables y las imprimo de esa manera no pongo todo en controles, muchas gracias

Saludos
__________________
Jorge Couoh es profesor de Computo. sus sitios son: Cheap Web Hostingl y Cheap web hosting Services

Etiquetas: basic, fechas, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:35.