รบกวนอีกทีนะคะ เวลาบันทึกข้อมูลมันขึ้น ExecuteNonQuery incorrect syntax near 1 อ่ะค่ะ
Code (VB.NET)
Private Sub TSSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSSave.Click
If TxtCusId.Text.Trim() = "" Then
MessageBox.Show("กรุณาป้อนรหัสลูกค้า", "การบันทึก")
TxtCusId.Focus()
Exit Sub
End If
If MessageBox.Show("ต้องการบันทึกข้อมูลใช่หรือไม่ ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
Exit Sub
End If
With cnn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
tr = cnn.BeginTransaction()
' Try
Dim sqlsave As String = ""
Select Case FlagAction
Case "Add"
sqlsave = ("Insert Into TBCustomer(CusId,CusName,Address,Telephone)")
sqlsave &= ("Values (@cid,@CusName,@Add,@Tel)")
Case "Edit"
sqlsave = ("UPDATE TBCustomer ")
sqlsave &= (" SET CusName = @cusName")
sqlsave &= (",Address = @Add")
sqlsave &= (",Telephone = @tel")
sqlsave &= (" WHERE (CusID = @cusid)")
End Select
With cmm
.CommandText = CommandType.Text
.Connection = cnn
.Transaction = tr
.Parameters.Clear()
.Parameters.Add("@cusid", SqlDbType.NVarChar).Value = TxtCusId.Text.Trim()
.Parameters.Add("@CusName", SqlDbType.NVarChar).Value = TxtCusName.Text.Trim()
.Parameters.Add("@Add", SqlDbType.NVarChar).Value = TxtAddress.Text.Trim()
.Parameters.Add("@tel", SqlDbType.NVarChar).Value = Masktxtphone.Text.Trim()
.ExecuteNonQuery()
End With
tr.Commit()
MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้วค่ะ")
' ShowDataCus()
' Catch ex As Exception
' tr.Rollback()
' MessageBox.Show("ไม่สามารถบันทึกข้อมูลได้ เนื่องจาก" & ex.Message, "ข้อผิดพลาด")
' End Try
End Sub