Mensajes

[MODULO]

Buenas...
Vuelvo a molestar de nuevo por acá para no abrir un tema nuevo, ya que tiene que ver con lo mismo. VB y ACCESS.

Mi problema ahora es que ya pude hacer el login, pero quiero que cuando pase ese login, me lleve a otro form y en una grilla mostrar los valores que figuren en la tabla creada en ACCESS.

Tengo 2 formularios. FRMLOGIN y FORM1 (donde se encuentra la grilla)
Un módulo: Donde genero la conexión.

Pongo los sources para que me indiquen por favor que es lo que hago mal, ya que lo que pongo O ESTA MAL y me dice algo asi como que se requiere un objeto, o que esta abierto, o que esta cerrado, como también arroja a veces un ERROR donde dice que la memoria no se puede "read" y se muere mi VB.


MODULO

Código (vb) [Seleccionar] Expandir

Public CN As ADODB.Connection 'Variable para la conexion a la BDD

Sub Conectar()
    Dim RST As New ADODB.Recordset
    Set CN = New ADODB.Connection
    Set RST = New ADODB.Recordset
   
    With CN
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            App.Path & "\bdgym.mdb" & ";Persist Security Info=False"
        .CursorLocation = adUseClient
        .Open
    End With
End Sub

FRMLOGIN

Código (vb) [Seleccionar] Expandir

Dim RST As New ADODB.Recordset '\\ -- Variable de Tipo Recordset.

Private Sub cmdborrar_Click()
txtusuario.Text = ""
txtpassword.Text = ""
End Sub

Private Sub cmdlogin_Click()
'-------------LOGIN DE USUARIO-------------
'Busca en la tabla si existe el usuario.
RST.Find "id ='" & Trim(txtusuario.Text) & "'"
'Si no existe
If RST.EOF Then
    MsgBox "No existe el usuario indicado", vbExclamation, "ERROR"
Else
'Si existe, verifica los passwords y si es correcto nos lleva al formulario Principal
    If RST!Password = Trim(txtpassword.Text) Then
        Unload frmlogin
        Load Form1
        Form1.Show
    Else
        'Sino, muestra mensaje de error
        MsgBox "Clave incorrecta", vbExclamation, "ERROR"
    End If
End If
End Sub

Private Sub Form_Load()
Call GeneraConexion

End Sub

Sub GeneraConexion()
    Set RST = New Recordset
    Call Conectar
    RST.CursorLocation = adUseClient
    RST.Open ("SELECT * FROM Usuarios ORDER BY id"), CN, adOpenKeyset, adLockOptimistic
End Sub



FORM1

Código (vb) [Seleccionar] Expandir

Private Sub reload()
Set rst = New ADODB.Recordset
rst.Open sql, CN
Set grilla.Recordset = rs
grilla.Refresh
End Sub

Private Sub Form_Load()
sql = "select * from socios order by id"
Call reload
End Sub

Tengo ya creadas las 2 tablas en access, como dije el login lo pasa perfectamente.
Pero después no me muestra en la grilla la tabla SOCIOS.

Muchas gracias!

PD: Dejo una imágen del mensaje de error que hace que muera el VB



Ahora si, Saludos!

Muchas gracias a los dos.
Ahora sí quedo mucho mejor.



Saludos!

PD: Perdón si posteo duda así tan sencillas y cortas. Es que estoy tratando de aprender.
Si hay alguna molestia o algo diganmen y directamente voy preguntando todo en un mismo post.

Gracias de nuevo!

Buenas gente vuelvo con una duda más.
Antes de que me digan algo, busqué en google, en el foro, y en varios lados y no encontré nada que me sirva.

Quiero cambiar la apariencia de los botones.
Ví un source de un programa y ví que tenía un boton que cuando pasabas por arriba, cambiaba de color y cuando clickeabas tenía otro color también.

Me puse a mirar el programa y era un MBUTTON. Busqué en google sobre esto como dije antes y no encontré nada.

Me gustaría saber como hacen para que sus programas queden "lindos" de apariencia porque yo tocando las propiedades la verdad que no pude hacer mucho.

Ví un modulo de LeandroA donde había SKINS para los formularios y esas cosas, pero la verdad que eso no busco, busco solamente cambiar los botones y que quede lindo. Les muestro el ejemplo que les decía:



El botón aceptar esta NORMAL y cuando pasas por arriba con el mouse queda como el botón de SALIR.

Espero haber sido claro y desde ya muchas gracias!

cΔssiΔnі si digo que busqué, busqué.... Encontré varios del Guille y de recursosvisualbasic pero no los entendía o no salía lo que quería hacer.

Jack06, muchas gracias!!
Era algo asi lo que buscaba.

Mil gracias a todos

Saludos!

La verdad seba123neo que no encontré cual era el que me dijiste.
Si me pudieras orientar o decirme que parte del código modificar sería útil.

Como asi también algun manual donde explique de 0 el manejo de base de datos ADO, pasandole consultas SQL sencillas como para lo que quiero hacer. Un LOGIN.

Desde ya muchas gracias

Saludos!

Oks, ahora voy a tratar de modificarlo y buscar lo que me dijiste.
Recién estoy empezando en esto de base de datos. Busqué muchas guías pero ninguna que encontré me servía.

Voy a buscar lo que me dijiste,
cualquier cosa que sea útil diganmela por favor.

Muchas gracias!

Buenas gente:
Los molesto por lo siguiente. Estoy haciendo un login en VB y quiero que cuando ingrese un usuario y contraseña (que ya estan almacenadas en la base de datos creada en access) me lleve a otro formulario.

Por ahora lo único que tengo es la conexión a la base, pero lo que no tengo ni la más palida idea, es como hacer el IF que diga que si es igual al ID y al PASSWORD entonces muestre el otro formulario.

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Dim ubicacion_base As String
' Crear la conexión
Set cnn = CreateObject("adodb.connection")
cnn.Errors.Clear
cnn.CursorLocation = adUseClient
ubicacion_base = App.Path & "\bdgym.mdb"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ubicacion_base & ";Persist Security Info=False"
cnn.Open ' abre la conexión
sql = "select * from usuarios"
Set rs = New ADODB.Recordset 'genera la conexion
rs.Open sql, cnn 'accede a la bd

Les dejo el código que tengo y espero que me peudan dar una mano.

Saludos!

Checate phpmailer.. hay un método muy sencillo de hacerlo. También lo puedes hacer con mail(), el adjunto en los headers.. (creo).

Pero se puede ejecutar vía DOS?
Lo había visto phpmailer, pero el paso de las variables y esas cosas se me complicaba.

Bueno gente lo que quiero realizar es un programa que envie mails adjuntos vía MSDOS.

O sea ejecutandolo de esta manera: php archivo.php

Por ahora lo que pude hacer es envíar mails, pero lo que no tengo idea como hacer es lo de mandar mails adjuntos. Leí varias cosas de como hacerlo adjuntos pero ninguna de como hacerlo via MSDOS.

Con respecto al archivo adjunto, en el archivo php, abría que indicarle la ruta del archivo que se quiere subir para luego enviarlo.

Alguien tiene alguna idea como hacerlo?

Desde ya muchas gracias por la ayuda!

Si el nombre del html es un nombre muy largo te será muy dificil obtenerlo, talves puedas probar registrarte y ver hacia donde te redirecciona y ver si ese enlace tiene alguna comparación con tus datos registrados y si es así podrías saber como relacionar el acceso con otro usuario.

Puedes probar fuerza bruta.

Fijate si en alguna parte tiene alguna falla de path disclosure para ver archivos y esas cosas.

Otra opción es que no sea realmente un archivoi html sino que sea un rewrite del htaccess simulando un permalink y realmente ese hash sea simplemente una variable get que se le envía a algún php.

De todas formas hay muchas otras formas de ingresar.

Parse error: parse error in /inetpub/funciones/registracion/classes/database/queryresult_class.inc on line 178

La verdad que acá me mataste WHK.
Voy a ver lo del path disclouse pero sobre el resto la verdad ni idea.

Gracias igualmente!