Saving Data Using VB.Net and SQL Server 2018

Submitted by: 
Visitors have accessed this post 273 times.

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
figure 1
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.
ps1

Step 2

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

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

figure 2

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.


Add new comment

Filtered HTML

  • Web page addresses and e-mail addresses turn into links automatically.
  • You may insert videos with [video:URL]
  • Allowed HTML tags: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd> <table> <tr> <td> <th> <img> <h1> <h2> <h3> <iframe> [video]
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <html4strict>, <java>, <javascript>, <mysql>, <php>, <python>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
  • Lines and paragraphs break automatically.

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.