Agregar datos a base de datos en Access

Primero, tenemos que saber como está compuesta una base de datos.

No tengo ganas de darme todo un curso teórico sobre base de datos, porque hablando en serio, ni siquiera yo lo sé.



En la imagen anterior, lo de la izquierda (Login) es una tabla, mientras que ID, Usuario, y Contraseña son los campos de la tabla. En tipo de dato se selecciona el dato que colocará el usuario (Si es edad numérico, si es nombre Texto, etc.)

Bueno, crearemos una base de datos, crear una tabla llamada Login (como la de la imagen anterior), y dos campos de tabla (Usuario y contraseña).

Empezando ...

Bueno, empezamos con código en Visual Basic .NET :)

Como primer paso, crearemos un nuevo proyecto, de tipo "Aplicación de Windows", y le insertaremos controles de la siguiente forma:



Como ven, insertamos 2 controles Textbox, 2 Labels y un Button.

Lo que hará el programa es, insertar el dato escrito en Textbox1 (Correspondiente a usuario) en el campo de usuario de la base de datos, y el dato escrito en Textbox2 (Correspondiente a contraseña) en el campo de una contraseña de la base de datos.

Como primer paso importamos System.Data.OleDb de la siguiente manera:

En declaraciones colocamos:

Imports System.Data.Oledb

Luego, en el botón, colocamos la validación de los textbox (que no estén vacios, etc)

If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Then
MessageBox.Show("No se ha ingresado ningún caracter")
Else
Validar(Textbox1.Text, textbox2.text)
End If

Código traducido:

Si sacándole los espacios vacíos a textbox1 (usuario) o textbox2 (contraseña), quedan sin ningun caracter, entonces mandar mensaje de que no se ha ingresado ningún caracter.

Para poder seguir, hace falta que sepas como obtener la Cadena de conexión a la base de datos. Si yo tengo mi base de datos de access guardada en disco C:, y ésta base de datos se denomina "Login.mdb" entonces, tendré que poner esta cadena de conexión:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\login.mdb

En caso de que no sepas la tuya, copia y pega esa, pero cambiale lo que sigue después de "Data source=" por la dirección donde se encuentra tu base de datos.

Seguimos, creamos un procedimiento de la siguiente manera:

Sub validar(byval usuario as string, contraseña as string)
Try
Dim cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\login.mdb"
Dim conectar As New OleDbConnection(cadena)
Dim cadenacomando As String = "Insert Into Login(Usuario,Contraseña) Values(@Usuario,@Contraseña)"
Dim comando As New OleDbCommand(cadenacomando, conectar)
comando.Parameters.Add(New OleDbParameter("@usuario", OleDbType.VarWChar))
comando.Parameters("@usuario").Value = usuario
comando.Parameters.Add(New OleDbParameter("@contraseña", OleDbType.VarWChar))
comando.Parameters("@contraseña").Value = contraseña
conectar.Open()
comando.ExecuteNonQuery()
conectar.Close()
Catch ex As Exception
MessageBox.Show("Error: " & vbNewLine & ex.Message)
End Try
End sub

Explicamos el código:

Creamos un procedimiento llamado Validar, al que se le pasarán dos argumentos, el nombre de usuario a agregar, y la contraseña. Luego declaramos cadena, como un texto, y dentro de ella colocamos la cadena de conexión de la base de datos, hablada anteriormente. Declaramos la cadena de texto comando, que es lo que se ejecutará frente a la base de datos, este comando dice "Insertar en Login (usuario,contraseña) Los valores (@usuario,@contraseña)". A estos valores (@usuario y @contraseña) después se les indicará que son los que escribe el usuario.
Declaramos un comando, que se le pasará la cadena del comando, y la conexión a la que se aplicará. Agregamos parámetros al comando, y se indica que @usuario tendrá el valor de nombre (el primer argumento que hablamos), lo mismo hacemos con @contraseña.

Finalmente abrimos la conexión, ejecutamos el comando, y la cerramos.

Probando el programa..

Ejecutamos el programa, e intentamos añadir a usuario un valor, Ejemplo "Hola" y a Contraseña otro valor, ejemplo "123456".

Apretamos sobre el botón, y si la validación fue correcta, ya tendremos los datos agregados a la base de datos.





Para aprender otros comandos, buscá en google tutoriales sobre Programación sobre SQL, te recomiendo que será muy necesario para trabajar con base de datos :)

Descarga del proyecto:

Bajar desde RAPIDSHARE
Bajar desde MEGAUPLOAD
Bajar desde SENDSPACE

Mucha suerte, espero que lo hayas entendido.

Fekaa.-

Código AntiBot

Acá les dejaré un programa que capta el código antibot, en caso de ser correcto, larga un mensaje diciendo que el código fue correcto, de lo contrario dice que es incorrecto.

Primero hacemos un diseño en el formulario, como muestra la siguiente imagen:



Le podemos cambiar la font al label para que quede mas lindo. Yo le puse una letra "Microsoft Sans Serif", estilo negrita, y tamaño 12.

Bueno, después en el FORM_LOAD (Evento que dispara cuando carga el formulario) escribimos:

Dim random As New Random 'esto sirve para hacer numeros aleatorios
Dim numero As Integer 'Declaramos "numero" como numero entero
numero = Math.Round(random.Next(1, 10)) 'redondeamos numero del 1 al 10
Label1.Text = numero ' Escribimos el numero random en label1
Randomize() ' Esto sirve para volver a cargar los numeros, y asi obtener numeros diferentes cada vez
numero = Math.Round(random.Next(1, 10)) ' Repetimos procesos de ahora en mas
Label2.Text = numero
Randomize()
numero = Math.Round(random.Next(1, 10))
Label3.Text = numero
Randomize()
numero = Math.Round(random.Next(1, 10))
Label4.Text = numero

Luego de esto, en el botón verificar, evento "CLICK" escribimos el siguiente código:

If Trim(TextBox1.Text) = Label1.Text & Label2.Text & Label3.Text & _
Label4.Text Then
MsgBox("Código AntiBot correcto", MsgBoxStyle.Information, "Fekaa (:")
Exit Sub
Else
MsgBox("Captcha incorrecto", MsgBoxStyle.Critical, "Fekaa (:")
End If

Esto lo paso a código reducido:

Si sacándole los espacios vacíos de su derecha y de su izquierda al texto escrito en textbox1, se hace igual a lo que hay dentro de label1 juntandolo con label2, juntandolo con label3, juntandolo con label4, entonces salta un mensaje diciendo "Código antibot correcto", de lo contrario, salta un mensaje diciendo "Código antibot incorrecto".

Imagen del resultado:





Descarga del proyecto:

Rapidshare: http://rapidshare.com/files/163993020/Codigo_Antibot_by_Fekaa.rar.html
Badongo: http://www.badongo.com/file/12104984
Sendspace: http://www.sendspace.com/file/qqxcwp
Megaupload: http://www.megaupload.com/?d=Z8RBKUF9

Un saludo, Fekaa.-

MetroBooter - Código fuente

Lo que hace "MetroBooter", es postear a otros metroflogs al azar, con tu cuenta de Metroflog (Metroflog.com).

Estoy aprendiendo Visual Basic .NET, y es una de las mejores cosas que hice, así que quería compartirlos con ustedes. Por favor, si en algun momento hacen una critica, que sea constructiva por favor

Bueno, dejo instrucciones:

1º Paso:

Loguearse, sin nada que explicar. Ponen su usuario, luego su contraseña. Finalmente hacen click en Enviar. Cuando estén logueados, hacen click en el botón de abajo. (Click acá cuando te encuentres logueado)



2º Paso:

Escribir el mensaje con el cual van a querer firmar, y luego Confirmar la operación.




Finalmente, comenzará a firmar.

A las 10 firmas, para, y espera 5 minutos y después sigue firmando.

No hice el truco de "Reloguear" para seguir firmando, porque si no te ponen el codigo AntiBot, y ahí si que no sabia como saltarlo

Descarga.

Click acá para bajar de Rapidshare
Click acá para bajar de Badongo

Espero que les guste.

Como ya he dicho tengo 14 años, y me gustaría mucho aprender de opiniones de gente que sabe, y de la que no sabe también vale

Muchas gracias a todos.

Les deja un saludo, Fekaa.

Código fuente:

Click acá para bajarlo desde Badongo

Visualizador de procesos

En este ejemplo, veremos como listar procesos activos, en un listbox.

Lo único que necesitaremos, es colocar un listbox en el formulario.



Quedará diseñado de la siguiente forma:



Luego en el form load (para ingresar, hacer doble clic sobre el formulario) , colocamos el siguiente código:

Dim prc() As Process ' Declaramos prc() como proceso
prc = Process.GetProcesses ' Instanciamos a prc() para obtener procesos (Get Process)
Dim i As Integer ' Declaramos i para utilizarla en un FOR
For i = 1 To UBound(prc) ' Recorre desde el proceso 1 hasta el ultimo proceso encontrado
ListBox1.Items.Add(prc(i).ProcessName & ".exe") ' Agregamos a listbox1, todos los procesos recorridos desde el proceso 1 hasta el ultimo que existe.
Next

Eso es todo, lo que hará esto es listar los procesos activos en un LISTBOX.

Quedará de la siguiente forma:



Fekaa.-

Para dudas o consultas, mandame un e-mail

Fekaa.cba@live.com.ar

Descarga de Visual Studio .NET 2005

Este es descarga directa, luego subiré un mirror (que si sé funciona vía Pando).

Construye aplicaciones multicapa de misión crítica para la Web, dispositivos móviles, clientes inteligentes, o aplicaciones basadas en Microsoft Office. Con Visual Studio 2005, los desarrolladores profesionales pueden:

* Disfrutar un entorno de desarrollo altamente productivo con diseñadores visuales, lenguajes de programación y editores de código mejorados.
* Desarrolla y depura aplicaciones multicapa de servidor desde un mismo entorno unificado de desarrollo (Integrated Development Enviroment - IDE).
* Construye soluciones para SQL Server 2005 utilizando herramientas visuales integradas de diseño de bases de datos e informes.
* Crea tus propias herramientas que extienden el IDE de Visual Studio usando el SDK de Visual Studio.


En descarga directa

Cita Serial:

KGR3T F2C26 RRTGT D6DQT QBBB3

Espero les funcione....

Imágenes:





Fekaa.-