обновления в коде любой помощи в этом

В моем запросе обновления я получаю сообщение об ошибке синтаксиса обновления в следующем коде ....обновления в коде любой помощи в этом

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 
    Dim strup As String 
    Try 
     strup = "update MCA set urno=" & CInt(txtUrn.Text) & ",sname='" & txtName.Text & "',fname='" & txtFname.Text & "',CAddress='" & txtCAdd.Text & "',PAddress='" & txtPAdd.Text & "',EmailID='" & txtEid.Text & "',cmbdate=" & CInt(cmbDate.Text) & ",cmbmonth='" & cmbMonth.Text & "',cmbyear=" & CInt(cmbYear.Text) & ",Gender='" & cmbGender.Text & "',Mobile" & CLng(txtMno.Text) & ",10PSSC=" & CInt(txt10Per.Text) & ",12PHSC=" & CInt(txt12Per.Text) & ",10YSSC='" & cmb10YofPass.Text & "',12YHSC='" & cmb12YofPass.Text & "',Course='" & cmbNameofGCourse.Text & "',gper=" & CInt(txtGPer.Text) & " WHERE urno =" & (txtUrn.Text) & ";" 
     Dim command As New OleDb.OleDbCommand(strup, con) 
     command.ExecuteNonQuery() 
     con.Open() 
     con.Close() 
     MsgBox("Record Updated") 

    Catch ex As Exception 
     MsgBox(ex.ToString()) 
    End Try 
End Sub

источник

2013-02-21 CrashOverride

Try:

strup = "update MCA set urno=" & CInt(txtUrn.Text) & ",sname='" & txtName.Text & "',fname='" & txtFname.Text & "',CAddress='" & txtCAdd.Text & "',PAddress='" & txtPAdd.Text & "',EmailID='" & txtEid.Text & "',cmbdate=" & CInt(cmbDate.Text) & ",cmbmonth='" & cmbMonth.Text & "',cmbyear=" & CInt(cmbYear.Text) & ",Gender='" & cmbGender.Text & "',Mobile=" & CLng(txtMno.Text) & ",10PSSC=" & CInt(txt10Per.Text) & ",12PHSC=" & CInt(txt12Per.Text) & ",10YSSC='" & cmb10YofPass.Text & "',12YHSC='" & cmb12YofPass.Text & "',Course='" & cmbNameofGCourse.Text & "',gper=" & CInt(txtGPer.Text) & " WHERE urno =" & (txtUrn.Text) & ";"

У вас есть "',Mobile" & CLng(txtMno.Text) вместо "',Mobile=" & CLng(txtMno.Text)

источник

2013-02-21 04:22:40

Большое спасибо, но теперь это вызывает исключение, что состояние соединения не было закрыто ...? – CrashOverride

@ user1897472 put 'con.Open()' перед выполнением запроса –

пытался, чтобы его все тот же ...? перед командой command.executenonquery – CrashOverride

То же, что и выше ответ и дополнительную, что последнее значение, что является
WHERE urno =" & (txtUrn.Text) & ";", что в Чис eric или Text.

Если числовая вы должны преобразовать его или это текст, то вы должны положить его в качестве
WHERE urno ='" & (txtUrn.Text) & "';"

Это как ваш запрос будет выглядеть следующим образом.

strup = "update MCA set urno=" & CInt(txtUrn.Text) & ",sname='" & txtName.Text & "',fname='" & txtFname.Text & "',CAddress='" & txtCAdd.Text & "',PAddress='" & txtPAdd.Text & "',EmailID='" & txtEid.Text & "',cmbdate=" & CInt(cmbDate.Text) & ",cmbmonth='" & cmbMonth.Text & "',cmbyear=" & CInt(cmbYear.Text) & ",Gender='" & cmbGender.Text & "',Mobile=" & CLng(txtMno.Text) & ",10PSSC=" & CInt(txt10Per.Text) & ",12PHSC=" & CInt(txt12Per.Text) & ",10YSSC='" & cmb10YofPass.Text & "',12YHSC='" & cmb12YofPass.Text & "',Course='" & cmbNameofGCourse.Text & "',gper=" & CInt(txtGPer.Text) & " WHERE urno ='" & (txtUrn.Text) & "';"

источник

2013-02-21 04:41:20

обновления в коде любой помощи в этом

ответ

Смежные вопросы