Saving Data Using VB.Net and SQL Server 2018

[mickel2000]

In this tutorial, I will teach you how to save the data using vb.net and SQL Server database. This program is developed in Visual Studio 2015 and Microsoft SQL Server Management Studio 2018. It has the ability to save the data in the SQL Server database that you have input in the textbox. Let’s begin.

Creating Database

1. Install the SSMS 2018 on your machine.
2. Open the SSMS 2018 . After that, right click the database, the select “New Database” and name it “dbperson”

3. Do the following query to create a table in the database that you have created.

1. 
   
2. USE
   
   [
   
   dbperson]
   
3. GO
   
4. 
   
5. /****** Object: Table [dbo].[tblperson] Script Date: 11/10/2019 11:15:11 AM ******/
   
6. SET
   
   ANSI_NULLS ON
   
7. GO
   
8. 
   
9. SET
   
   QUOTED_IDENTIFIER ON
   
10. GO
    
11. 
    
12. CREATE
    
    TABLE
    
    [
    
    dbo]
    
    .
    
    [
    
    tblperson]
    
    (
    
13. [
    
    PersonID]
    
    [
    
    INT
    
    ]
    
    IDENTITY
    
    (
    
    1
    
    ,
    
    1
    
    )
    
    NOT
    
    NULL
    
    ,
    
14. [
    
    Fname]
    
    [
    
    nvarchar]
    
    (
    
    50
    
    )
    
    NULL
    
    ,
    
15. [
    
    Lname]
    
    [
    
    nvarchar]
    
    (
    
    50
    
    )
    
    NULL
    
16. )
    
    ON
    
    [
    
    PRIMARY
    
    ]
    
17. GO
    

Creating Application

Step 1

Open Microsoft Visual Studio 2015 and create a new windows form application for visual basic.

Step 2

Add a two Textboxes, two Labels, and a Button inside the Form. Then do the Form just like shown below.

Step 3

Press F7 to open the code editor. In the code editor, add a namespace to access SQL Server

libraries.

1. 
   
2. Imports System.Data.SqlClient
   

Step 4

Create a connection between Visual Basic 2015 and SQL Server database. After that, declare and initialize all the classes and variables that are needed.

1. 
   
2. Dim
   
   con As
   
   SqlConnection = New
   
   SqlConnection("Data Source=.\SQLEXPRESS;Database=dbperson;trusted_connection=true;"
   
   )
   
3. Dim
   
   cmd As
   
   SqlCommand
   
4. Dim
   
   sql As
   
   String
   
5. Dim
   
   result As
   
   Integer
   

Step 5

Create a method for saving the data in the database.

1. 
   
2. Private
   
   Sub
   
   saveData(sql As
   
   String
   
   )
   
3. Try
   
4. con.Open
   
   ()
   
5. cmd = New
   
   SqlCommand
   
6. With
   
   cmd
   
7. .Connection = con
   
8. .CommandText = sql
   
9. Result = .ExecuteNonQuery()
   
10. End
    
    With
    
11. If
    
    Result > 0 Then
    
12. MsgBox("Data has been saved in the databse"
    
    )
    
13. End
    
    If
    
14. 
    
15. Catch ex As
    
    Exception
    
16. MsgBox(ex.Message)
    
17. Finally
    
18. con.Close
    
    ()
    
19. End
    
    Try
    
20. End
    
    Sub
    

Step 6

Go back to the design view, double click the button to open the click event

handler of it. After that, add this code inside the “button1_clicked” event to save the data in the database.

1. 
   
2. Private
   
   Sub Button1_Click(
   
   sender As
   
   Object
   
   , e As
   
   EventArgs)
   
   Handles Button1.
   
   Click
   
3. sql =
   
   "INSERT INTO tblperson (Fname,Lname) VALUES ('"
   
   &
   
   txtFname.
   
   Text
   
   &
   
   "','"
   
   &
   
   txtLname.
   
   Text
   
   &
   
   "')"
   
4. saveData(
   
   sql)
   
5. 
   
6. txtFname.
   
   Clear
   
   (
   
   )
   
7. txtLname.
   
   Clear
   
   (
   
   )
   
8. End Sub
   

Output

The complete source code is included. You can download it and run it on your computer.
For any questions about this article. You can contact me @
Email – [email protected]
Mobile No. – 09305235027 – TNT
Or feel free to comment below.

Download