Jump to content

[Share]How to make Login Form in vb [ Simple and SQL ]


Recommended Posts

Posted

 

Hello members i make 2 video today for how to make login form it is easy ;)

 

 

How to make Simple Login Form

 

Video ~>

 

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.Close()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       if textbox1.text = "Username" and textbox2.text = " Password" then
       form2.show
       me.hide
       else
       msgbox.show("Your Information is wrong. Please try again!")
        end if

 

How to make SQL Login Form(RECOMMENDED)

Safe Usrname and password!

 

Video ~>

 

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.Close()

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim connection As New SqlClient.SqlConnection
       Dim command As New SqlClient.SqlCommand
       Dim adaptor As New SqlClient.SqlDataAdapter
       Dim dataset As New DataSet

       connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\members.mdf;Integrated Security=True;User Instance=True")
       command.CommandText = "SELECT * FROM [user] WHERE Username= '" & TextBox1.Text & "'and password='" & TextBox2.Text & "';"
       connection.Open()

       command.Connection = connection
       adaptor.SelectCommand = command
       adaptor.Fill(dataset, "0")

       Dim count = dataset.Tables(0).Rows.Count

       If count > 0 Then
           form2.show()
           Me.Hide()
       Else
           MsgBox("Your information is wrong. Please try again!")
           TextBox1.Clear()
           TextBox2.Clear()
       End If

IN FORM 2!
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Text = "Welcome, " + Form1.TextBox1.Text + "! "

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.Close()
       Form1.Show()

 

 

                        = = = = = = = =

                      =

                    =

                  =

                =

               =                                oyad

               =

                 =

                   =

                     =

                       = = = = = = = =    

 

 

Topic moved | Special thanks to WeirdSituation

 

 

 

Posted

Did you see anywhere GR tags at topic's title?...

 

 

Good job coyad,it seems you are good on vb.

Keep up.

Thanks ;)

 

Aplo, katanoito :D, thanks for share

man only english in topic anyway Thanks ;)

  • 2 weeks later...
Posted

This is only for local databases,plus it is very unsafe to save it this way.The best way to do this is with vb.net + php + mysql.

It goes like this for better security:

VB.net  -> PHP processes the data and contains the connection string to the database -> Mysql Database.

Posted

This is only for local databases,plus it is very unsafe to save it this way.The best way to do this is with vb.net + php + mysql.

It goes like this for better security:

VB.net  -> PHP processes the data and contains the connection string to the database -> Mysql Database.

I am missing your skills man...

Keep sharing/writing

Posted

This is only for local databases,plus it is very unsafe to save it this way.The best way to do this is with vb.net + php + mysql.

It goes like this for better security:

VB.net  -> PHP processes the data and contains the connection string to the database -> Mysql Database.

I know.. I learning....

I am missing your skills man...

Keep sharing/writing

Ok, Tenks ;)

  • 2 weeks later...
Posted

I can help if you want, we can make a Login system together or so, or I can advice you on certain things.

  • 7 months later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Vesper Noble heavy set (RAR) 1800 att - 150e Eternal Core Dualsword +6 300 att 130e Ring of Baium 130e AQ ring 100e Antharas Earring 200e   Paypal payments only DM in discord narttu123
    • L2REBORN x10 - 1gb - 4.2$ l2reborn x1 ( signature ) - 1kk - 1.3$ LU4 - 1kk - 2.3$ MASTERWORRK - 1kk - 3.8kk  discord - adver745645
    • Hello, Skill Activation: The activation options from the Alt+K window work perfectly. However, when activating them from the skill bar, there is still a delay of approximately 1 second. I need to remove that delay
    • --- Interlude Faction/GvE PvP grand opening 2025-11-15 19:00 GMT+2 ---   Gameplay: Chronicle: Interlude Type: Faction/GvE (Angels vs Nature vs Demons) GM Shop: B-S grade Buff slots: 20+4 Starting level: 74 + rebirth system   New Features: Client: Modern interface based on Essence Balance: New class skills for better balance Achievement Rewards: Daily, Weekly, One-time TOP rankings: PvP, Event PvP, Map PvP, Clan PvP, Event MvP, Map MvP Zones: 70 different PvP zones,  18 different events (8 map events | 10 main events) 12 Grand/raid bosses. Castle siege Olympiad Clan Hall challenge Custom Enchant System: Dynamic success chance (greater enchant level or item grade less enchanting success chance) Enchant rate: Blessed scrolls dynamic from 100% to 25%. Crystal Scrolls: 100%; Max enchant weapon +12 Max enchant armor +8 Safe point enchant system Extra Features: PvP items with level upgrade Weapon/Armor upgrade (from B grade to S) system Attributes system   Website: https://l2cygnus.com Community: Discord Facebook: https://www.facebook.com/l2cygnus Youtube:   
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock