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

الصفحات : 1 2

لم تعمل

.....
إحرص إذا كانت أسماء الحقول تشابه أسماء محجوزة أو تحتوي مسافات أن تجعلها بين أقواس مربعة [] (أسماء البارامتيرات لا توضع بين أقواس مربعة)
عند التجربة عطل أسطر Try لتعرف مكان الخلل

كود :

Dim sql As String = " INSERT INTO [Rays] ([Name], [Date], [PicPath]) VALUES (@Name, @Date, @PicPath) "

Dim cmd As New OleDbCommand(sql, CON)

' مع الأكسس إحرص على الترتيب في البارامترات هنا

cmd.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)

cmd.Parameters.AddWithValue("@Date", Date.Today)

cmd.Parameters.AddWithValue("@PicPath", PicPath)

CON.Open()

cmd.ExecuteNonQuery()

CON.Close()

undefined

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

الصفحات : 1 2

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

boty

vbnet

boty

boty