Imports System.Data.

SqlClient
Imports System.IO
//////////////////////////////
Save code

Try
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
Dim gender As String

con.ConnectionString = "Data Source=DESKTOP-0I2CL64\SQLEXPRESS;Initial

Catalog=transportation_management_system;Integrated Security=True"

con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from customers where phone_number='" &
phone_number.Text & "' "
dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("phone number duplication is not allowed",
MsgBoxStyle.Critical)
con.Close()
Else
If (male.Checked = True) Then
gender = "male"
Else
gender = "female"
End If
con.Close()

con.Open()

cmd = New SqlCommand("insert into

customers(customer_name,address,Gender,Date,phone_number,email,remarks,image)
VALUES ('" & txtname.Text & "','" & address.Text & "', '" + gender + "', '" &
BunifuDatepicker1.Value.Date & "','" & phone_number.Text & "','" & email.Text &
"','" & remarks.Text & "' ,@c_image) ", con)
Dim ms As New MemoryStream()
Dim bmpimage As New Bitmap(picture.Image)
bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("@c_image", SqlDbType.Image)
p.Value = data
cmd.Parameters.Add(p)
'cmd.ExecuteNonQuery()

If txtname.Text = "" Or address.Text = "" Or phone_number.Text = ""

Or phone_number.Text = "" Or gender = "" Then
MessageBox.Show("Please fill all blank spaces", "FAILLED",
MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

cmd.ExecuteNonQuery()

MessageBox.Show("New record is saved", "Success",

MessageBoxButtons.OK, MessageBoxIcon.Information)
 Reset()
End If

con.Close()

End If
con.Close()

Catch ex As Exception
MsgBox("logic error is an existing")

End Try

Dim ConnectionString As String = "Data Source=DESKTOP-0I2CL64\

SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True"
Dim sql As String = "select * from customers"
Dim connection As New SqlConnection(ConnectionString)
Dim DataAdapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
DataAdapter.Fill(ds, "customers")
Guna2DataGridView1.DataSource = ds
Guna2DataGridView1.DataMember = "customers"
///////////////////////////////////////////////////////

Add New
Try
Dim number As Integer = 0
Dim cmd As SqlCommand
Dim con As New SqlConnection("Data Source=DESKTOP-0I2CL64\
SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True")
con.Open()
Dim sql As String = "select max(ID) from customers"
cmd = New SqlCommand(sql)
cmd.Connection = con

If (IsDBNull(cmd.ExecuteScalar)) Then
number = 1
txtid.Text = "ID-" + number.ToString
Else
number = cmd.ExecuteScalar + 1
txtid.Text = "ID-" + number.ToString

End If
txtname.Focus()
save.Enabled = True
delete.Enabled = False
update.Enabled = False
txtname.Text = ""
address.Text = ""
phone_number.Text = ""
remarks.Text = ""
email.Text = ""
BunifuDatepicker1.Value = Today

male.Checked = False
 female.Checked = False
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
///////////////////////////////////////////////////
picture Box
/////////////////////
Try
With OpenFileDialog1
.Filter = ("image files | *.png;*.jpeg;*.jpg;*.gif;")
.FilterIndex = 1
End With
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
picture.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
Catch ex As Exception

End Try
////////////////////////

Form Loard
///////////////////////////////
Dim ConnectionString As String = "Data Source=DESKTOP-0I2CL64\SQLEXPRESS;Initial
Catalog=transportation_management_system;Integrated Security=True"
Dim sql As String = "select * from customers"
Dim connection As New SqlConnection(ConnectionString)
Dim DataAdapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
DataAdapter.Fill(ds, "customers")
Guna2DataGridView1.DataSource = ds
Guna2DataGridView1.DataMember = "customers"
//////////////////////////////////////

Dim s1 As String
Dim st2 As String
Dim Photoname As String = ""
Dim IsImageChanged As Boolean = False

///////////////////////////////
Data Grid View

Dim table As New DataTable("customers")

Dim index As Integer
index = e.RowIndex
Dim selectedRow As DataGridViewRow
selectedRow = Guna2DataGridView1.Rows(index)
txtid.Text = selectedRow.Cells(0).Value.ToString()
txtname.Text = selectedRow.Cells(1).Value.ToString()
address.Text = selectedRow.Cells(2).Value.ToString()
If selectedRow.Cells(3).Value.ToString() = "male" Then
male.Checked = True
Else
female.Checked = True
End If
3: BunifuDatepicker1.Value = selectedRow.Cells(4).Value.ToString()
phone_number.Text = selectedRow.Cells(5).Value.ToString()
email.Text = selectedRow.Cells(6).Value.ToString()
remarks.Text = selectedRow.Cells(7).Value.ToString()

Dim bytes As Byte() = Guna2DataGridView1.CurrentRow.Cells(8).Value

Using ms As New MemoryStream(bytes)
picture.Image = Image.FromStream(ms)
txtname.Focus()
save.Enabled = False
delete.Enabled = True
update.Enabled = True
Dim ConnectionString As String = "Data Source=DESKTOP-0I2CL64\
SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True"
Dim sql As String = "select * from customers"
Dim connection As New SqlConnection(ConnectionString)
Dim DataAdapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
DataAdapter.Fill(ds, "customers")
Guna2DataGridView1.DataSource = ds
Guna2DataGridView1.DataMember = "customers"

End Using
//////////////////////////////////////////////////////

Update

Try
If Len(Trim(txtname.Text)) = 0 Then
MessageBox.Show("Please select school name", "",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
address.Focus()
Exit Sub
End If
If Len(Trim(phone_number.Text)) = 0 Then
MessageBox.Show("Please enter admission no.", "",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
remarks.Focus()
Exit Sub
End If

If male.Checked = False And female.Checked = False Then

MessageBox.Show("Please check gender", "", MessageBoxButtons.OK,
MessageBoxIcon.Warning)
Exit Sub
End If

If male.Checked = True Then

s1 = male.Text
 End If
If female.Checked = True Then
s1 = female.Text
End If
con = New SqlConnection(cs)
con.ConnectionString = "Data Source=DESKTOP-0I2CL64\SQLEXPRESS;Initial
Catalog=transportation_management_system;Integrated Security=True"
con.Open()
Dim cb As String = "Update customers set customer_name=@d2,
address=@d3, Gender=@d4, date=@d5, phone_number=@d6, email=@d7,
remarks=@d8 ,image=@d9 where id=@d1"
cmd = New SqlCommand(cb)
cmd.Connection = con

cmd.Parameters.AddWithValue("@d2", txtname.Text)
cmd.Parameters.AddWithValue("@d3", address.Text)
cmd.Parameters.AddWithValue("@d4", s1)
cmd.Parameters.AddWithValue("@d5", BunifuDatepicker1.Value.Date)
cmd.Parameters.AddWithValue("@d6", phone_number.Text)
cmd.Parameters.AddWithValue("@d7", email.Text)
cmd.Parameters.AddWithValue("@d8", remarks.Text)
Dim ms As New MemoryStream()
Dim bmpImage As New Bitmap(picture.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("@d9", SqlDbType.Image)
p.Value = data
cmd.Parameters.Add(p)
'cmd.Parameters.AddWithValue("@d27", txtAdmissionNo1.Text)
cmd.Parameters.AddWithValue("@d1", txtid.Text)
cmd.ExecuteNonQuery()
con.Close()

MessageBox.Show("Successfully updated", "Record", MessageBoxButtons.OK,

MessageBoxIcon.Information)
Dim ConnectionString As String = "Data Source=DESKTOP-0I2CL64\
SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True"
Dim sql As String = "select * from customers"
Dim connection As New SqlConnection(ConnectionString)
Dim DataAdapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
DataAdapter.Fill(ds, "customers")
Guna2DataGridView1.DataSource = ds
Guna2DataGridView1.DataMember = "customers"

If con.State = ConnectionState.Open Then

con.Close()
End If
con.Close()
Reset()
Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,

MessageBoxIcon.Error)
 End Try
///////////////////////////////////////////////////////
Delete

Sub DeleteRecord()
Try

Dim con As New SqlConnection("Data Source=DESKTOP-0I2CL64\

SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True")
con.Open()
Dim commmand As New SqlCommand
commmand.Connection = con
commmand.CommandType = CommandType.Text
commmand.CommandText = " delete from customers where id ='" &
txtid.Text & "'"
'Dim p1 As New SqlParameter("@id", txtsearch.Text)
'commmand.Parameters.Add(p1)
commmand.ExecuteNonQuery()

MessageBox.Show(" Deleted Succesfully ", " Deleted ",

MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim ConnectionString As String = "Data Source=DESKTOP-0I2CL64\
SQLEXPRESS;Initial Catalog=transportation_management_system;Integrated
Security=True"
Dim sql As String = "select * from customers"
Dim connection As New SqlConnection(ConnectionString)
Dim DataAdapter As New SqlDataAdapter(sql, connection)
Dim ds As New DataSet()
connection.Open()
DataAdapter.Fill(ds, "customers")
Guna2DataGridView1.DataSource = ds
Guna2DataGridView1.DataMember = "customers"
Catch ex As Exception
End Try
End Sub