22-01-17, 02:27 PM
Public Sub upsanfi(cod As String, cod_fat As String, weh As String, ser As Double, many As Double, tot_q As Double, kasm As Double, tot_b As Double, mol As String)
Try
Dim cms As New OleDb.OleDbCommand
cms.Connection = Class1.cn
cms.CommandType = CommandType.Text
cms.CommandText = "Update fat_be set many=" & many & ",tot_q=" & tot_q & ", ksm=" & kasm & ",tot_b=" & tot_b & " where (cod='" + cod + "' and cod_fat='" + cod_fat + "' and weh='" + weh + "'); "
cms.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Try
Dim cms As New OleDb.OleDbCommand
cms.Connection = Class1.cn
cms.CommandType = CommandType.Text
cms.CommandText = "Update fat_be set many=" & many & ",tot_q=" & tot_q & ", ksm=" & kasm & ",tot_b=" & tot_b & " where (cod='" + cod + "' and cod_fat='" + cod_fat + "' and weh='" + weh + "'); "
cms.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
مع العلم ان ؤسالة الخطأ هي كالتالي
no value given for one or more required parameters
no value given for one or more required parameters