البرنامج يعطي خطأ في جملى insret into
المرجو المساعدة فقد اعياني الكود منذ الصباح
كود زر الحفظ هو
Try
Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/Eau.accdb")
Dim cmd As New OleDbCommand("insert into Consomation(Num_Facture,Num_Contrat,Annee,Mois,Index,Type_Releve ) values (?,?,?,?,?,?)", con)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@Num_Facture", Trim(TNum_Facture.Text))
cmd.Parameters.AddWithValue("@Num_Contrat", Trim(TxtNumContrat.Text))
cmd.Parameters.AddWithValue("@Annee", Trim(TxtAnnee.Text))
cmd.Parameters.AddWithValue("@Mois", Trim(ComboMois.Text))
cmd.Parameters.AddWithValue("@Index", Trim(TxtIndex.Text))
cmd.Parameters.AddWithValue("@Type_Releve", Trim(ComboReleve.Text))
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("تم الحفظ بنجاح تام", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading, "تعبئة المذكرة اليومية")
Catch ex As Exception
MsgBox(ex.Message)
Return
End Tryفكرة المشروع
البرنامج يقوم بتخزين بيانات استهلاك الماء
الخانة الاولى التي هي رقم العقدة, فيها خاصية الاكمال التلقائي , و له علاقة بقاعدة البيانات التي اضفتها الى البرنامج عن طريق الويزرت, لكن لم اقم بتحويلها الى المكان الذي يطلبه الويزرت و تركتها في مسار البرنامج
و بقية الخانات عادية
المشروع في المرفقات
جزاكم الله خيرا
