[mona707]

كود :

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 ( 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]

طيب مفيش حل لل

Missing semicolon (Wink at end of SQL statement


؟؟؟

[سعود]

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

[mona707]

كود :

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]

نفس المشكله

انا حنجنن

[سعود]

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

كود :

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]

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

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

كود :

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.

[سعود]

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

[mona707]

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

شكرا . . .