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

INFO: يعتمد الإصدار 4.0 موفر Jet OLE DB SELECT @@ الهوية

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

اضغط هنا لرابط المقالة باللغة الانجليزية232144
الموجز
يدعم موفر Jet OLE DB الإصدار 4.0 الاستعلام SELECT @@ الهوية التي تتيح لك إمكانية استرداد قيمة الحقل زيادة التلقائي التي تم إنشاؤها على الاتصال. لا تؤثر القيم تلقائي الزيادة المستخدمة على الاتصالات الأخرى إلى قاعدة البيانات على نتائج هذا الاستعلام متخصصة. تعمل هذه الميزة مع قواعد بيانات Jet 4.0 ولكن ليس مع التنسيقات الأقدم.
معلومات أخرى
توضح التعليمة البرمجية التالية باستخدام هوية @@ SELECT لاسترداد قيمة حقل زيادة تلقائية مدرج حديثاً. كما تتضمن التعليمات البرمجية المتكررة التعليمات البرمجية لإنشاء جدول الاستعلام.
Dim cnDatabase As ADODB.ConnectionDim rsNewAutoIncrement As ADODB.RecordsetDim strConn As StringDim strSQL As StringDim strPathToMDB As String   strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _           "Data Source=" & strPathToMDB & ";"Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn        strSQL = "CREATE TABLE AutoIncrementTest " & _             "(ID int identity, Description varchar(40), " & _             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords        strSQL = "INSERT INTO AutoIncrementTest " & _             "(Description) VALUES ('AutoIncrement Test')"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords        strSQL = "SELECT @@Identity"    Set rsNewAutoIncrement = New ADODB.Recordset    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenForwardOnly, _                            adLockReadOnly, adCmdText    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value    rsNewAutoIncrement.Close    Set rsNewAutoIncrement = Nothing    strSQL = "DROP TABLE AutoIncrementTest"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    cnDatabase.CloseSet cnDatabase = Nothing				
وشكر إلى هذه الوظيفة المضافة حديثاً تستطيع رؤية قيم زيادة تلقائية المضافة حديثاً في مجموعات السجلات كائنات بيانات ActiveX (ADO) العميل في ADO 2.1 والإصدارات الأحدث. عند إرسال صف جديد إلى موفر Jet عن طريق استدعاء Update أو UpdateBatch (استناداً إلى اختيارك LockType) بإنشاء مشغّل المؤشر ADO استعلام INSERT INTO لإنشاء صف جديد في الجدول. إذا كانت تحتوي مجموعة السجلات على حقل زيادة تلقائية ، سيقوم ADO أيضاً بإنشاء استعلام SELECT @@ هوية لاسترداد القيمة التي تم إنشاؤها لهذا الحقل زيادة تلقائية. توضح التعليمة البرمجية التالية هذه الميزة:
Dim cnDatabase As ADODB.ConnectionDim rsNewAutoIncrement As ADODB.RecordsetDim strConn As StringDim strSQL As StringDim strPathToMDB As String    strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _          "Data Source=" & strPathToMDB & ";"    Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn        strSQL = "CREATE TABLE AutoIncrementTest " & _             "(ID int identity, Description varchar(40), " & _             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    strSQL = "SELECT ID, Description FROM AutoIncrementTest"    Set rsNewAutoIncrement = New ADODB.Recordset    rsNewAutoIncrement.CursorLocation = adUseClient    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenStatic, _                            adLockOptimistic, adCmdText    rsNewAutoIncrement.AddNew    rsNewAutoIncrement("Description").Value = "AutoIncrement Test"    rsNewAutoIncrement.Update    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value    rsNewAutoIncrement.Close    Set rsNewAutoIncrement = Nothing    strSQL = "DROP TABLE AutoIncrementTest"    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords    cnDatabase.CloseSet cnDatabase = Nothing				
يمكنك إنشاء قاعدة بيانات Jet 4.0 بيانات جديدة باستخدام Microsoft Access 2000 أو باستخدام مكتبة ADOX المضمنة MDAC 2.1. لاستخدام هذه المكتبة في مشروع Visual Basic إنشاء مرجع إلى Microsoft ADO Ext. 2.1 لـ DDL والأمان. يمكنك استخدام التعليمات البرمجية كما يلي ثم إنشاء قاعدة بيانات Jet 4.0 جديدة:
Dim strPathToMDB As StringDim catNewDatabase As ADOX.Catalog        strPathToMDB = "C:\NewJet4.MDB"    If Dir(strPathToMDB) <> "" Then        Kill strPathToMDB    End If    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _              "Data Source=" & strPathToMDB & ";"    Set catNewDatabase = New ADOX.Catalog    catNewDatabase.Create strConn    Set catNewDatabase = Nothing				
لتحديد تنسيق قاعدة بيانات Microsoft Access تحقق من خاصية "النوع OLEDB:Engine Jet" الحيوية في مجموعة خصائص كائن اتصال. سيقوم الخاصية بإرجاع قيمة 5 لقواعد 4.x Jet. يوضح التعليمات البرمجية المتكررة باستخدام الخاصية:
Dim cnDatabase As ADODB.ConnectionDim strConn As StringDim strPathToMDB As String    strPathToMDB = "C:\NewJet4.MDB"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _          "Data Source=" & strPathToMDB & ";"Set cnDatabase = New ADODB.Connection    cnDatabase.Open strConn    If cnDatabase.Properties("Jet OLEDB:Engine Type").Value = 5 Then        MsgBox "Jet 4.0 database"    Else        MsgBox "Not a Jet 4.0 database"    End If    cnDatabase.CloseSet cnDatabase = Nothing				
مراجع
Microsoft بيانات Access SDK; البحث على: "Provider-Defined خصائص"; الموضوع: "DBPROPSET_JETOLEDB_DBINIT"
AutoIncrement هوية Jet ADOX

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

خصائص

رقم الموضوع: 232144 - آخر مراجعة: 12/03/2003 18:25:00 - المراجعة: 3.1

Microsoft OLE DB Provider for Jet 4.0, Microsoft Data Access Components 2.1 Service Pack 2, Microsoft Data Access Components 2.5, Microsoft Data Access Components 2.6, Microsoft Data Access Components 2.7, 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, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbmt kbdatabase kbinfo kbjet KB232144 KbMtar
تعليقات
&t=">geScreens track by $index -->
did=1&t=">rosoft.com/c.gif?DI=4050&did=1&t=">body>r varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("