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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Posts

    • My official facebook profile!: https://www.facebook.com/spectrumL2 Specifications: Revamped L2JACIS revision FROM the core Private project!!! Revision that has been receiving corrections for over 3 years!!! Events already installed in the revision: TVT CTF KTB PARTY FARM SPOIL EVENT CRAZY RATES TOURNAMENT TIME ZONE (INSTANCE) All working correctly!!! SIEGE ESSENTIAL FEATURES: Walls fix Gates fix Flags fix 100% functional: OLYMPIADS: Implemented settings Hero receives enchanted Weapons with equal status PvP Weapons Optional /true/false Hero can acquire all Hero Weapons Optional true/false OTHER IMPLEMENTATIONS: Teleport fixed (directly to Giran) Teleport effect classic Vip skins vip collor name Pack NPCs with effect already configured BOSES already configured Mobs already configured CLASS BALANCE SPECIAL SYSTEM We have a SPECIAL system developed for Class Balance with only 1 digit in XML %tage of configurable debuffs Player limitation system in BOSES or PvP zones BS blocking system in FLEG zones or events Among others dozens of improvements made in the review... price: 390 USD !  OBS: WE CAN CHANGE THE BANNER AND NAME OF THE SERVICE TO THE ONE OF YOUR PREFERENCE BUT THE SETTINGS MUST BE KEPT ANY CHANGES REQUIRE ADDITION        
    • Server is Online – 1,000+ Active Players! We’re excited to announce the addition of a Europe Proxy to improve connectivity for our EU players! Clans can now benefit from VIP Access to help you catch up faster. 🎯 If you're a clan leader with at least 9 active members, join our Discord and open a ticket to claim your VIP rewards!  
    • The Telegram team is rolling out a new batch of Stars-only gifts you’ll be able to mint as NFTs. Don’t miss your chance to join the next Telegram trend and earn from it! Buy Telegram Stars cheap and KYC-free 1 Star from $0.0149 (min. 50 Stars, bulk discounts available) Promo code STARS5 — 5 % off Pay any way you like: bank cards · crypto · other popular methods How to purchase: ➡Online Store — Click ➡ Telegram bot — Click Other services: ➡ SMM panel — Click Regular buyers get extra discounts and promo codes. Support: ➡ Telegram: https://t.me/solomon_bog ➡ Telegram channel: https://t.me/accsforyou_shop ➡ Discord: https://discord.gg/y9AStFFsrh ➡ WhatsApp: https://wa.me/79051904467 ➡ Email: solomonbog@socnet.store Use these contacts to discuss wholesale orders, partnerships (current list: https://socnet.bgng.io/partners) or to become a supplier. SocNet — your shop for digital goods and premium subscriptions
  • 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