أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

PRB: ترتيب تسلسل خطأ فتح ADODB Recordset الوقت الأول مقابل Excel XLS

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية246167
الأعراض
فتح Microsoft جدول بيانات Excel من داخل Visual Basic في Visual Studio 6.0 المزود بحزمة الخدمة Service Pack 3 (أو أحدث) المتكاملة تطوير بيئة (IDE) مع برنامج تشغيل ODBC Excel ISAM بإنشاء خطأ وقت التشغيل التالية:
تشغيل خطأ وقت-2147467259 (80004005): ترتيب التسلسل غير معتمد من قبل نظام التشغيل المحدد [Microsoft] [برنامج تشغيل Excel ODBC]
تحدث هذه المشكلة في كل مرة يتم تشغيل التعليمات البرمجية داخل IDE Visual Basic.

ملاحظة لا يحدث هذا الخطأ إذا تم تحديد كافة الحقول في عبارة SQL على سبيل المثال:
SELECT * FROM ...				
أيضاً ، لا تحدث هذه المشكلة داخل EXE مترجمة.
السبب
هذه مشكلة داخل IDE Visual Basic بدءاً من حزمة خدمة 3.
معلومات أخرى

خطوات إعادة إنشاء السلوك

  1. إنشاء جدول بيانات في Microsoft Excel 97 أو في Microsoft Excel 2000 ثم ضع القيم التالية في حقول prescribe:
    • أ1 = f1
    • ب1 = f2
    • c١ = f3

  2. حفظ جدول البيانات وقم بإنشاء DSN الإشارة إليها.
  3. بدء تشغيل Visual Basic 6.0 من Visual Studio 6.0 المزود بحزمة الخدمة Service Pack 3 أو الإصدار الأحدث.
  4. إنشاء EXE قياسي جديد ثم قم بتعيين مرجع إلى "كائنات بيانات Microsoft Active Directory". قم بلصق التعليمة البرمجية التالية في النموذج:
    Public Sub Form_Load()    Dim constring As String    Dim Connection As New ADODB.Connection    Dim cmd As New ADODB.Command    Dim rs As New ADODB.Recordset'   define a DSN IMPORT-XLS, using the Excel ODBC driver, and point it to the xls file     constring = "Provider=MSDASQL;DSN=IMPORT-XLS"          Connection.Open constring     Set cmd.ActiveConnection = Connection     cmd.CommandType = adCmdText     '   The following .CommandText causes the error, but only the first time it is run within the ide.   cmd.CommandText = "Select F1, F2 from ""Sheet1$"""'   The following .CommandText will not cause the error.'    cmd.CommandText = "Select * from ""Sheet1$"""     rs.CursorLocation = adUseClient     rs.CursorType = adOpenStatic     rs.LockType = adLockReadOnly     rs.Open cmd     While Not rs.EOF        MsgBox rs.Fields(0)        rs.MoveNext     WendEnd Sub					
  5. إجراء التغييرات الضرورية سلسلة_الاتصال.
  6. تشغيل النموذج.
  7. في المرة الأولى التي يتم تشغيل النموذج يظهر الخطأ; لا يظهر في تشغيل اللاحقة.
خطأ-2147467259 (80004005)

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 246167 - آخر مراجعة: 06/24/2004 19:59:14 - المراجعة: 3.1

Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 3, Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4, Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 5, Microsoft ActiveX Data Objects 2.1 Service Pack 2, Microsoft ActiveX Data Objects 2.5, Microsoft ActiveX Data Objects 2.6, Microsoft ActiveX Data Objects 2.7

  • kbmt kbdatabase kbiisam kbprb KB246167 KbMtar
تعليقات
ody>/script>