Imports System.Data
Imports System.Data.OleDb
Public Class daleel
Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
dataconnection()
Dim cmd As New OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "INSERT INTO [daleel] (id,kism,raesy,hesab) VALUES('" & T1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "')"
cmd.ExecuteNonQuery()
MsgBox("تمت عملية حفظ البيانات بنجاح")
cnn.Close()
End Sub
End Class
حتى مع تغيير الفورم وعدم اسناد الاتصال للموديل تظهر رسالة الخطأ أدناه ماهو السر بذلك علما القاعدة موجودة في ملف bin واسماء الأعمدة صحيحة ماهو الخطأ ياترى ؟؟؟
28-01-19, 05:49 AM (آخر تعديل لهذه المشاركة : 28-01-19, 05:50 AM {2} بواسطة سعود.)
لو افهم المطلوب من الفورم الخاص بالاضافة قد اعدل عليه بشكل جيد.
لكن تقبل التعديل التالي.
PHP كود :
Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click dataconnection() cmd.Connection = cnn cmd.CommandText = "INSERT INTO [daleel] " & "([id],[kism],[raesy],[hesab]) VALUES" & "(" & Val(T1.Text) & "," & Val(t2.Text) & "," & Val(t3.Text) & ",'" & t4.Text & "')" cmd.ExecuteNonQuery() cnn.Close() End Sub
لو كان الحقل رقمي تحذف علامات التنصيص المفردة ' وتجعل مربع النص محفوف بعلامتي اقواس قبلها كلمة Val
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
28-01-19, 10:51 AM (آخر تعديل لهذه المشاركة : 28-01-19, 11:11 AM {2} بواسطة raaddawood.)
بسم الله الرحمن الرحيم
اشكر الأخوين العزيزين الاخ عبد العزيز والأخ سعود على تفاعلهما
لاأعرف سبب الخطأ الذي يحصل عندي
الان حذفت الموديل وكل ماأريده من فورم daieel هو الحفظ في جدول daleel في قاعدة البيانات 2019
علما" حقول id_kism_rasey_ حقول رقمية فقط حقل hesab هو نصي
الغرض من هذا الفورم هو تعريف شجرة حسابات او دليل حسابي مبسط بحيث يعطي حقل id
الترقيم التلقائي ولايسمح بتكرار الرقم وإن كان الحساب موجود يعطي تنبيه بذلك
هذه المرحلة الاولى من البرنامج .... اليكم ماقمت به من التعديل
اعتذر على كثرة التصحيحات
لكن وضعت كو الاستاذ مسعود وبالمرفق النهائي ولكن ايضا هناك خطأ