عبدالله باقشير قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 السلام عليكم ورحمة الله وبركاته اريد ان احذف جميع سجلات (صفوف) جدول من خلال كود فرعي من ملف اكسل انا استخدم الكود التالي للحذف طبعا بعد فتح الاكسس والجدول Sub kh_AllDelete() ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' With RS If .RecordCount Then .MoveFirst While Not .EOF .Delete .MoveNext Wend End If End With ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' End Sub الا يوجد كود مختصر للحذف بدلا من استخدام الدواره بحثت في المنتدى ولم اجد طلبي بالكود فتهت وعفوا للازعاج عبدالله باقشير 1
ابوخليل قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 وعليكم السلام ورحمة الله وبركاته قدمت أهلا ووطئت سهلا أستاذنا العزيز لم يتضح لي ان كنت تريد الحذف في جدول اكسس ام اكسل في أكسس : جملة sql هذه لحذف جميع سجلات الجدول table1 دفعة واحدة DoCmd.RunSQL "DELETE table1.* FROM table1"
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 وعليكم السلام ورحمة الله وبركاته قدمت أهلا ووطئت سهلا أستاذنا العزيز لم يتضح لي ان كنت تريد الحذف في جدول اكسس ام اكسل في أكسس : جملة sql هذه لحذف جميع سجلات الجدول table1 دفعة واحدة DoCmd.RunSQL "DELETE table1.* FROM table1" الله يكرمك اخي ابوخليل ------------------- نعم في الاكسس حسب ما اوردت اناملك جزاك الله خيرا وبارك فيك ساجرب الكود وساوافيك بالرد تقبل تحياتي وشكري
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 السلام عليكم انا عندي تعريف الاكسس بداية الكود Private CN As New ADODB.Connection Private RS As New ADODB.Recordset لا اجد الغرض RunSQL من ضمن احدهم المعنى هذا ما هو DoCmd
ابوخليل قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 Docmd امر تشغيل داخل اكسس و RunSql لتنفيذ جملة الاستعلام هذا ما اعرفه ، ولا ادري نصف العلم فمثلا هذه الاسطر لحذف بيانات جدول في قاعدة بيانات اكسس خارجية ( موجودة ضمن مجلد البرنامج) Dim strSQL As String Dim srtPath As String srtPath = Application.CurrentProject.Path & "\kh.mdb" strSQL = "DELETE table1.* FROM table1" DoCmd.RunSQL strSQL
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 Docmd امر تشغيل داخل اكسس و RunSql لتنفيذ جملة الاستعلام هذا ما اعرفه ، ولا ادري نصف العلم فمثلا هذه الاسطر لحذف بيانات جدول في قاعدة بيانات اكسس خارجية ( موجودة ضمن مجلد البرنامج) Dim strSQL As String Dim srtPath As String srtPath = Application.CurrentProject.Path & "\kh.mdb" strSQL = "DELETE table1.* FROM table1" DoCmd.RunSQL strSQL اتعبتك معي اخي الفاضل ابو خليل DoCmd استعلام يعني ما فيش امر من خصائص الجدول للحذف جاري التجربة
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 السلام عليكم اخي الفاضل ابو خليل -----------حفظه الله هذا نموذج من الملف الذي اعمل عليه بالنسبة لكود الحذف يمشي الحال بالموجود حاليا الى ان اجد كود اسرع بالنسبة للملف الذي ما زلت اعمل عليه بكود استيراد آخر استوردت فيه اكثر من 20000 سجل ولكن لازم يقابله كود للتصدير بنفس السرعه والمعضلة وجدتها في كود الحذف الحل الذي استنتجدته الى حد الان انه ممكن تحذف الجدول كامل من اساسه وتعيد اضافة جدول بنفس الاعمدة جاري التعلم والتواصل المرفق اكسس 2003 اكسل 2003 استيراد وتصدير.rar تقبلوا تحياتي وشكري
عبد الفتاح كيرة قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 (معدل) نورت منتدى الأكسيس أستاذى القدير حياك الله وزادك علما و خلقا أستخدم هذا السطر لمسح كل بيانات الجدول من داخل أكسيس CurrentDb.Execute "DELETE FROM main", dbFailonerror تم تعديل ديسمبر 2, 2012 بواسطه أبو لميس
ابوخليل قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 استاذ عبدالله اعتقد انني توصلت الى طريقة لتشغيل الاستعلام فانظر المثال ان كانت تفي بالغرض ملحوظة : هناك error في حدث التصدير اتركه لك حيث لم يتبين لي مصدره ولكني الجمته استيراد وتصدير.rar
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 نورت منتدى الأكسيس أستاذى القدير حياك الله وزادك علما و خلقا أستخدم هذا السطر لمسح كل بيانات الجدول من داخل أكسيس CurrentDb.Execute "DELETE FROM main", dbFailonerror الله ينور عليك اخي ابو لميس والله لك وحشه جاري تجربة الكود وسنوافيك بالنتيجة تقبل تحياتي وشكري
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 استاذ عبدالله اعتقد انني توصلت الى طريقة لتشغيل الاستعلام فانظر المثال ان كانت تفي بالغرض ملحوظة : هناك error في حدث التصدير اتركه لك حيث لم يتبين لي مصدره ولكني الجمته جاري التجربة وسنوافيكم بالنتيجة تقبل تحياتي وشكري
عبدالله باقشير قام بنشر ديسمبر 2, 2012 الكاتب قام بنشر ديسمبر 2, 2012 السلام عليكم اخي ابو لميس نجح كودكم في الحذف جزاكم الله خيرا CN.Execute "DELETE FROM kh" بدون dbFailonerror لانها اختيارية لكن اريد اعرف المقصود منها ؟ لاني لما استخدمتها ظهر خطا
عبد الفتاح كيرة قام بنشر ديسمبر 3, 2012 قام بنشر ديسمبر 3, 2012 على قدر ما فهمت أنها تمنع تنفيذ الحذف فى حال وجود خطأ يعنى تعيد البيانات لما كانت عليه المقصد : إما حذف كامل بدون أخطاء و إما لا حذف والله أعلم
عبدالله باقشير قام بنشر ديسمبر 4, 2012 الكاتب قام بنشر ديسمبر 4, 2012 السلام عليكم اخي الفاضل ابو خليل ---------حفظكم الله كودكم قد نحتاجه في شي آخر جزاك الله خيرا اخي الفاضل ابو لميس ----------------حفظكم الله وصلت المعلومة جزاك الله خيرا تقلوا تحياتي وشكري
عبدالله باقشير قام بنشر ديسمبر 4, 2012 الكاتب قام بنشر ديسمبر 4, 2012 السلام عليكم هل بالامكان اضافة مجموعة سجلات دفعة واحدة بامر واحد مثل كود الحذف وليس بالدوارة ؟؟؟؟ منتظركم في امان الله
ابو ياسر قام بنشر ديسمبر 4, 2012 قام بنشر ديسمبر 4, 2012 وعليكم السلام كود تصدير البيانات دفعة واحدة خاص بالاصدارة 2010 يمكنك التعديل حسب الاصدار الذي عندك Here are a few examples for inserting all the data at once: strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\docs\test.accdb" ''Late binding, so no reference is needed Set cn = CreateObject("ADODB.Connection") cn.Open strCon ''Create a table called ATable scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "SELECT * INTO ATable " _ & "FROM " & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL ''Insert into a table called ATable scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "INSERT INTO ATable " _ & "SELECT * FROM " & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL ''Insert into a table with no column header in Excel, ''the fields are [afield],[atext],[another] scn = "[Excel 8.0;HDR=NO;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "INSERT INTO ATable ([afield],[atext],[another]) " _ & "SELECT F1 As afield, F2 As AText, F3 As another FROM " _ & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL منقول ،،،، 3
عبدالله باقشير قام بنشر ديسمبر 4, 2012 الكاتب قام بنشر ديسمبر 4, 2012 السلام عليكم اخي الفاضل ابو ياسر ------حفظكم الله جاري التعلم وسارد عليكم جزاكم الله خيرا تقبل تحياتي وشكري
عبدالله باقشير قام بنشر ديسمبر 4, 2012 الكاتب قام بنشر ديسمبر 4, 2012 السلام عليكم اخي الفاضل ابو ياسر ------حفظكم الله نجح التصدير استخدمت الكود ادناه: ''''''''''''''''''''''''''''''''' Adr = Range(AdrRng).Offset(-1, 0).Resize(Last, ContColmn).Address(0, 0) Adr = ActiveSheet.Name & "$" & Adr Adr = ".[" & Adr & "]" ''''''''''''''''''''''''''''''''' scn = "[Excel 8.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]" strSQL = "INSERT INTO kh " _ & "SELECT * FROM " & scn & Adr ''''''''''''''''''''''''''''''''' CN.Execute strSQL ''''''''''''''''''''''''''''''''' في الملف المرفق استيراد وتصدير من والى الاكسس لاكثر من 15000 سجل رابط التحميل:
ابوخليل قام بنشر ديسمبر 4, 2012 قام بنشر ديسمبر 4, 2012 اخي الفاضل .. عبدالله باقشير سلمت أناملك هذه ثمرة الزيارة .. جزاك الله خيرا
ابوخليل قام بنشر ديسمبر 5, 2012 قام بنشر ديسمبر 5, 2012 استأذنكم اخواني لنقل هذا الموضوع الى مكانه المناسب (قسم الاكسل ) وتحديث العنوان ايضا
قصي قام بنشر ديسمبر 8, 2012 قام بنشر ديسمبر 8, 2012 بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس فأعطاني ايرور فما العمل ؟ كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس وملف الاكسيس مفتوح فأعطاني كلمة ديليت في كل سجلات اكسيس ما العمل ؟ لو تكرمتم اريد شرح الاستخدام الامثل لهذا الملف الرائع الذي طالما تمنيته
عبدالله باقشير قام بنشر ديسمبر 9, 2012 الكاتب قام بنشر ديسمبر 9, 2012 بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس فأعطاني ايرور فما العمل ؟ كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس وملف الاكسيس مفتوح فأعطاني كلمة ديليت في كل سجلات اكسيس ما العمل ؟ لو تكرمتم اريد شرح الاستخدام الامثل لهذا الملف الرائع الذي طالما تمنيته هذا الموضوع كان لمناقشة بعض المسائل في منتدى الاكسس ساعمل موضوع آخر مع شرح الية عمل الملف ان شاء الله قريبا
قصي قام بنشر ديسمبر 9, 2012 قام بنشر ديسمبر 9, 2012 بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس فأعطاني ايرور فما العمل ؟ كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس وملف الاكسيس مفتوح فأعطاني كلمة ديليت في كل سجلات اكسيس ما العمل ؟ لو تكرمتم اريد شرح الاستخدام الامثل لهذا الملف الرائع الذي طالما تمنيته هذا الموضوع كان لمناقشة بعض المسائل في منتدى الاكسس ساعمل موضوع آخر مع شرح الية عمل الملف ان شاء الله قريبا شكرا لك اخي الفاضل موضوع تصدير من اكسيل الى اكسيس والعكس من المواضيع الهامة جدا اعانك الله على تسيهل هذا الموضوع
قصي قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس فأعطاني ايرور فما العمل ؟ كتبت في الصف الرابع والخامس وضغط على زر تصدير الى اكسيس وملف الاكسيس مفتوح فأعطاني كلمة ديليت في كل سجلات اكسيس ما العمل ؟ لو تكرمتم اريد شرح الاستخدام الامثل لهذا الملف الرائع الذي طالما تمنيته هذا الموضوع كان لمناقشة بعض المسائل في منتدى الاكسس ساعمل موضوع آخر مع شرح الية عمل الملف ان شاء الله قريبا نحن في انتظار معاليكم في تسهيل موضوع تصدير اكسيل الى اكسيس والعكس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.