Insert Search Update in Sqlite Visual Basic

In this post we will fully teach you how to use SQLite in VBNET. In which we have given the coding below in detail about the four curies. That is, four queries like search, update, save, and delete will be used. First of all you have to create a form in Visual Studio. Then four buttons have to be created after which coding has to be done on each button. Then you have to download according to your Windows from SQLite's website. Then there is a table and four columns. There you have to name your project accordingly. As I have created only three columns. And my data will be saved there. For this you need to add two things. The two things are the connection dll file and the toolbox, both of which must be added. It will not happen without it. In this post we will teach you completely i.e. we will develop complete software.

How can you insert records to a table in SQLite?

First you create a number table in SQLite. And make a column according to your work there and give it a name. You can insert data in two ways. The first method you type into the manual column. Second, you can save the data using another programming language. Like VB.NET C# Sharp etc.

Imports System.Data.SQLite Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then MessageBox.Show("Fill the Data") Else Dim con As New SQLiteConnection("data source=C:\Users\pc\Desktop\Database.db") Dim s As String = "insert into Table1 (No,Name,Class,Image) Values (@No,@Name,@Class,@Image)" Dim ms As New MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) con.Open() Dim cmd As New SQLiteCommand(s, con) cmd.Parameters.AddWithValue("@No", TextBox1.Text) cmd.Parameters.AddWithValue("@Name", TextBox2.Text) cmd.Parameters.AddWithValue("@Class", TextBox3.Text) cmd.Parameters.AddWithValue("@image", ms.ToArray()) cmd.ExecuteNonQuery() MessageBox.Show("Successfully Saved ") con.Clone() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" PictureBox1.Image = Nothing End If End Sub

Sqlite update query VB.Net

Here we will learn about the update. It’s means to match all old data with new data for example we have a name in SQLite (Ali) we wrote his date of birth wrong then using query to get this wrong data back to correct. That means we don't have to insert the initial data back. You can use the update query given below in your project. Here we have provided coding in two ways. The first code you can insert without image data into SQLite using vb.net. Another way you can insert data with an image. Take Care of Your Tax Box Name Most of the times when we face a mistake.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim con As New SQLiteConnection("Data source=C:\Users\pc\Desktop\Database.db") Dim s As String = "update Table1 Set No = @No,Name = @Name,Class = @Class,Image = @Image Where No = @No" con.Open() Dim cmd As New SQLiteCommand(s, con) Dim ms As New MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) cmd.Parameters.Add("@No", SqlDbType.VarChar).Value = TextBox1.Text cmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = TextBox2.Text cmd.Parameters.Add("@Class", SqlDbType.VarChar).Value = TextBox3.Text cmd.Parameters.AddWithValue("@image", ms.ToArray()) cmd.ExecuteNonQuery() MessageBox.Show("Successfully Updated") con.Clone() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" PictureBox1.Image = Nothing End Sub

Sqlite select query image vb.net

In this post we will learn about SQLite Search or Select completely. Search or Select have the same meaning in programming languages. It means to investigate, or examine something. This means we will use a select query to find the data for any given name across thousands of columns in a single scan. Here we have provided two types of coding. The first code you can use to extract data without an image and the second to find data with an image you can use in any way you want.

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim con As New SQLiteConnection("data source=C:\Users\pc\Desktop\Database.db") Dim s As String = "select * from Table1 Where No = '" + TextBox1.Text + "'" con.Open() Dim cmd As New SQLiteCommand(s, con) Dim adapter As New SQLiteDataAdapter(s, con) Dim table As New DataTable() adapter.Fill(table) If table.Rows.Count() > 0 Then TextBox2.Text = table.Rows(0)(1).ToString() TextBox3.Text = table.Rows(0)(2).ToString() Dim img() As Byte img = table.Rows(0)(3) Dim ms As New MemoryStream(img) PictureBox1.Image = Image.FromStream(ms) MessageBox.Show("Successfully Find ") End If End Sub

Sqlite delete query vb.net

Delete means to remove or delete something. For example, if I don't want a row in the SQLite next to me, I have to use the delete command. For the data we no longer need, we will use this command. This command deletes your entire table row. And whenever we need to delete many rows or columns, we can find this command useful. The complete coding of which is given below. Using which you can combine both VB.net and Lite to create a delete command. It has two types of code one with image and one without image. You can add the below coding to your project as you wish.

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click If MessageBox.Show("are you sure to delete this entry", "Delete box", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Then Dim con As New SQLiteConnection("Data source=C:\Users\pc\Desktop\Database.db") Dim s As String = "Delete from Table1 Where No = '" + TextBox1.Text + "'" con.Open() Dim cmd As New SQLiteCommand(s, con) cmd.ExecuteNonQuery() MessageBox.Show("Successfully Deleted") End If End Sub

How to upload image in vb.net windows application

Image upload is very essential in every project. When we want to add a picture to any database, we need a button and a picture box. In this post we will share complete coding with you. After selecting the language of VB.NET we have to select a new window form. After that we need to get open file dialog from toolbox. With its help we can convert our image to different sizes.

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click OpenFileDialog1.FileName = "" OpenFileDialog1.Filter = "All Picture Files|*.bmp;*.jpg;*.gif;*.png|JPEG (*.jpg)|*.jpg|Bitmap (*.bmp)|*.bmp|Graphics Interchange Format (*.gif)|*.gif|Portable Network Graphic (*.png)|*.png" If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) End If End Sub

sqlite connection string example

sqlite connection string example coding is below use the following for configuration file.