الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه hob_000 في 25 يوليو 2009 · 11 رد · 901 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

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

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

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

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

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

 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 في 25 يوليو 2009 في 22:46

#2

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

#3

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

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

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

هذي الفكره

#4

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

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

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

 

Imports [color= #990000;]System[color= #339933;].Data

Imports [color= #990000;]system[color= #339933;].Data[color= #339933;].OleDb

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

    Protected Con [color= #b1b100;]As OleDbConnection

 

    [color= #000000; font-weight: bold;]Private Sub Button2_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handl
es Button2[color= #339933;].Click

        [color= #b1b100;]If TextBox1[color= #339933;].Text [color= #339933;]= [color= #0000ff;]"" Then

            MsgBox[color= #009900;]([color= #0000ff;]"الرجاء ادخال البيانات بالشكل الصحيح"[color= #009900;])

            TextBox1[color= #339933;].Focus[color= #009900;]([color= #009900;])

            [color= #b1b100;]Return

        [color= #990000;]End [color= #b1b100;]If

        Dim str1 [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"select [no11] from mtdrb where [no11] =" [color= #339933;]& TextBox1[color= #339933;].Text [color= #339933;]& [color= #0000ff;]""

        Dim com [color= #b1b100;]As [color= #000000; font-weight: bold;]New OleDbCommand[color= #009900;](str1[color= #339933;], Con[color= #009900;])

        Dim dataReader [color= #b1b100;]As OleDb[color= #339933;].OleDbDataReader

        dataReader [color= #339933;]= com[color= #339933;].ExecuteReader[color= #009900;]([color= #009900;])

        dataReader[color= #339933;].Read[color= #009900;]([color= #009900;])

        [color= #b1b100;]If Not dataReader[color= #339933;].HasRows Then

            Dim res [color= #339933;]= MsgBox[color= #009900;]([color= #0000ff;]"هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد"[color= #339933;], MsgBoxStyle[color= #339933;].YesN
o[color= #009900;])

            [color= #b1b100;]If res [color= #339933;]= [color= #cc66cc;]6 Then

                str1 [color= #339933;]= [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= #339933;]& [color= #990000;]_

                [color= #0000ff;]"Values (@no11, @name11, @no-id, @date-c, @source11, @date-birth1, @birth-lo, @
halh, @mm11, @tt11, @level11m, @halh-mtdrb, @address11, @phone11, @ph-other11)"

                Dim com1 [color= #b1b100;]As [color= #000000; font-weight: bold;]New OleDb[color= #339933;].OleDbCommand[color= #009900;](str1[color= #339933;], Con[color= #009900;])

                With com1[color= #339933;].Parameters

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@no11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox1[color= #339933;].Text

                    [color= #0000ff;]' You can also add a new parameter without setting its SizeOfType like :

[color= #0000ff;]                    ' [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@no11"[color= #339933;], SomeDbType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox1[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@name11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox2[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@no-id"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox3[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@date-c"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox4[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@source11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox5[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@date-birth1"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox6[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@birth-lo"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox7[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@halh"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox8[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@mm11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox9[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@tt11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox10[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@level11m"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox11[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@halh-mtdrb"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox12[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@address11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox13[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@phone11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox14[color= #339933;].Text

                    [color= #339933;].Add[color= #009900;]([color= #0000ff;]"@ph-other11"[color= #339933;], SomeDbType[color= #339933;], SizeOfSelectedType[color= #009900;])[color= #339933;].Value [color= #339933;]= TextBox15[color= #339933;].Text

                [color= #990000;]End With

                com1[color= #339933;].ExecuteNonQuery[color= #009900;]([color= #009900;])

            [color= #990000;]End [color= #b1b100;]If

        [color= #b1b100;]Else

            MsgBox[color= #009900;]([color= #0000ff;]"هذا المستخدم موجود سابقاْ"[color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#5

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

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

وشكرا

#6

up up up

#7

up up up

#8

أخي الكريم,

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

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

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#9

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

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

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] جرب كده ممكن تكون دى الشملة والله اعلى واعلم

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

Prince of egypt Home page
#10

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

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

<EMBED src=http://www.abdelghafar.com/images/banners/bm2.swf width=486 height=60 type=application/x-shockwave-flash EMBED < menu="false" loop="true" quality="high">

#11

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

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

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

#12

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

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

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

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

مواضيع مشابهة