Basic mysql user registration system - Printable Version +- Red Security (https://redsecurity.info/cc) +-- Forum: Programming (https://redsecurity.info/cc/forumdisplay.php?fid=5) +--- Forum: Visual Basic & .NET Framework (https://redsecurity.info/cc/forumdisplay.php?fid=17) +---- Forum: Basic VB.net (https://redsecurity.info/cc/forumdisplay.php?fid=42) +---- Thread: Basic mysql user registration system (/showthread.php?tid=81) |
Basic mysql user registration system - viruss - 07-04-2017 welcome to my basic user registration system if using cpanel u need to add your ip address to remote hosts next create new database now create database user with full perms now find your database in phpmyadmin click on database name now click on query button CREATE TABLE IF NOT EXISTS `users` ( `user_id` int(11) NOT NULL AUTO_INCREMENT, `user_name` varchar(40) NOT NULL, `user_username` varchar(40) NOT NULL, `user_pass` varchar(90) NOT NULL, `user_type` varchar(20) NOT NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB; After creating a table in the MySQL Database, open the Visual Basic and create a new Windows Form Application. Set up the Form just like this. form1 code: Imports MySql.Data.MySqlClient Imports System Imports System.Security.Cryptography Imports System.Text Public Function mysqlconnection() As MySqlConnection 'return new connection. Return New MySqlConnection("server=localhost; user id=root; password=; database=dbuser") End Function 'pass the value of mysqlconnection() as MySQL connection to con. Public con As MySqlConnection = mysqlconnection() 'declaring the variables string Public sql As String Public result As String 'declaring the classes Dim cmd As New MySqlCommand Public dt As New DataTable Public da As New MySqlDataAdapter Private Sub register(ByVal sqlQuery As String) Try 'OPENING THE CONNECTION con.Open() 'HOLDS THE DATA TO BE EXECUTED With cmd .Connection = con .CommandText = sqlQuery End With 'EXECUTE THE DATA result = cmd.ExecuteNonQuery 'CHECKING IF THE DATA HAS BEEN EXECUTED OR NOT If result = 1 Then MsgBox("User has been registered.") Else MsgBox("Failed to register the user.") End If con.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Public Sub loginUser(ByVal sql As String) Try 'declaring the variable as integer Dim maxrow As Integer 'open the connection con.Open() 'every click the button the dt will set a new datatable so that it will retrieve new data in the table dt = New DataTable 'set a command With cmd 'holds the data .Connection = con .CommandText = sql End With 'retriving the data da.SelectCommand = cmd da.Fill(dt) 'pass the total value of rows in the table to a variable maxrow maxrow = dt.Rows.Count 'conditioning the total value of rows in the table 'if the total value of rows in the table is greater than 0 then the result is true ' and if not, the result is false If maxrow > 0 Then 'appearing the record of the current row and the current column in the current table. MsgBox(dt.Rows(0).Item(1) & " , " & dt.Rows(0).Item(4)) Else 'the result is false MsgBox("Account does not exist.") End If Catch ex As Exception MsgBox(ex.Message) End Try con.Close() da.Dispose() End Sub Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click 'put the string value to sql sql = "INSERT INTO `users` (`name`, `username`, `Pass`, `type` ) VALUES ('" _ & txtname.Text & "','" & txtuser.Text & "','" & txtpass.Text & "','" & cbotype.Text & "')" 'call your sub name and put the sql in the parameters list. register(sql) End Sub Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click 'put the string value to sql sql = "SELECT * from users WHERE username = '" & username.Text & "' and Pass = '" & password.Text & "'" 'call your sub name and put the sql in the parameters list. loginUser(sql) End Sub End Class 'now name the textBoxes for register user textbox1 = txtname textbox2 = txtuser textbox3 = txtpass ' now name the textbox for login textbox4 = username textbox5 = password 'proof that it works keep in mind this version does not have encryption mysql> SELECT * FROM `users` LIMIT 0 , 30; +----+------+----------+----------------------------------+---------------+ | id | name | username | Pass | type | +----+------+----------+----------------------------------+---------------+ | 11 | red | redsec | 90C7CF8F283BF0126317C0357F689C82 | Administrator | | 12 | red1 | redsec1 | F2AA9C917244CBF0AED0732AEBF4ECF7 | Administrator | | 13 | red2 | redsec2 | 36EB4E7CE4433AA9D02835948C016F2B | Administrator | +----+------+----------+----------------------------------+---------------+ 3 rows in set (0.00 sec) RE: Basic mysql user registration system - Mr.Kurd - 07-06-2017 Thanks bro I just saw this tut |