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

عملت قاعدة بيانات وكتبت اكواد لاضافة وحفظ وو

لااكن عند تشغيل البرنامج وتعبئة البيانات و اعمل لها حفظ ينفتح صفحة الاكواد ويجي خطا في السطر التالي > cmd.ExecuteNonQuery()

وهذه صوره مثال >
[ATTACH=CONFIG]2695[/ATTACH]

ارجو التوضيح سبب الخطأ .

شكرا
[/COLOR]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
الصورة غير واضحة!
الرد }}}}
تم الشكر بواسطة:
#3
[ATTACH=CONFIG]2696[/ATTACH]

هذه صورة اخرى ان شاء الله تكون واضحةة


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#4
حسناً, قم بتجربة الكود التالي:


PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
Try
Dim cmd As New OleDbCommand("insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1)
cmd.Parameters.AddWithValue("
@nameb1", TextBox1.Text)
cmd.Parameters.AddWithValue("
@mobileb1", TextBox2.Text)
cmd.Parameters.AddWithValue("
@emailb1", TextBox3.Text)
cmd.Parameters.AddWithValue("
@biographyb1", TextBox4.Text)
cn.Open()
cmd.ExecuteNonQuery()
cmd.Dispose()
MsgBox("
تم حفظ السجل بنجاح", 64, "Hreef Parmgh")
dextxt()
showdata()
Catch ex As Exception
      MsgBox("
Error in insertion" & vbCrLf & ex.Message)
End Try
End Sub 

و لكن عندي سؤال,
أين تعريف (cn.Open())؟
الرد }}}}
تم الشكر بواسطة:
#5
امم مافهمت معليش

في الرابط جميع الاكواد المستخدمة
الرد }}}}
تم الشكر بواسطة:
#6
حسناً, قم بوضع الكود التالي في مكان الكود الذي يظهر فيه الخطأ:

PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click 

Try 
        
Dim cmd As New OleDbCommand("insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1), cn

        cmd.Parameters.AddWithValue("
@nameb1", TextBox1.Text)
        cmd.Parameters.AddWithValue("
@mobileb1", TextBox2.Text)
        cmd.Parameters.AddWithValue("
@emailb1", TextBox3.Text)
        cmd.Parameters.AddWithValue("
@biographyb1", TextBox4.Text)

        cn.Open()
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Close()

        MsgBox("
تم حفظ السجل بنجاح64", "Hreef Parmgh")

        dextxt()
        showdata()
Catch ex As Exception 
      MsgBox("
Error in insertion" & vbCrLf & ex.Message) 
End Try 

End Sub 
الرد }}}}
تم الشكر بواسطة:
#7
اشكرك اخ [b]hoob computer[/b]


ولاكن الكود به اخطاء
Sad


[ATTACH=CONFIG]2697[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#8
ارجو المسااعدة من المبرمجين باقرب وقت


الرد }}}}
تم الشكر بواسطة:
#9
اسف يا أخي,
لكني نسيت وضع " و وضع ( في جملة الادخال.

شكلك جديد في البرمجة Smile

تفضل الكود الجديد:

PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click 

Try 
        
Dim cmd As New OleDbCommand("insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1)"cn)

        
cmd.Parameters.AddWithValue("@nameb1"TextBox1.Text)
        
cmd.Parameters.AddWithValue("@mobileb1"TextBox2.Text)
        
cmd.Parameters.AddWithValue("@emailb1"TextBox3.Text)
        
cmd.Parameters.AddWithValue("@biographyb1"TextBox4.Text)

        
cn.Open()
        
cmd.ExecuteNonQuery()
        
cmd.Dispose()
        
cn.Close()

        
MsgBox("تم حفظ السجل بنجاح, 64""Hreef Parmgh")

        
dextxt()
        
showdata()
Catch 
ex As Exception 
      MsgBox
("Error in insertion" vbCrLf ex.Message
End Try 

End Sub 
الرد }}}}
تم الشكر بواسطة:
#10
شككراً لك hoob computer

ربي يجزاك كل خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] تشغيل زر next - previous rows m.harb 0 248 17-09-15, 05:15 PM
آخر رد: m.harb
  [VB.NET] ربط البرنامج بعدة اجهزة abid 9 2,541 14-08-15, 02:24 AM
آخر رد: ابوثامر
  كود تشغيل استعلام من نوع تحديث aftfm 1 749 25-03-15, 06:47 AM
آخر رد: سعود
  ما مدى تأثير هذا على سرعة البرنامج الجندى 8 1,160 22-02-15, 01:34 AM
آخر رد: الجندى
  [سؤال] طريقة صنع قاعدة بيانات وربطه في البرنامج hassan 6 1,238 06-02-15, 11:31 PM
آخر رد: ahmed saba
  [سؤال] ظهور هذه رسالة عند تشغيل البرنامج علي win7 abdo_awad 6 1,099 09-12-14, 04:13 PM
آخر رد: abototta
  كود تشغيل استعلام تحديث بقاعدة بيانات اكسس aftfm 0 1,009 12-10-14, 05:35 PM
آخر رد: aftfm
  [سؤال] ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج Ameer syria 11 3,712 29-11-13, 04:37 AM
آخر رد: Ameer syria
  [سؤال] ايهما اسرع الكود ام البرنامج ؟ Mido9 5 1,674 19-10-13, 10:42 PM
آخر رد: sherif khalid
  [نقاش] تشغيل البرنامج على جهازين ؟ Mido9 5 3,487 26-09-13, 07:54 PM
آخر رد: Mido9

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


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