تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب تعديل على كود الحفظ في حالة وجود شرط ... خطأ عند عملية الحفظ
#1
Question 
السلام عليكم

لا أعرف هل يمكن تنفيذ هذه الفكرة أم لا ،،،
وضعت صورة مرفقة للموضوع لتوضيح أكثر

في حدث CheckBox1 وضعت الكود التالي
PHP كود :
If CheckBox1.Checked True Then
            ComboBox2
.Visible True
            ComboBox3
.Visible False
        ElseIf CheckBox1
.Checked False Then
            ComboBox2
.Visible False
            ComboBox3
.Visible True
        End 
If 

وفي زر الحفظ وضعت الكود التالي
PHP كود :
Try
 
           Dim Savecommand As New OleDb.OleDbCommand
            Dim connectionstring 
As String "Provider=Microsoft.ACE.OLEDB.12.0;" "Data Source =" Application.StartupPath "\db8.accdb;user id=admin;jet oledb:database password=momiana"

 
           Dim newconnection As New OleDbConnection(connectionstring)
 
           Savecommand.Connection newconnection
            Savecommand
.CommandType CommandType.Text

            If CheckBox1
.Checked True Then

                Savecommand
.CommandText "insert into mate ([ID],[PID],[po2],[it2],[qu2],[un2],[pr2],[mda2],[note2]) values ('" _
                TextBox2
.Text "','" TextBox4.Text _
                
"','" CheckBox1.Checked "','" ComboBox2.Text "','" _
                TextBox1
.Text "','" ComboBox1.Text "','" _
                TextBox3
.Text "','" DateTimePicker1.Value "','" TextBox5.Text "')"

 
           ElseIf CheckBox1.Checked False Then
                Savecommand
.CommandText "insert into mate ([ID],[PID],[po2],[it2],[qu2],[un2],[pr2],[mda2],[note2]) values ('" _
                TextBox2
.Text "','" TextBox4.Text _
                
"','" CheckBox1.Checked "','" ComboBox3.Text "','" _
                TextBox1
.Text "','" ComboBox1.Text "','" _
                TextBox3
.Text "','" DateTimePicker1.Value "','" TextBox5.Text "')"

 
           End If

 
           newconnection.Open()
 
           Savecommand.ExecuteNonQuery()
 
           newconnection.Close()

 
           MsgBox("تمت عملية الإضافة والحفظ في قاعدة البيانات بنجاح"64"حفظ الإضافة")


 
       Catch ex As Exception

            MsgBox
(ex.Message16"خطأ")


 
       End Try 

الإختلاف بين الشرط الأول والثاني فقط في بيانات ComboBox2 وبيانات ComboBox3
عند تنفيذ البرنامج تظهر رسالة خطأ " Data type mismatch in criteria expression "
وعند تتبع تنفيذ البرنامج F11 وجدت أنه لما يصل إلى
PHP كود :
Savecommand.ExecuteNonQuery() 
ينتقل بعدها مباشرة إلى
PHP كود :
Catch ex As Exception

            MsgBox
(ex.Message16"خطأ"


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
(26-12-14, 08:51 PM)momiana1 كتب : يستحسن استعمال البارامترات في جملة insert
ارفع المشروع نعدل عليه
الرد }}}}
تم الشكر بواسطة:
#3
أخي hminfo
أشكرك على المساعدة ، بالفعل لقد قمت بإستعمال البارامترات وتمت العملية بنجاح
وأشكر أيضًا أخي الوليد الذي نصحنى وأرشدني على كيفية إستعمالها

وهذا الكود الإضافة بعد إستعمال البارامترات
PHP كود :
Try
            
Dim Savecommand As New OleDb.OleDbCommand
            Dim connectionstring 
As String "Provider=Microsoft.ACE.OLEDB.12.0;" "Data Source =" Application.StartupPath "\db8.accdb;user id=admin;jet oledb:database password=momiana"

            
Using newconnection As New OleDbConnection(connectionstring)

                
Dim sql As String _
                    
" INSERT INTO [mate] " _
                    
" (  ID,  PID,  po2,  it2,  qu2, un2, pr2, mda2, note2 ) " _
                    
" VALUES " _
                    
" (  ID,  PID,  po2,  it2,  qu2, un2, pr2, mda2, note2 ) "

                
Using cmd As New OleDb.OleDbCommand(sqlnewconnection)

                    
cmd.Parameters.AddWithValue("@ID"TextBox2.Text)
                    
cmd.Parameters.AddWithValue("@PID"TextBox4.Text)
                    
cmd.Parameters.AddWithValue("@po2"CheckBox1.Checked)

                    If 
CheckBox1.Checked True Then
                        cmd
.Parameters.AddWithValue("@it2"ComboBox2.Text)
                    ElseIf 
CheckBox1.Checked False Then
                        cmd
.Parameters.AddWithValue("@it2"ComboBox3.Text)
                    
End If

                    
cmd.Parameters.AddWithValue("@qu2"TextBox1.Text)
                    
cmd.Parameters.AddWithValue("@un2"ComboBox1.Text)
                    
cmd.Parameters.AddWithValue("@pr2"TextBox3.Text)
                    
cmd.Parameters.AddWithValue("@mda2"DateTimePicker1.Value.Date)
                    
cmd.Parameters.AddWithValue("@note2"TextBox5.Text)

                    
newconnection.Open()
                    
Dim result As Integer cmd.ExecuteNonQuery()
                    
newconnection.Close()

                    If 
result 0 Then
                        MessageBox
.Show("تمت عملية الإضافة والحفظ في قاعدة البيانات بنجاح""حفظ الإضافة"MessageBoxButtons.OKMessageBoxIcon.Information)
                    Else
                        
MessageBox.Show("لم تتم عملية الإضافة، تأكد من المدخلات""حفظ الإضافة"MessageBoxButtons.OKMessageBoxIcon.Warning)
                    
End If

                
End Using
            End Using

        
Catch ex As Exception
            MsgBox
(ex.Message16"خطأ")
        
End Try 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 179 29-11-16, 07:26 AM
آخر رد: amgad525
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر العواد الصغير 6 130 30-10-16, 08:07 PM
آخر رد: العواد الصغير
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 137 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 73 25-10-16, 07:11 PM
آخر رد: 0theghost0
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 97 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [سؤال] مشكلة في الحفظ داخل قاعدة البيانات عن طريق Dataadaptor alrawi84 1 85 16-10-16, 11:02 PM
آخر رد: alrawi84
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 109 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 149 25-09-16, 02:14 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم