Du arbetar offline, väntar på att återansluta till Internet

INFO: Jet OLE DB Provider verzia 4.0 podporuje vyberte @@ Identity

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:232144
SUHRN
Jet OLE DB verzia 4.0 poskytovateľ podporuje vyberte @@ Identity dotaz, ktorý vám umožní načítať hodnota poľa auto prírastok vytvoreného na vaše pripojenie. Auto prírastok hodnoty použité na iné pripojenia k databáze neovplyvňujú výsledky tejto špeciálne dotazové. Táto funkcia pracuje s databázami Jet 4.0, ale nie staršie formáty.
DALSIE INFORMACIE
Nasledujúci kód demonštruje, pomocou vyberte @@ Identity na získanie hodnoty poľa vloženom auto prírastok. Kód úryvok zahŕňa aj kód na vytvorenie tabuľky dotazu.
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				
Vďaka tejto novo pridané funkcie môžete vidieť novo pridané auto prírastok hodnoty v vaše klientske ActiveX Data Objects (ADO) skupín záznamov v ADO 2.1 a neskôr. Keď odošlete nový riadok poskytovateľovi Jet volaním Update alebo UpdateBatch (v závislosti od vášho výberu LockType), motor kurzora ADO generuje vložiť do dotazu vytvoriť nový riadok v tabuľke. Ak množina záznamov obsahuje pole auto inkrementace, ADO vygeneruje vyberte @@ Identity dotaz na získanie hodnota vytvorená pre dané pole auto prírastok. Nasledujúci kód demonštruje táto funkcia:
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				
Môžete vytvoriť novú databázu Jet 4.0 pomocou aplikácie Microsoft Access 2000 alebo pomocou ADOX knižnica, ktorá je súčasťou MDAC 2.1. Ak chcete použiť túto knižnicu v projekte programu Visual Basic, vytvoriť odkaz na Microsoft ADO Ext. 2.1 pre DDL a bezpečnosť. Kód ako nasledovné môžete potom použiť na vytvorenie novej databázy 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				
Chcete určiť formát databázy programu Microsoft Access, skontrolujte vlastnosť dynamické "Jet OLEDB:Engine typ" v kolekcii vlastností objektu pripojenia. Vlastnosť vráti hodnotu 5 Jet 4.x databáz. Nasledujúci kód úryvok ukazuje, pomocou vlastnosť:
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				
ODKAZY
Microsoft Data Access SDK; vyhľadávanie na: "Provider-Defined vlastnosti"; témy: „DBPROPSET_JETOLEDB_DBINIT ”
ADOX Jet Identity autoinkrementácia

Upozornenie: Tento článok bol preložený automaticky.

Egenskaper

Artikel-id: 232144 – senaste granskning 10/23/2011 20:10:00 – revision: 2.0

Microsoft Data Access Components 2.5, Microsoft Data Access Components 2.6, Microsoft Data Access Components 2.7, 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

  • kbdatabase kbinfo kbjet kbmt KB232144 KbMtsk
Feedback
or="">