This is my program please help me to resolve this
Imports System.Data.SqlClient
Public Class Form1
Dim con As SqlConnection
Dim com As SqlCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SoldierDataSet3.Details' table. You can move, or remove it, as needed.
Me.DetailsTableAdapter.Fill(Me.SoldierDataSet3.Details)
'TODO: This line of code loads data into the 'SoldierDataSet2.Specialization' table. You can move, or remove it, as needed.
Me.SpecializationTableAdapter.Fill(Me.SoldierDataSet2.Specialization)
'TODO: This line of code loads data into the 'SoldierDataSet1.Rank' table. You can move, or remove it, as needed.
Me.RankTableAdapter.Fill(Me.SoldierDataSet1.Rank)
'TODO: This line of code loads data into the 'SoldierDataSet.BloodGroup' table. You can move, or remove it, as needed.
Me.BloodGroupTableAdapter.Fill(Me.SoldierDataSet.BloodGroup)
con = New SqlConnection
com = New SqlCommand
con.ConnectionString = "Data Source=\soldier.sdf;Persist Security Info=False;"
con.Open()
com.Connection = con
Label1.Visible = False
Label10.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = True
Button1.Visible = False
Button2.Visible = False
DataGridView1.Visible = False
RadioButton1.Visible = True
RadioButton2.Visible = True
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then
MsgBox("Fill all the Details")
End If
com.CommandText = "insert into Details values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.SelectedValue & "','" & ComboBox2.SelectedValue & "','" & TextBox4.Text & "','" & ComboBox3.SelectedValue & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
com.ExecuteNonQuery()
MsgBox("The Data has been successfully inserted!!!!!")
RadioButton2.Visible = True
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
DataGridView1.Refresh()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RadioButton2.Visible = True
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
ComboBox1.ResetText()
ComboBox2.ResetText()
ComboBox3.ResetText()
DataGridView1.Update()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label10.Visible = True
Button1.Visible = True
Button2.Visible = True
RadioButton2.Visible = True
DataGridView1.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
ComboBox1.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = True
Label10.Visible = False
Button1.Visible = False
Button2.Visible = False
DataGridView1.Visible = True
RadioButton1.Visible = True
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
End Sub
End Class