• Viernes 3 de Abril de 2026, 11:32

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - chiquitita123

Páginas: [1]
1
Visual Basic para principiantes / Re: IMPRIMIR EN VB 6.0
« en: Domingo 8 de Noviembre de 2009, 16:12 »
muchas gracias me fue muy util

2
C# / Re: base de datos en sql
« en: Jueves 5 de Noviembre de 2009, 13:53 »
una forma facil para crear base de datos en my sql es bajar apache ya que este te permite convertir tu computador en tu propio servidor y no necesitaras tanto codigo es practicamente visual este programa

3
Visual Basic para principiantes / Re: IMPRIMIR EN VB 6.0
« en: Jueves 5 de Noviembre de 2009, 13:43 »
lo que quiero imprimir es el reporte que guarde en vb por ejemplo los datos de pedro picapiedra pero estos datos los tengo que imprimir como si fuera una hoja de acces claro que mi programa maneja acces y vb con a coneccion de control data

4
Visual Basic para principiantes / IMPRIMIR EN VB 6.0
« en: Martes 27 de Octubre de 2009, 14:10 »
QUISIERA SABVER SIME PUEDEN AYUDAR CON EL CODIGO PARA IMPRIMIR EN VB
MUCHAS GRACIAS
HOY POR MI MAÑANA POR TI

5
Visual Basic para principiantes / Re: un problema muy sencillo
« en: Martes 27 de Octubre de 2009, 13:50 »
la verdad no entiendo muy bien la pregunta.
pero creo que te refieres a una coneccion de acces con vb
yA  intantado conectarla con un control data Y EN ESTE ESTABLESE QUE QUIERES QUE LA CONECION SE HAGA CON ACCES

6
Visual Basic para principiantes / Re: Conversor de Unidades
« en: Martes 27 de Octubre de 2009, 13:31 »
no se si les pueda ayudar pero ahi les dejo un convertidor de algunas unidades que ise como tarea
Private Sub cmdconvertir_Click()
If Optcm = True Then
txte.Text = Val(txtc.Text) * 100
Else
If Optdm = True Then
txte.Text = Val(txtc.Text) * 10
Else
If Optmm = True Then
txte.Text = Val(txtc.Text) * 1000
Else
If Optkm = True Then
txte.Text = Val(txtc.Text) / 1000
End If
End If
End If
End If
End Sub

Private Sub cmdnuevo_Click()
txtc.Text = ""
txte.Text = ""
txtc.SetFocus
End Sub

Private Sub cmdsalir_Click()
End
End Sub

Private Sub Timer1_Timer()
txttime.Text = Time
End Sub

7
Bases de Datos / Re: VB y access
« en: Martes 27 de Octubre de 2009, 13:16 »
un ejemplo en la tabla de nomina (parafiscal)
Private Sub Command1_Click()

Const ccf = 0.04
Const icbf = 0.03
Const sena = 0.02
Text5.Text = Val(Text8.Text) * ccf
Text6.Text = Val(Text8.Text) * icbf
Text7.Text = Val(Text8.Text) * sena
Text4.Text = (Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text))
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text4.Text = ""
Text8.SetFocus
End Sub





tienes que tener en cuenta que se puede declar dim o no en este caso estoy declarando con const la constante.


variable dim
dim apellido
apellido="gomez"
label4.caption apellido
end sub

sin dim

apellido="bustamante"
nombre=""jonathan"


fue un placer colaborarte

Páginas: [1]