[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.