مشكلة في برمجة زر الحفظ - نسخة قابلة للطباعة

مشكلة في برمجة زر الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في برمجة زر الحفظ (/showthread.php?tid=1784)

الصفحات: 1 2

RE: مشكلة في برمجة زر الحفظ - mona707 - 02-02-14

كود :

Private Sub Buttsave_Click(sender As Object, e As EventArgs) Handles Buttsave.Click

        Dim cmdinsert As New OleDbCommand

        cmdinsert.Connection = con

        cmdinsert.CommandText = "insert into [report] values ([الرقم_الوظيفي],[إسم_الموظف],[التاريخ],[إسم_المنطقة],[الشارع],[رقم_الرخصة],[الإسم_التجاري],[نوع_الإجراء],[رقم_الإجراء],[نوع المخالفة_أو_الإنذار],[حالة_المنشأة],[نوع_الرخصة],[نوع_المهمة],[الملاحظات]) ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & DateTimePicker1.Value & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "');"

        cmdinsert.ExecuteNonQuery()

        MsgBox("تـم الحـفـظ بـنـجـاح")

        con.Close()

End Sub

المشكلة انحلت بس ظهرت مشكلة اخرى وهي

Missing semicolon ( Wink

at end of SQL statement.

هل المقصد احط ال ; في اخر هذه الجمله ؟؟

كود :

cmdinsert.CommandText = "insert into [report] values ([الرقم_الوظيفي],[إسم_الموظف],[التاريخ],[إسم_المنطقة],[الشارع],[رقم_الرخصة],[الإسم_التجاري],[نوع_الإجراء],[رقم_الإجراء],[نوع المخالفة_أو_الإنذار],[حالة_المنشأة],[نوع_الرخصة],[نوع_المهمة],[الملاحظات]) ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & DateTimePicker1.Value & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "');"

RE: مشكلة في برمجة زر الحفظ - mona707 - 03-02-14

طيب مفيش حل لل

Missing semicolon (Wink at end of SQL statement

؟؟؟

RE: مشكلة في برمجة زر الحفظ - سعود - 03-02-14

لا ادري هل المشكلة اللي شفتها هي بسبب المحاذاة ام لا
لكن وجدت قوس زائد واخر ناقص

RE: مشكلة في برمجة زر الحفظ - mona707 - 03-02-14

كود :

cmdinsert.CommandText = "insert into [report] values ([الرقم_الوظيفي],[إسم_الموظف],[التاريخ],[إسم_المنطقة],[الشارع],[رقم_الرخصة],[الإسم_التجاري],[نوع_الإجراء],[رقم_الإجراء],[نوع المخالفة_أو_الإنذار],[حالة_المنشأة],[نوع_الرخصة],[نوع_المهمة],[الملاحظات]) ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & DateTimePicker1.Value & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "');"

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

وشكرا على المتابعه

RE: مشكلة في برمجة زر الحفظ - سعود - 03-02-14

الفاصلة المنقوطة الاخيرة ايش اللازم منها؟؟
هي سبب الخطا

RE: مشكلة في برمجة زر الحفظ - mona707 - 04-02-14

Idea

نفس المشكله

انا حنجنن

RE: مشكلة في برمجة زر الحفظ - سعود - 04-02-14

التركيبة الصحيحة هي:

كود :

dim insertinto as new oledbcommand("insert into tb (col1,col2) values(@col1,@col2)",con)

insertinto .parameters.addwithvalue("@col1",col1.text)

insertinto .parameters.addwithvalue("@col2",col2.text)

con.open

insertinto.ExecuteNonQuery

هذي ابسط صيغة للحفظ بالبارامترات

الامثلة بالمنتدى وفيرة شوف لك كم مثال

RE: مشكلة في برمجة زر الحفظ - mona707 - 05-02-14

شكرا اخي سعود على المساعده

انا دلوقتي عملت كده

كود :

Dim insertinto As New OleDbCommand("insert into [report] ([الرقم_الوظيفي],[إسم_الموظف],[التاريخ],[إسم_المنطقة],[الشارع],[رقم_الرخصة],[الإسم_التجاري],[نوع_الإجراء],[رقم_الإجراء],[نوع_المخالفة_أو_الإنذار],[حالة_المنشأة],[نوع_الرخصة],[نوع_المهمة],[الملاحظات]) values (@الرقم_الوظيفي, @إسم_الموظف,@التاريخ,@إسم_المنطقة, @الشارع, @رقم_الرخصة, @الإسم_التجاري, @نوع_الإجراء, @رقم_الإجراء, @نوع_المخالفة_أو_الإنذار, @حالة_المنشأة, @نوع_الرخصة, @نوع_المهمة, @الملاحظات)")

        insertinto.Connection = con

        insertinto.Parameters.AddWithValue("@الرقم_الوظيفي", TextBox1.Text)

        insertinto.Parameters.AddWithValue("@إسم_الموظف", TextBox2.Text)

        insertinto.Parameters.AddWithValue("@التاريخ", DateTimePicker1.Value)

        insertinto.Parameters.AddWithValue("@إسم_المنطقة", TextBox4.Text)

        insertinto.Parameters.AddWithValue("@الشارع", TextBox5.Text)

        insertinto.Parameters.AddWithValue("@رقم_الرخصة", TextBox6.Text)

        insertinto.Parameters.AddWithValue("@الإسم_التجاري", TextBox7.Text)

        insertinto.Parameters.AddWithValue("@نوع_الإجراء", TextBox8.Text)

        insertinto.Parameters.AddWithValue("@رقم_الإجراء", TextBox9.Text)

        insertinto.Parameters.AddWithValue("@نوع_المخالفة_أو_الإنذار", TextBox10.Text)

        insertinto.Parameters.AddWithValue("@حالة_المنشأة", TextBox11.Text)

        insertinto.Parameters.AddWithValue("@نوع_الرخصة", TextBox12.Text)

        insertinto.Parameters.AddWithValue("@نوع_المهمة", TextBox13.Text)

        insertinto.Parameters.AddWithValue("@الملاحظات", TextBox14.Text)

        insertinto.ExecuteNonQuery()

        MsgBox("تـم الحـفـظ بـنـجـاح")

        con.Close()

[b][align=left]

وكمان جات رساله تانيه

The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.

RE: مشكلة في برمجة زر الحفظ - سعود - 05-02-14

ابحث بقوقل عن رسالة الخطا ستجد حلول ان شالله

RE: مشكلة في برمجة زر الحفظ - mona707 - 05-02-14

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

شكرا . . . Big Grin