Al-Mohana

السلام عليكم المشكه هي عندما أبحث عن طريق numberتحدث المشكله أما البحث عن طريق text فلا توجد مشكله والكود شغال وأنا أريد البحث عن طريق Bk_AccessionNO الي هو number ويضا هو primaryKey والمشكله في '" + Me.BK_AccessionNO.Text + "'" Me.OleDbConnection1.Open() Me.O…

السلام عليكم أريد مساعده في حل هذه المشكله وهي عند أدخال قيمه محدده في التكس بوكس وأستخدم find يجب ملأ كافة textboxبالبيانات بدون أستخدم datagrid وقد أستخدمت هذا الكود Dim r1 As OleDb.OleDbDataReader Me.OleDbConnection1.Open() Me.OleDbDataAdapter1.SelectComman…

السلام عليكم شكرا لكل من ساعدني في حل المشكله الكود شغال و هو Me.OleDbDataAdapter1.InsertCommand.CommandText = "insert into book(BK_AccessionNO,Bk_Title,BK_ISBN,BK_publisher,BK_Auther,BK_Section,BK_Editions,BK_state,BK_Price,BK_YearOfPublications,BK_IdPublish,…

أذا كان table مرتبط مع عدة جداول أخرى يعني جدول Aمرتبط مع B,C في Ms Access و أردت أن أدخل القيم في A هل أستخدم نفس الكود

ماذا تعني (f1,f2,f3) هل هي أسماء الحقول وأذا كان الحقل number يختلف في كتابة الكود

السلام عليكم أعتقد مشكلتي في عملية التنصيس " و ' ' ممكن تعطييني مثال علما أن الحقول تنقسم ألى Text,number,date/time

غيرت أسماء التكس بوكس وصار Me.OleDbInsertCommand1.CommandText = "insert into book values(Me.BK_AccessionNO.Text,'Me.BK_Title.Text'" + "," + "Me.BK_ISBN.Text " + ",'Me.BK_publisher.Text','Me.BK_Auther.Text'+'Me.BK_section.Text','Me.BK_Edition.Text','Me.BK_State…

شكرا لكل من حاول مساعدتي لكن مازالت نفس المشكله وقد حاولت عشرات المرات بدون جدوى أرجوا من الجميع المساعده لني محتاج الكود ضروري وشكرا

وهذه قاعدة البيانات في Access library_system.rar

أسف على التأخير الرساله خطأ هي: Syntex error in Insert Into statement علما أني رابطه مع عدة جداول (relationship) Libriry_System.rar

بعد محاولات عديده قلت أجرب أضافة بلوك Catch لكن تظهر نفس المشكله في Me.OleDbDataAdapter1.InsertCommand.ExecuteReader()

السلام عليكم هذه أو مشاركه لي سوأل لي ما العيب في هذا الكود: Dim r2 As OleDb.OleDbDataReader Try Me.OleDbConnection1.Open() ' Me.OleDbDataAdapter1.Fill(BOdataset1.Book) Me.OleDbInsertCommand1.CommandText = "insert into book values(" + Me.TextBox24.Text + "," +…