Click here to Skip to main content
15,890,690 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
SQL
cmd.CommandText = " UPDATE Pension_Master( ppo_no, p_name,P_cat,wshd, address, dob, state_employ, depart, type_pen,   date_retire, date_commence, rate_pension,  place_payment, m_cer, l_cer, e_cer, validfrom, validto ) SET Values ('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox5.Text & "', '" & TextBox3.Text & "', '" & TextBox8.Text & "','" & ComboBox6.Text & "', '" & TextBox7.Text & "', '" & DateTimePicker5.Value & "','" & DateTimePicker6.Value & "','" & DateTimePicker2.Value & "', '" & DateTimePicker3.Value & "','" & TextBox6.Text & "','" & TextBox4.Text & "'  WHERE auto_genrate = '" & ComboBox1.Text & "'"



please help me
Posted

Your brackets aren't balanced. You open the ( after SET Values ( but never close it.
 
Share this answer
 
SQL
UPDATE EMPLOYEE
  SET (WORKDEPT, PHONENO, JOB)
      = ('D11', '7213', 'DESIGNER')
  WHERE EMPNO = '000270'



else

SQL
update MyEmployees set columnname1='value1',column2='Value2',column3='value3' where auto_genrate='Pension_Maste'
 
Share this answer
 
There are a few issues.
1. The language is not VB but SQL.
2. The syntax of an UPDATE statement differs from the syntax of an INSERT statement.
INSERT INTO MyTable (column names) VALUES (my values)
vs.
UPDATE Mytable SET column1=value1, column2=value2 WHERE IDColumn=idvalue
3. Do not create the query by string concatenation in your VB code, prefer parameterized queries. Parameterized queries help you circumvent the SQL Injection Attack issue, and - otherwise surely one of your questions soon to follow - issues with the DateTime type.
 
Share this answer
 
use following syntax
SQL
Update table1 
 set col2 = "xyz"
,col3 = "pqr"
WHERE col1 = "abc"
 
Share this answer
 
Comments
Member 13607118 16-Jan-18 6:10am    
incorrect syntax near 'abc', in vb.net

This is my full code to read the data from database

Imports System.Data.SqlClient
Public Class Form3

Dim con As New SqlConnection
Dim cmd As New SqlCommand

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "Data Source=(LocalDB)\v11.0;AttachDbFilename=F:\vikash\booking1\booking1\Database1.mdf;Integrated Security=True"
con.Open()
cmd.Connection = con
cmd.CommandText = "select id from details1"
Dim dr1 As SqlDataReader
dr1 = cmd.ExecuteReader
Do While dr1.Read
ComboBox1.Items.Add(dr1("id"))
Loop
dr1.Close()


End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim dr2 As SqlDataReader
Dim cmd2 As New SqlCommand
cmd2.Connection = con
cmd2.CommandText = "select Receivername,Receiveremail,Receivercity,Receiverpincode,Receivermobile,Sendername,Senderemail,Sendercity,Senderpincode,Sendermobile from details1 WHERE id=" & ComboBox1.Text & ""
Dim parameterstate As New SqlParameter("@id", SqlDbType.VarChar)
parameterstate.Direction = ParameterDirection.Input
parameterstate.Value = ComboBox1.SelectedIndex
cmd2.Parameters.Add(parameterstate)
dr2 = cmd2.ExecuteReader

Do While dr2.Read


TextBox1.Text = dr2("Receivername")
TextBox2.Text = dr2("Receiveremail")
TextBox3.Text = dr2("Receivercity")
TextBox4.Text = dr2("Receiverpincode")
TextBox5.Text = dr2("Receivermobile")
TextBox6.Text = dr2("Sendername")
TextBox7.Text = dr2("Senderemail")
TextBox8.Text = dr2("Sendercity")
TextBox9.Text = dr2("Senderpincode")
TextBox10.Text = dr2("Sendermobile")



Loop
dr2.Close()

End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form4.Show()

End Sub
End Class





Please help out quickly

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900