مشكلة الحفظ

السلام عليكم ورحمه الله وبركاته

اختي عليك اضافة اسم المستخدم وكلمة المرور للـ ConnectionString

على النحو التالي

Dim conn As New OleDbConnection (“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\db.mdb;User Id=test;Password =123”)

اخي الكريم

هذا الكود في Class Form1

Dim DataAdapter1 As New OleDbDataAdapter

Dim ConStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Application.StartupPath & "\sd.mdb;jet oledb:database password=555")

Dim Conn As New OleDbConnection(ConStr)

Dim DataSet1 As New DataSet

Dim SQLstr As String = "SELECT * FROM Table1"

كود الحفظ التالي في زر

conn.Open()

DataAdapter1.Update(DataSet1.Tables("Table1"))

DataSet1.AcceptChanges()

'تحديث قاعدة البيانات

'Conn.Open()

DataSet1.Clear()

DataAdapter1.Fill(DataSet1, "Table1")

conn.Close()

هل صحيح ماقمت به ام اكتب الكود في Dim conn As New OleDbConnection (“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\db.mdb;User Id=test;Password =555”)

في الزر

علما انة كتبته في الزر بعد حذف ملون باللون الاحمر

زرقكم الله الصبر علي وجزاك الله خيرا

السلام عليكم ورحمه الله وبركاته

اختي اجعلي المستخدم admin

جزاك الله خيرا اخي الكريم

هذا رابط ملف

http://www.up-00.com/dldpR619789.rar.html

ارجو توضيح الخطا

جزاك الله خيرا

علما انى وضعت الكودDim conn As New OleDbConnection (“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\db.mdb;User Id=test;Password =123”)

في هذا الكود في Class Form1

لكن دون فائدة

جزاك الله خيرا

السلام عليكم ورحمه الله وبركاته

اختي ذكرت سابقا, قومي بوضع المستخدم admin