• Domingo 6 de Julio de 2025, 00:33

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.


Temas - Soul_Keeper

Páginas: [1]
1
Bases de Datos / Hoja De Calculo De Excel En Formulario De Vb Como?
« en: Martes 24 de Abril de 2007, 23:58 »
alguien sabe como poner una hoja de calculo de excel en un formulario de VB 6.0 y poder imprimir en ella varios datos de un bd???

gracias

2
Bases de Datos / Ingresar Datos A Una Bd De Access Con Vb 6.0
« en: Lunes 23 de Abril de 2007, 06:39 »
hola necesito una ayuda por favor tengo un formulario tipo inventario para poder ingresar productos nuevos a este, ya los tengo todo escogido, me sirve cuando vo a busar pero me rescribe el item que tya tengo garcbado e el inventraio como hagop

gracias

ps aqui va el codio que tengo

Private Sub cmdAgregar_Click()
  mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
    reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
     If reply = vbOK Then
        Text1.SetFocus
        datInv1.Recordset.AddNew
End If
End Sub

Private Sub Command4_Click()
End
End Sub

3
Bases de Datos / Pasar Un Dato De Una Base De Datos Accesado En Un
« en: Lunes 23 de Abril de 2007, 00:13 »
AYUDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:

1er formulario...
   pide un usuario y una clave, la busca en la base de datos, compara y da acceso..

2do
   formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,

pregunta:

   como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??

gracias

aqui va el codio del 1er formulario:


Dim flagcierre As Boolean

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub

Private Sub miboton_Click()
flagcierre = True
End
End Sub

Private Sub Continuar_Click()
  SearchStr$ = Text1.Text
  datEmp1.Recordset.Index = "Usuario"
  datEmp1.Recordset.Seek "=", SearchStr$
 
   If datEmp1.Recordset.NoMatch Then
        MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
    End If
   
  SearchStr2$ = Text2.Text
  datEmp1.Recordset.Index = "Clave"
  datEmp1.Recordset.Seek "=", SearchStr2$
 
    If datEmp1.Recordset.NoMatch Then
        MsgBox ("Clave Errada"), , "Error de clave de usuario"
    End If
    MsgBox ("Bienvenido"), , "Bienvenido"
    Load Form2
    Form2.Show
    Form1.Hide
End Sub

Private Sub Salir_Click()
End
End Sub

Páginas: [1]