[عبـدالله]

الخطأ الأول في كلمة value والصحيح VALUES (كان ينقصها حرف s)
الخطأ الثاني وجود فاصلة عند نهاية قوس أسماء الأعمدة.
الخطأ الثالث وجود مسافات في اسماء البارامترات والصحيح تستبدلها بالشرطة السفلية ( _ )
وهناك رمز (�) في الاسم (N�fact) لا أدري هل سيؤثر أم لا.
تفضل التعديل

PHP كود :

Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
    If conn.State = ConnectionState.Open Then
        conn.Close()
    End If
    Try
        Dim sql_As As String =
            "INSERT INTO [ayant droit] ([nss], [benif], [nom benif], [prenom benif], [date nais benif], [date de soin], [montant], [cabinet medic], [N�fact}, [mois], [Code pharm] ) " & _
            "VALIES                    (@nss,  @benif,  @nom_benif,  @prenom_benif,  @date_nais_benif,  @date_de_soin,  @montant,  @cabinet_medic,  @N�fact,  @mois,  @Code_pharm  ) "


        Dim save_AYD As New OleDb.OleDbCommand(sql_As, conn)

        save_AYD.Parameters.AddWithValue("@nss", Me.txt_Nass.Text)
        save_AYD.Parameters.AddWithValue("@benif", Me.Cbo_Type.Text)
        save_AYD.Parameters.AddWithValue("@nom_benif", Me.txt_Nom_Benif.Text)
        save_AYD.Parameters.AddWithValue("@prenom_benif", Me.CBo_Prenom.Text)
        save_AYD.Parameters.AddWithValue("@date_nais_benif", CDate(Me.txt_DN_Benif.Text))
        save_AYD.Parameters.AddWithValue("@date_de_soin", CDate(Me.txt_Date_Soin.Text))
        save_AYD.Parameters.AddWithValue("@montant", CInt(Lab_Pay.Text))
        save_AYD.Parameters.AddWithValue("@cabinet_medic", Me.txt_Cabinet.Text)
        save_AYD.Parameters.AddWithValue("@N�fact", Me.txt_NFact_Mil.Text)
        save_AYD.Parameters.AddWithValue("@mois", Me.txt_Mois.Text)
        save_AYD.Parameters.AddWithValue("@Code_pharm", Me.txt_Code_Pharm.Text)
        'save_AYD.Parameters.AddWithValue("@date_sys", Date.Now)
        conn.Open()
        save_AYD.ExecuteNonQuery()
        MsgBox("Enregistrement fait avec Succ�e", vbMsgBoxRight, "Confirmation")
        conn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub