P.159
下から11行目以降
|
未定
|
| 誤 |
Protected Sub btnChenge_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles btnChenge.Click
Dim strSql As String = "UPDATE Syain SET " _
+ "Sya_Name = " + txtSyaName.Text _
+ ", Sya_Syozoku = " + txtSyaSyozoku.Text _
+ ", Sya_Mail = " + txtSyaMail.Text _
+ " WHERE Sya_ID = " + txtSyaID.Text
ExecNonQuery(strSql)
End Sub
|
| 正 |
Protected Sub btnChenge_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles btnChenge.Click
Dim strSql As String = "UPDATE Syain SET " _
+ "Sya_Name = " + "'" + txtSyaName.Text + "'" _
+ ", Sya_Syozoku = " + "'" + txtSyaSyozoku.Text + "'" _
+ ", Sya_Mail = " + "'" + txtSyaMail.Text + "'" _
+ " WHERE Sya_ID = " + txtSyaID.Text
ExecNonQuery(strSql)
End Sub
|
SQL内のテキストの部分に「'」(シングルクォーテーション)を加えます。
|
|
