رسالة خطأ عند الحفظ في جدول

السلام عليكم

ممكن ترفق المثال

ما اعرف كيف يرفقوا الامثلة

حاول نسخ كود الإتصال مع الإستعلام وضعه هنا .

يمكن انك فاتح الإتصال للقراءة فقط . قد ربما .

هذا كود الإتصال

If db.State = adStateOpen Then db.Close

St = "Provider=Microsoft.Jet.OLEDB.4.0;"

St = St & "Data source=\\samanet\mos\db1.mdb"

db.ConnectionString = St

db.CursorLocation = adUseClient

db.Open

وهذا كود فتح الجدول

If qu.State = adStateOpen Then qu.Close

qu.Open "qua", db, 3, 3

وهذا كود الحفظ

qu.AddNew

qu.Fields(0) = Val(Text1.Text)

qu.Fields(1) = Val(Text3.Text)

qu.Fields(2) = "" & Text4.Text

qu.Update

AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _

"Dbq=c:\mouaz.mdb;" & _

"DefaultDir=C:\program files\devstudio\vb;" & _

"Uid=Admin;Pwd=;"

'

Dim Cnn As New ADODB.Connection

Dim Rst As New ADODB.Recordset

'Open a Connection using an ODBC DSN.

Cnn.Open AccessConnect

rst.AddNew

rst.Fields(0) = Text1

rst.Fields(1) = Text2

rst.Fields(2) = Text3

rst.Fields(3) = Text4

rst.Fields(4) = Text5

rs.Update

أو ممكن

rst.open "insert into emp values (1,2,3,4)"

أو

rst.open "insert into emp values ("Text1","Text2","Text3","Text4")"

السطر الاخير بيكفي

وممكن تظهرالنتائج مباشرة

datagrid1.datasource=rst

أو حتى تتعامل سطر سطر

الجزء الأول من اجابتك إلى خاص بأن كل حقل في الجدول يقابله تكست هو نفس الطريقة الي أستخدمها ومازال الخطأ موجود

الطريقة الثانية ما أشتغلت ....لماذا ؟

تحياتي ومشكور على التفاعل

للرفع

للرفع

هلا بك . .

أعتقد :lol: < وذلك لأنني مبتدئ //

مالاحظته من كود الاتصال بأن قاعدة البيانات موجوده على شبكه صح ؟

طيب ملف القاعده مسوي له Sharing ? مشاركه

ولو كانت الإجابه نعم .. هل وضعت علامه صح في الخيارين ؟ لما تختار شيرنج ؟

وأيضاً تأكد من قاعدة البيانات إنها ليست للقراءه فقط ..

وإن شاء الله تكون حل لمشكلتك // :rolleyes:

مبتديء قال

الله عليك يابو الشباب فرجت هم عني

هات راسك أبوسها ياالبرنس

والله صح كلامك وانتهت المشكلة

تعرف أني ماسويت أشرت على الشيك بوكس في خيارات المشاركة ومجرد ماسويت صح على الخيار الثاني( السماح لمستخدمي الشبكة بتغير الملفات ) إختفى الخطأ وانتهت المشكلة وقام بالحفظ

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

تحياتي

باروح أخلص البرنامج