Croland

Hola, hoy les mostrare como crear un login sencillo y crear la base de datos cuando inicia el programa por primera vez para visual basic 6.EmpecemosPrimeroCreamos un formulario y le agregamos los siguientes items: 3 labels (Titulo de su programa, usuario y contraseña), 2 textbox (el primero para usuario le cambiamos el nombre que tiene por defecto de Text1 por txtusuario y el segundo para contraseña le cambiamos por txtcontraseña) y por ultimo 2 commandbutton (al primero de entrar le cambiamos el nombre de Command1 a cmdEntrar y el segundo para Salir le cambiamos el nombre para cmdSalir). Y el formulario les quedará mas o menos así:SegundoCreamos un Modulo para que cuando el programa se ejecute por primera vez y detecte que no tiene base de datos la cree junto con un usuario por defecto, que mas adelante podrá ser editado.Dentro del módulo ponemos el siguiente código:Global WK As WorkspaceGlobal dbint As DAO.DatabaseGlobal rs As DAO.RecordsetPublic respuesta As StringSub crear_base()Set dbint = CreateDatabase(App.Path & "usuarios.mdb", dbLangSpanish, dbversion25)SQL = "create table Usuarios (Usuario text(30) not null, Contrasenia text(20) not null, Codigo counter not null constraint Codigo primary key) ;" 'Se definen las tablas que tendrá la base de datosdbint.Execute SQL 'Se crea la tablaSet dbint = OpenDatabase(App.Path & "usuarios.mdb"; ) 'Se guarda la base de datos en donde se encuentre el archivo ejecutable de su programa con el nombre de usuarios.mdb, archivo editable en Access 2007SQL = "select * from usuarios"Set rs = dbint.OpenRecordset(SQL)rs.AddNew 'Se crea el usuario por defecto con su contraseña por defectors!Usuario = "user"rs!Contrasenia = "user"rs.Updaters.Closedbint.Closemsj = "Se ha creado la base de datos: " & App.Path & "usuarios.mdb con éxito"respuesta = MsgBox(msj, vbOKOnly + vbInformation, "Login Reporter"; )End SubTerceroCreamos otro formulario para mostrar cuando ingresemos para probar nuestro loginCuartoPegamos este código en el formulario de loginOption ExplicitDim cn As New ADODB.Connection, strCNString As StringDim rs As New ADODB.RecordsetDim Txt As StringPrivate Sub Form_Load()On Error GoTo crear_baseSet WK = Workspaces(0)Set dbint = WK.OpenDatabase(App.Path & "usuarios.mdb"; )Exit Subcrear_base:respuesta = MsgBox("No existe la base de datos", vbOKOnly + vbCritical, "Login Reporter"; )respuesta = MsgBox("¿Desea crearla?", vbOKOnly + vbOKCancel + vbQuestion, "Login Reporter"; )If respuesta = vbOK Thencrear_baseElserespuesta = MsgBox("El programa no puede funcionar sin la base de datos", vbOKOnly + vbExclamation, "Login Reporter"; )If respuesta = vbOK Then End End If End If Exit SubMe.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2End SubPrivate Sub cmdEntrar_Click()On Error GoTo ErrHandlerstrCNString = "Data Source=" & App.Path & "usuarios.mdb"cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"cn.ConnectionString = strCNStringcn.OpenWith rs .Open "Select * from usuarios where Usuario='" & txtusuario.Text & "' and Contrasenia='" & txtcontraseña.Text & "'", cn, adOpenDynamic, adLockOptimistic If .EOF Then MsgBox "El usuario y/o contraseña no son correctos", vbOKOnly + vbCritical, "Login System" txtusuario.Text = "" txtcontraseña.Text = "" txtusuario.SetFocus cn.Close Else Txt = "" & " " & UCase$(txtusuario.Text) & "" MsgBox "Bienvenido" & Txt, vbOKOnly + vbExclamation, "Login System" cn.Close Unload Me form2.Show End If End With Exit Sub ErrHandler:MsgBox Err.Description, vbCritical, "Login System"cn.CloseEnd SubPrivate Sub cmdSalir_Click()Unload MeEnd SubQuintoEjecutamos para probarloSi al ejecutarlo les sale un error como "No se ha definido el tipo definido por el usuario" no desesperen.Fijense en lo siguiente, vayan a Proyecto > ReferenciasTienen que estar seguros de que esten marcadas las siguientes opcionesLes dejo un video para que vean que funcionaEspero les halla servido!! Dudas comenten, mas adelante dejare el tutorial de como agregar, editar y eliminar usuarios desde visual basic 6 a una base de datos access.

Hoy les vine a dejar un tutorial de cómo montar un servidor web online propio en ubuntu, fue probado en ubuntu 10.10, espero les sirva, mas adelante dejo con capturas de pantalla, y recuerden que esto es todo por Terminal. 1.- sudo apt-get remove apache2 2.- sudo apt-get remove noip2 3.- sudo apt-get update 4.- sudo apt-get install apache2 5.- En el navegador que utilizen, pongan -> http://localhost 6.- Ahora ustedes cambien la pantalla de bienvenida que viene predeterminada por la que ustedes quieran colocar |--> sudo gedit /var/www/index.html 7.- Registrense en www.no-ip.com |--> Creense un host por ej: "elnombrequelijas.zapto.com" 8.- sudo apt-get install noip2 9.- sudo noip2 -C |-->Ingrese mail |-->Ingrese contraseña |-->Intérvalo de actualización [30] |-->Ingrese nombre de red Si es alámbrica es eth0 Si es inhalámbrica (wifi) es wlan0 10.- Configurar redireccionamiento del puerto 80 a su IP en su router. (SI NO PUEDEN INGRESAR A LA CONFIGURACION DEL ROUTER, ACA SE LES TERMINO TODO Y NO LES VA A ANDAR NADA) 11.- Abren el navegador y ponen -> "elnombrequelijas.zapto.com" 12.- Ahora si quieren compartir una carpeta con archivos en su servidor, tienen que hacer lo siguiente sudo chmod 777/var/www/ 13.- sudo mkdir /var/www/"nombre_de_la_carpeta" 14.- Abren nuevamente el navegador y ponen -> elnombrequelijas.zapto.com/nombre_de_la_carpeta y les aparecerá la carpeta que estan compartiendo. Bueno espero les alla servido, mas adelante colocaré screenshot de cada paso... Saludos!!!