• 0
hob_000

مشكله ما اعرف وينها

سؤال

السلام عليكــم ورحمـة الله وبركاتــه ،،

اسعد الله اوقاتكم بكل خيــــــر

انا عندي مشروع بديت فيه

المهم ما اطول عليكم

لما ادخل بيانات واسوي حفظ يطلع لي خطاء ما اعرف وين مكانه يا ليت تشوفونه

ولكم مني جزيل الشـــــكر

اخوكم ايمــــن

هذا هو الكود المستخدم

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = "" Then

MsgBox("الرجاء ادخال البيانات بالشكل الصحيح")

TextBox1.Focus()

Return

End If







Dim str1 As String

str1 = "select * from mtdrb where [no11] =" & TextBox1.Text & ""

Dim com As New OleDbCommand(str1, con)

Dim dataReader As OleDb.OleDbDataReader

dataReader = com.ExecuteReader()

dataReader.Read()

If dataReader.HasRows = False Then

Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)

If res = 6 Then

str1 = "INSERT INTO mtdrb (no11,name11,no-id,date-c,source11,date-birth1,birth-lo,halh,mm11,tt11,level11,halh-mtdrb,address11,phone11,ph-other11)" & _

"values (" & TextBox1.Text & ",'" & TextBox2.Text & "'," & TextBox3.Text & "," & TextBox4.Text & ",'" & TextBox5.Text & "'," & TextBox6.Text & ",'" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "'," & TextBox14.Text & "," & TextBox15.Text & ")"

Dim com1 As New OleDb.OleDbCommand(str1, con)

com1.ExecuteNonQuery()

End If

Else

MsgBox("هذا المستخدم موجود سابقاْ")

End If



End Sub

End Class

????????????

الارقام في

TextBox1

TextBox3

TextBox4

TextBox6

TextBox14

TextBox15

post-174241-1248550920_thumb.jpg

تم تعديل بواسطه hob_000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

11 إجابة على هذا السؤال .

  • 0

ما عليش انا ودي افهم وشلون تقرأ بيانات ثم تحفظها عادة الحفظ يكون بيانات جديدة NEW ROW صف جديد وإذا كان كذلك المفروض تسوي جملة الريدر مستقلة تماماً عن جملة الحفظ بمعنى لو نفترض ان عندك كذا جدول ومساوي علاقها بينها مثلاً ID فيه معلومات ثابته وفيه معلومات تتغير في جدول الحركة والنقل فاتعمل استعلام مستقل ثم تضع البيانات وتسوي حفظ المشكلة عندك انك وضعت اكثر من جملة استعلام واضافة في وقت واحد ولا داعي لجملة IF الاخيرة والله اعلم وتقبل افكاري وممكن فيه طريقة احسن

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الكود اول شئ يستعلم هل الرقم موجود او لا

اذا موجود طلع رساله يقول البيانات موجوده سابقا

واذا لا يدخل البيانات

هذي الفكره

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرحباً أخي الكريم,

المشكلة تكمن في أمر الإضافة, حاول إستخدام المؤشرات عوضاً عن تقسم نص الأمر وإستخدام رموز الإضافة .

جرب الـ( Code ) التالي بعد إستبدال الجملة ( SomeDbType ) بنوع كل من الحقول وأيضا قم بإستبدال الـ( SizeOfSelectedType ) بالحجم المعد أو الأعظمي لذلك النوع, إذا لم يعمل, تأكد من أسماء الحقول المدرجة ضمن نص أمر الإضافة الوارد .

انسخ الكود
  1.  
  2. Imports [color= #990000;]System[/color][color= #339933;].[/color]Data
  3. Imports [color= #990000;]system[/color][color= #339933;].[/color]Data[color= #339933;].[/color]OleDb
  4. [color= #000000; font-weight: bold;]Public[/color] [color= #000000; font-weight: bold;]Class[/color] Form1
  5.  
  6. Protected Con [color= #b1b100;]As[/color] OleDbConnection
  7.  
  8. [color= #000000; font-weight: bold;]Private[/color] Sub Button2_Click[color= #009900;]([/color]ByVal sender [color= #b1b100;]As[/color] [color= #990000;]System[/color][color= #339933;].[/color]Object[color= #339933;],[/color] ByVal e [color= #b1b100;]As[/color] [color= #990000;]System[/color][color= #339933;].[/color]EventArgs[color= #009900;])[/color] Handl
    es Button2[color= #339933;].[/color]Click
  9. [color= #b1b100;]If[/color] TextBox1[color= #339933;].[/color]Text [color= #339933;]=[/color] [color= #0000ff;]""[/color] Then
  10. MsgBox[color= #009900;]([/color][color= #0000ff;]"الرجاء ادخال البيانات بالشكل الصحيح"[/color][color= #009900;])[/color]
  11. TextBox1[color= #339933;].[/color]Focus[color= #009900;]([/color][color= #009900;])[/color]
  12. [color= #b1b100;]Return[/color]
  13. [color= #990000;]End[/color] [color= #b1b100;]If[/color]
  14. Dim str1 [color= #b1b100;]As[/color] String [color= #339933;]=[/color] [color= #0000ff;]"select [no11] from mtdrb where [no11] ="[/color] [color= #339933;]&[/color] TextBox1[color= #339933;].[/color]Text [color= #339933;]&[/color] [color= #0000ff;]""[/color]
  15. Dim com [color= #b1b100;]As[/color] [color= #000000; font-weight: bold;]New[/color] OleDbCommand[color= #009900;]([/color]str1[color= #339933;],[/color] Con[color= #009900;])[/color]
  16. Dim dataReader [color= #b1b100;]As[/color] OleDb[color= #339933;].[/color]OleDbDataReader
  17. dataReader [color= #339933;]=[/color] com[color= #339933;].[/color]ExecuteReader[color= #009900;]([/color][color= #009900;])[/color]
  18. dataReader[color= #339933;].[/color]Read[color= #009900;]([/color][color= #009900;])[/color]
  19. [color= #b1b100;]If[/color] Not dataReader[color= #339933;].[/color]HasRows Then
  20. Dim res [color= #339933;]=[/color] MsgBox[color= #009900;]([/color][color= #0000ff;]"هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد"[/color][color= #339933;],[/color] MsgBoxStyle[color= #339933;].[/color]YesN
    o[color= #009900;])[/color]
  21. [color= #b1b100;]If[/color] res [color= #339933;]=[/color] [color= #cc66cc;]6[/color] Then
  22. str1 [color= #339933;]=[/color] [color= #0000ff;]"INSERT INTO mtdrb (no11,name11,no-id,date-c,source11,date-birth1,birth-
    lo,halh,mm11,tt11,level11,halh-mtdrb,address11,phone11,ph-other11)"[/color] [color= #339933;]&[/color] [color= #990000;]_[/color]
  23. [color= #0000ff;]"Values (@no11, @name11, @no-id, @date-c, @source11, @date-birth1, @birth-lo, @
    halh, @mm11, @tt11, @level11m, @halh-mtdrb, @address11, @phone11, @ph-other11)"[/color]
  24. Dim com1 [color= #b1b100;]As[/color] [color= #000000; font-weight: bold;]New[/color] OleDb[color= #339933;].[/color]OleDbCommand[color= #009900;]([/color]str1[color= #339933;],[/color] Con[color= #009900;])[/color]
  25. With com1[color= #339933;].[/color]Parameters
  26. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@no11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox1[color= #339933;].[/color]Text
  27. [color= #0000ff;]' You can also add a new parameter without setting its SizeOfType like :[/color]
  28. [color= #0000ff;] '[/color] [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@no11"[/color][color= #339933;],[/color] SomeDbType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox1[color= #339933;].[/color]Text
  29. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@name11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox2[color= #339933;].[/color]Text
  30. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@no-id"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox3[color= #339933;].[/color]Text
  31. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@date-c"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox4[color= #339933;].[/color]Text
  32. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@source11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox5[color= #339933;].[/color]Text
  33. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@date-birth1"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox6[color= #339933;].[/color]Text
  34. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@birth-lo"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox7[color= #339933;].[/color]Text
  35. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@halh"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox8[color= #339933;].[/color]Text
  36. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@mm11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox9[color= #339933;].[/color]Text
  37. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@tt11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox10[color= #339933;].[/color]Text
  38. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@level11m"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox11[color= #339933;].[/color]Text
  39. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@halh-mtdrb"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox12[color= #339933;].[/color]Text
  40. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@address11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox13[color= #339933;].[/color]Text
  41. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@phone11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox14[color= #339933;].[/color]Text
  42. [color= #339933;].[/color]Add[color= #009900;]([/color][color= #0000ff;]"@ph-other11"[/color][color= #339933;],[/color] SomeDbType[color= #339933;],[/color] SizeOfSelectedType[color= #009900;])[/color][color= #339933;].[/color]Value [color= #339933;]=[/color] TextBox15[color= #339933;].[/color]Text
  43. com1[color= #339933;].[/color]ExecuteNonQuery[color= #009900;]([/color][color= #009900;])[/color]
  44. [color= #990000;]End[/color] [color= #b1b100;]If[/color]
  45. [color= #b1b100;]Else[/color]
  46. MsgBox[color= #009900;]([/color][color= #0000ff;]"هذا المستخدم موجود سابقاْ"[/color][color= #009900;])[/color]
  47. [color= #990000;]End[/color] [color= #b1b100;]If[/color]
  48.  
  49. [color= #990000;]End[/color] [color= #000000; font-weight: bold;]Class[/color]
  50.  

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك اخوي جزيل الشرك لكن جربت ولا نفع

ارجو الافاده اخواني والله عندي مشروع لازم اسلمه وتوني في بدايته

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم,

أعلم أنك لاتدرك ماسبب حدوث هذا الخطأ, لكن كما هو موضح بالصورة أن الخطأ في جملة الإضافة, عليك التأكد من الأسماء الموجودة في تلك الجملة, وإذا كنت تستخدم عبارتك نصية لإضافة سجل جديد, فأكد أيضاً على مكان تواجد إشارات الحصر أي ( ' ' ),

يمكنك أيضا إعلامي بنوع محرك قواعد البيانات الذي تستخدمه, واسم الجدول وأسماء حقوله لأقوم بعمل مشروع بسيط يساعدك على فهم ماتحاول عمله .

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخى الكريم ربما يكون الخطا فى طريقة كتابة اسم الحقل فى جملة الاضافة

str1 = "INSERT INTO mtdrb (no11,name11,no-id,date-c,source11,date-birth1,birth-
lo,halh,mm11,tt11,level11,halh-mtdrb,address11,phone11,ph-other11)

افتكر ان اسماء الحفول طالما فيها علامة الداش(-) لازم توضع بين اقواس [ ] مثل [date-c] جرب كده ممكن تكون دى الشملة والله اعلى واعلم

بس تاكد من اسماء الحقول وبالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي ممكن تكون المشكلة في حجم السترنج في الاتا بيس لا يتناسب مع حجمها المبوث للتخزين

افضل شيئ مشان اتاكدلك ابعث لي قاعدة البانات , ليس كلها فقط ارسل لي جدول واحد الذي تريد التخزين فيه

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكــم ورحمـة الله وبركاتــه ،،

الرسالة تقول هناك خطأ إملائي في جملة Insert .......

جرب '" + Textbox2.Text + "' بدلا" من '" & Textbox2.Text & "'

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يجزاكم الجنه

انحلت المشكله

طلع المشكله من الداش لازم احطها بين [ ] على كلام اخوي امير مصر

جزاكم الله كل خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .