منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

    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

مع العلم ان ؤسالة الخطأ هي كالتالي
no value given for one or more required parameters