منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > مشكلة في برمجة زر الحفظ
نسخة كاملة : مشكلة في برمجة زر الحفظ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

mona707

02-02-14, 12:36 PM
كود :
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 & "');"



mona707

03-02-14, 12:00 PM
طيب مفيش حل لل

Missing semicolon (Wink at end of SQL statement


؟؟؟

سعود

03-02-14, 12:19 PM
[صورة مرفقة: qyEoA.png]

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

mona707

03-02-14, 01:17 PM


كود :
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 & "');"



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

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






















سعود

03-02-14, 07:14 PM
الفاصلة المنقوطة الاخيرة ايش اللازم منها؟؟
هي سبب الخطا

mona707

04-02-14, 08:36 AM
IdeaSadIdeaSad

نفس المشكله

انا حنجنن

سعود

04-02-14, 10:34 AM
التركيبة الصحيحة هي:
كود :
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
هذي ابسط صيغة للحفظ بالبارامترات
الامثلة بالمنتدى وفيرة شوف لك كم مثال

mona707

05-02-14, 11:57 AM
شكرا اخي سعود على المساعده

انا دلوقتي عملت كده
كود :
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.

سعود

05-02-14, 12:07 PM
ابحث بقوقل عن رسالة الخطا ستجد حلول ان شالله

mona707

05-02-14, 12:14 PM
الحمد لله تم حل المشكله

شكرا . . . Big Grin
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > مشكلة في برمجة زر الحفظ